ado连接ms sql server 2000程序

function adothread(param: pointer卡塔尔(قطر‎: integer; stdcall;var con, cmd :
variant;begin coinitialize(nil卡塔尔(قطر‎; con := getnewconnection(…State of Qatar; if
varisempty(conState of Qatar 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地图