unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls;type
TForm1 = class(TForm)
DataSource1: TDataSource;
Edit1: TEdit;
Button1: TButton;
DBGrid1: TDBGrid;
ADOQuery1: TADOQuery;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from t where yy=a');
ADOQuery1.Open;
end;end.
上面是我的代码,为什么显示不dbgrid出数据,还有什么语句我没写的。
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls;type
TForm1 = class(TForm)
DataSource1: TDataSource;
Edit1: TEdit;
Button1: TButton;
DBGrid1: TDBGrid;
ADOQuery1: TADOQuery;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from t where yy=a');
ADOQuery1.Open;
end;end.
上面是我的代码,为什么显示不dbgrid出数据,还有什么语句我没写的。
解决方案 »
- 【潇洒】
- 往Excel表里写类似:“1-15”的内容,怎样阻止自动变成日期型?
- 求助stringGrid使用和窗体停靠的问题
- 为什么所有的项目单元文件按F9无法运行了呢?
- 新手问题:
- 主程序在哪?
- Delphi高手:请教小问题一个[有源码]
- A*算法,新手,有些还是看着不明白
- 谁有通灵金卡的GGMM借我用下,我看中了一款戒指,想买了向老婆求婚,希望有卡的GG多多帮助
- Win98下的API函数和消息在Windows Me 下能用吗??
- delphi 缓存技术的运用.请问各位,有没有相关资料或网址呢?小弟很想学习,我在网上找了很久没有相关代码及介绍.请各位帮助.
- 问一个问题,关于Panel 嵌套 form?
是不是想写'select * from t where yy=''a'''?
dataset--》datasource--》dbgrid
没有设置也是不会显示数据的