在delphi中开发sql server 2000数据库中我用ado联接sql时怎么判断联接成功与否,假如不成功怎样屏蔽掉返回的错误信息,自已收出一个信息!
----------------------------------------------
中流一壶,千金争挈。宁为铅刀,毋为楮叶。错节盘根,利器斯别。识时务者,呼为俊杰!
procedure TForm1.Button1Click(Sender: TObject); var SQLServer:Variant; ServerList:Variant; i,nServers:integer; // sRetValue:String; begin SQLServer := CreateOleObject('SQLDMO.Application'); 我在创建这个的时候出现错误! ServerList:= SQLServer.ListAvailableSQLServers; nServers:=ServerList.Count; for i := 1 to nservers do ListBox1.Items.Add(ServerList.Item(i)); SQLServer:=NULL; serverList:=NULL; end;
end 我应该在use 里面包括一个什么类哦
----------------------------------------------
中流一壶,千金争挈。宁为铅刀,毋为楮叶。错节盘根,利器斯别。识时务者,呼为俊杰!