try
try
lADOConnection:=TADOConnection.Create(nil);
lADOConnection.LoginPrompt:=False;
lADOConnection.ConnectionString:=SysUtils.Format(lConntectStr,[lID,lIP,lDataBase,lPassword]);
lADOConnection.Connected := True;
Jsdialogs.ShowMsg('连接数据库成功!','提示');
lADOConnection.GetTableNames(Memo1.Lines, false);
except
Jsdialogs.ShowError('连接数据库错误,请检查连接字符串是否有误!','提示');
Exit;
end;
ADOQuery.Connection:=lADOConnection;
ADOQuery.Close;
ADOQuery.SQL.Text:='select * From KCRKD2';
ADOQuery.Open;
JsDialogs.ShowMsg(SysUtils.IntToStr(ADOQuery.RecordCount),'提示');
DataSource1.DataSet:=ADOQuery;
finally
lADOConnection.Free;
end; |