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;

本文由澳门新萄京官方网站发布于信息数据库,转载请注明出处:ADO连接MS SQL SERVER 2000程序

TAG标签:
Ctrl+D 将本页面保存为书签,全面了解最新资讯,方便快捷。