我用的DELPHI 7 和SQL SERVER 2000
在窗体form1上已经用ADO成功连接了student数据库我想在窗体form1上显示出student数据库中tb表里的内容,
应该在窗体上加哪些控件啊,如何写代码啊,
就是能显示出来可以了,小弟新手,万分感谢。
在窗体form1上已经用ADO成功连接了student数据库我想在窗体form1上显示出student数据库中tb表里的内容,
应该在窗体上加哪些控件啊,如何写代码啊,
就是能显示出来可以了,小弟新手,万分感谢。
调试欢乐多
adoquery:用来获取数据集
datasource:数据源
dbgrid:用来显示数据设置
dbgrid.datasource := datasource;
datasource.dataset := adoquery;
adoquery.connection := adoconnection;
adoquery.close;
adoquery.sql.text := 'select * from tb';
adoquery.open;这样就能在dbgrid中显示了
begin
close;
sql.clear;
sql.add(' select * from tb');
open;
end;
adoquery.sql.text := 'select * from tb';
adoquery.open; 这个应该写在什么地方呢,
这些连接都已经设置完毕,可是我还是不知道写在哪,所有代码如下:unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, Grids, DBGrids, ADODB;type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}end.
应该写在哪呢,求助
下面加上一个
procedure show;
然后在{$R *.dfm}
下面加上
procedure TForm1.show;
begin
adoquery.close;
adoquery.sql.Clear;
adoquery.sql.text := 'select * from tb';
adoquery.open;
end;