Visual FoxPro 6.0与大型数据库的无数据源连接(12)

varbinary

关键程序段：

*连接远程数据源

PROCEDURE Activate

wait window at 12,20 nowait "请稍后!正在连接远程数据源 ......" VarDriver=THISFORM.Text1.value

VarServer=THISFORM.Text2.value

VarDatabase=THISFORM.Text3.value

VarUser=THISFORM.Text4.value

VarPassword=THISFORM.Text5.value

Store sqlstringconnect("Provider=MSDASQL;DRIVER={"+alltrim(VarDriver)+"};

DSN=;SRVR="+alltrim(VarServer)+";DB="+alltrim(VarDatabase)+";UID="+alltrim(VarUser)+";

PWD="+alltrim(VarPassword)) to ConnHandle &&ConnHandle为连接句柄 if ConnHandle<0

=messagebox(space(4)+" 连接远程数据源失败！原因如下："+chr(10); +"１.“SYBASE信息”参数配置不正确；"+chr(10);

+"２.SYBASE服务（"+alltrim(upper(VarServer))+"）未启动。",16,"错误提示:")

wait clear

close all

return

else

wait clear

=sqldisconnect(ConnHandle)

endif

ENDPROC

PROCEDURE Release

=sqldisconnect(ConnHandle)

close all

ENDPROC

*查询

&&结果存入自定义游标MathsCursor

=sqlsetprop(ConnHandle,'batchmode',.T.) &&设置一次返回所有结果集 =sqlprepare(ConnHandle,"select code,name,grade,class,maths from student where grade='"+Vargrade+"' and class='"+Varclass+"'","mathscursor") =sqlexec(ConnHandle)