procedure TForm1.Button1Click(Sender: TObject);
var
cn: TADOConnection;
qu: TADOQuery;
sr: TDataSource;
begin
cn := TADOConnection.Create(self);
qu := TADOQuery.Create(self);
sr := TDataSource.Create(self);
cn.ConnectionString :=
'Provider=SQLOLEDB.1;User ID=SA;Initial Catalog=xondata;Data Source=MY\DATA2000;password=321321';
cn.LoginPrompt := false;
cn.Connected := true;
qu.Connection := cn;
sr.DataSet := qu;
DBGrid1.DataSource := sr; qu.SQL.Clear;
qu.SQL.Add('select * from inventory' + ' where autoid=200'); // edit1.Text);
qu.Active := true;
qu.Open;
qu.ExecSQL;
//我想把cn断开,表格就没有数据了,如果断开连接,而表格同样有数据呢??end;
可以实现你的功能,
就是需要自己写代码控制
不过建议使用 VirtualTable 组件。本人现在只用这个,超好用