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;
声明：本站所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。
