欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  数据库

ADO连接MS SQL SERVER 2000程序

程序员文章站 2024-01-10 15:59:52
...
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;