首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 数据库 > VFP >

vfp+sql2000的有关问题

2012-08-07 
vfp+sql2000的问题。各位高手:在后台有一个sql表:总成绩表,我用sqlstringconnect()连接到数据库,并在前台生

vfp+sql2000的问题。
各位高手:
  在后台有一个sql表:总成绩表,我用sqlstringconnect()连接到数据库,并在前台生成一个临时表1(用sqlexec()生成)进行数据录入(班级成绩的录入,一个班一个班的进行),没录入完一个班的成绩我就想把它存入到后台的总成绩表中,请问如何才能存到后台的总成绩表?注明:我没有用视图操作。直接通过句柄操作后台的表。

[解决办法]
那就只能你自己将这个临时表设置成可更新的了,一般步骤如下:

1. SqlExec 取后台表记录到前台临时表
2. 用 CursorSetProp 设置临时表的下列属性:
Buffering <- 5
Tables, KeyFieldList, UpdatableFieldList, UpdateNameList 这4个属性根据临时表与后台表之间的映射关系来定
WhereType <- 1
SendUpdates <- .t.
3. 用户增/删/改数据
4. 执行 TableUpdate(.t.) 发送更新到后台

[解决办法]

SQL code
临时表更新SQL表的例子:*------------------------SQL服务器名:MyServerSQL用户名:saSQL用户名:空SQL中的表名:Kq_YgKq_Yg表的字段:    Id Int 4Name Char 10Department Char 20以下是FORM信息:Form上有5个按钮,一个Grid,分别为:1、增加(AddCmd),Click事件:Select Temp1Append BlankThisform.SaveCmd.Enabled=.T.Thisform.Grid1.RefreshThisform.Grid1.ReadOnly=.F.Thisform.Grid1.SetFocus2、修改(EditCmd),Click事件:Thisform.SaveCmd.Enabled=.T.Thisform.Grid1.ReadOnly=.F.Thisform.Grid1.SetFocus3、删除(DelCmd),Click事件:DeleteThisform.Grid1.RefreshThisform.SaveCmd.Enabled=.T.4、保存(SaveCmd),此按钮的Enabled值为.F.,Click事件:Select Temp1lSuccess=CursorSetProp("sendupdates",.T.,"Temp1")&&设置为可更新m.lSuccess=Tableupdate(.T.,.F.) &&successful updateIf m.lSuccess    Messagebox("保存成功!",64,"信息提示")    Thisform.SaveCmd.Enabled=.F.    Thisform.Grid1.ReadOnly=.T.Else    Messagebox("保存失败!",16,"信息提示")    Thisform.SaveCmd.Enabled=.T.    Thisform.Grid1.ReadOnly=.F.    Tablerevert(.T.)Endif5、退出(ExitCmd),Click事件:SQLDisconnect(0) &&终止所有活动的连接。Close DatabasesThisform.Release6、Grid的ReadOnly值为.T.7、Form的Init事件:Close DatabasesSet Safety OffPublic nhandlenhandle=Sqlstringconnect("driver=SQL Server;server=MyServer;uid=sa;pwd=;database=MyServer") &&无需配ODBCIf nhandle<=0    Messagebox("连接SQL Server 失败!!!",16, '错误信息')    CancelElse    Thisform.Grid1.RecordSource=Null    Ac=SQLExec(nhandle,"Select * From Kq_Yg","Temp1")    If Ac<0        Messagebox("读取数据错误!",16, '错误信息')        Cancel    Endif    Select Temp1    Thisform.Grid1.RecordSource='Temp1'    Thisform.Grid1.Refresh    Set Multilocks On    CursorSetProp("tables","Kq_Yg","Temp1")  &&设置临时表的更新目标表    CursorSetProp("keyfieldlist","ID","Temp1")  &&设置临时表的关键字    CursorSetProp("UpdateType",1,"Temp1")  &&设置用新数据更新旧数据    CursorSetProp("updatablefieldlist","ID,Name,Department","Temp1")&&设置临时表的更新字段    CursorSetProp("updatenamelist","ID Kq_Yg.ID ,Name Kq_Yg.Name,Department Kq_Yg.Department","Temp1")  &&&用Temp1中的相应字段更新Kq_Yg表    CursorSetProp("wheretype",2)    CursorSetProp("buffering",5)&&设置表缓冲Endif 

热点排行