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;