Maison  >  Article  >  base de données  >  ADO连接MS SQL SERVER 2000程序

ADO连接MS SQL SERVER 2000程序

WBOY
WBOYoriginal
2016-06-07 17:47:141015parcourir

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;
Déclaration:
Le contenu de cet article est volontairement contribué par les internautes et les droits d'auteur appartiennent à l'auteur original. Ce site n'assume aucune responsabilité légale correspondante. Si vous trouvez un contenu suspecté de plagiat ou de contrefaçon, veuillez contacter admin@php.cn