delphi 显示数据

delphi 显示数据

标准动态 显示数据

procedure TForm1.Button2Click(Sender: TObject);
var
databasename:string;
ip:string;
begin
adoconnection1.Close;
databasename:=ComboBox2.Text;//数据库
ip:=ComboBox1.Text;//数据库服务器

ADOquery1.SQL.Text:=ComboBox3.Text;
ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog='+databasename+';Data Source='+ip;
adoquery1.Connection:= ADOConnection1;
ADOConnection1.Connected:=true;
ADOquery1.SQL.Text:=ComboBox3.Text;//获取查询语句
ADOquery1.Active:=true;
datasource2.DataSet:=ADOquery1;
dbgrid1.DataSource:=datasource2;

end;