金沙注册网站-新金沙官网 计算机数据 ADO连接MS SQL SERVER 2000程序

ADO连接MS SQL SERVER 2000程序

ado连接ms sql server 2000程序

function adothread(param: pointer): integer; stdcall;var con, cmd :
variant;begin coinitialize(nil); con := getnewconnection(…); if
varisempty(con) then begin //未连接上,退出 exit; end eles cmd :=
getnewcommand(con) while bterminate do begin if varisempty(con) then
//连接失败 退出 exit else sleep(1000); end; closeconnection(con);
//自定义的关闭函数。 其实测试时, cmd := unassigned; couninitialize;
result := 0;end;

相关文章

发表评论

电子邮件地址不会被公开。 必填项已用*标注

网站地图xml地图