添加一个DataSource、一个ADOQuery、一个DBGrid 然后将DBGrid的DataSouce选择为DataSource1,将DataSource1的DataSet选择为ADOQuery1 在ADOQuery1的ConnectionString中选择数据库然后添加一个Button procedure TForm1.Button1Click(Sender: TObject); begin With ADOQuery1 do begin Close; SQL.Text := 'select * from TabelName; Open; end; end;
然后将DBGrid的DataSouce选择为DataSource1,将DataSource1的DataSet选择为ADOQuery1
在ADOQuery1的ConnectionString中选择数据库然后添加一个Button
procedure TForm1.Button1Click(Sender: TObject);
begin
With ADOQuery1 do
begin
Close;
SQL.Text := 'select * from TabelName;
Open;
end;
end;
const
sqlcstr = 'provider=sqloledb.1;'+
'password=%s;'+
'user id=%s;'+
'persist security info=true;'+
'initial catalog=%s;'+
'data source=%s';adoconnection1.ConnectionString:=format(sqlcstr,[edit5.Text,edit4.Text,edit3.Text,edit2.Text]);
adoconnection1.Open;
在程序中可以直接用控件调用该文件也行,也可以参考那个连接字符串来用。