if EditConnectionString(Connection) then //Connetcion is a adoconnetion object begin ConnectionString.Text := Connection.ConnectionString; .......................//insert your code here end;
name字段就是数据库名 详细点: select name from master.dbo.sysdatabases
加一个ADODATASET,设置select name from master.dbo.sysdatabases
.................
if EditConnectionString(Connection) then //Connetcion is a adoconnetion object
begin
ConnectionString.Text := Connection.ConnectionString;
.......................//insert your code here
end;
详细点:
select name from master.dbo.sysdatabases