VFP中用SPT的Cursor表更新SQL数据库
<STRONG>VFP中用SPT的Cursor表更新SQL数据库<DIV>
<P>我用SPT想更新SQL数据库中的数据，在Cursor表中更新了数据但退出程序后再进入SQL数据库看数据丝毫未动。程序如下不知错在什么地方？</P>
<P>**************************************************<BR>*VFP中用SPT的Cursor表更新SQL数据库<BR>**************************************************</P>
<P>LOCAL ConnectString,nhand1,soucdb<BR>CLEAR <BR>nhand1 =0 && nhand1为MAINDB数据源的连接句柄<BR>soucdb = 'MAINDB.DB' &&SQL数据库<BR>ConnectString = 'Driver='+'Adaptive Server Anywhere 9.0'+';'+;<BR> 'uid='+'dba'+';'+;<BR> 'pwd='+'666666'+';'+;<BR> 'databasekey='+'123456'+';'+;<BR> 'DBF='+soucdb<BR>SQLSETPROP(0,"DispLogin" ,3) && 关闭显示信息连接属性<BR>nhand1 = SQLSTRINGCONNECT(ConnectString) && 连接, nhand1为MAINDB数据源的连接句柄<BR>sqlexec(nhand1,"select recordid,names fromworkdat","tmp") <BR>SELECT tmp<BR>cursorsetprop("tables","workdat","tmp") &&设置临时表的更新目标表 <BR>cursorsetprop("keyfieldlist","recordid","tmp") &&设置临时表的关键字-------"recordid"<BR>cursorsetprop("updatablefieldlist","names","tmp") &&设置临时表的更新字段----"names" <BR>cursorsetprop("updatenamelist","names workdat.names","tmp") &&用tmp中的相应字段更新workdat表 <BR>cursorsetprop("sendupdates",.t.,"tmp") &&设置是否可更新 T.-执行 .F.-不执行。<BR>cursorsetprop("UpdateType",2)<BR>cursorsetprop("buffering",5) &&设置表缓冲<BR>SELECT tmp<BR>brow &&更新前浏览<BR>UPDATE tmp SET names = "黄英" &&姓名全改成了"黄英"<BR>brow &&浏览可见已更新<BR>SQLDISCONNECT(0) &&断开连接<BR>CLOSE DATABASE ALL<BR>CLEAR ALL<BR>CLEAR </P></DIV></STRONG>
页:
[1]