ADO connects MS SQL SERVER 2000 programs

ADO connects MS SQL Server 2000 programs

function Adothread (param:pointer): integer; stdcall;
Var
Con, cmd:variant;
Begin
CoInitialize (nil);
Con: = GetNewConnection (...);
If Varisempty (Con) Then
Begin
Not connected, exiting
Exit
End Eles
CMD: = Getnewcommand (Con)
While Bterminate do
Begin
If Varisempty (Con) Then
Connection failed to exit
Exit
Else
Sleep (1000);
End
CloseConnection (con); A custom shutdown function. In fact, when the test,
CMD: = unassigned;
CoUninitialize;
Result: = 0;
End