ADO连接MS SQL SERVER 2000程序

作者:网络    发布时间:2020-03-27 05:22    浏览:

[返回]

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(conState of Qatar while bterminate do begin if varisempty(con卡塔尔国 then //连接退步 退出 exit else sleep(1000State of Qatar; end; closeconnection(con卡塔尔; //自定义的闭馆函数。 其实地衡量试时, cmd := unassigned; couninitialize; result := 0;end;

搜索