通过SPT方式,SQL本身的客户与服务器联接,在主PRG中写(仅供参考) handle_=sqlstringconnect("PROVIDER=SQLOLEDB;driver={sql server};server=ntserver2;database=mrp;uid=sa;pwd=1;") if handle_<0 then =messagebox("连接错误,不能连接到服务器",0+48+0,"系统提示") close all quit endif 其中Handle_为全局变量,在FORM中取数为: succ=sqlexec(handle_,"select top 1 * from dept_data","o02_dept_data") if succ<=0 then return .f. endif
handle_=sqlstringconnect("PROVIDER=SQLOLEDB;driver={sql server};server=ntserver2;database=mrp;uid=sa;pwd=1;")
if handle_<0 then
=messagebox("连接错误,不能连接到服务器",0+48+0,"系统提示")
close all
quit
endif
其中Handle_为全局变量,在FORM中取数为:
succ=sqlexec(handle_,"select top 1 * from dept_data","o02_dept_data")
if succ<=0 then
return .f.
endif