请教一个简单的问题,用TADOQuery控件怎么把数据库中的数据写到DBgrid中,用代码怎么写,谢谢了!!! 请教一个简单的问题,用TADOQuery控件怎么把数据库中的数据写到DBgrid中,用代码怎么写,谢谢了!!! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 用DataSource将ADOQuery和DBgrid连起来就行了在ADOQuery中写上select语句就ok了 控件:datasouce1 dbgrid1ADOQuery1datasouce1.dataset:=ADOQuery1dbgrid1.datasouce:=datasouce1 按上面设置好了属性,在ADOQuery1.SQL中写好Select开头的SQL语句,如果此时与数据连接好了ADOQuery1.Open就可以了 先uses 块中加如ADODB, DB;procedure TForm1.Button1Click(Sender :TObject);varADOConnect :TADOConnection;ADOQuery :TADOQuery;DataSoure :TDataSource;Begin ADOConnect :=TADOConnection.Create(nil) ; ADOConnect.LoginParmt := False; ADOConnect.ConnectionString := ...//这里写数据库连接字串 ADOConnect.Open; ADOQuery := TADOQuery.Create(nil); ADOQuery.Connection := ADOConnect; ADOQuery.Sql.Clear; ADOQuery.Sql.Add();//这里加入sql语句 try ADOQuery.Open或ADOQuery.ExecSql //这取决你的SQL语句是否有返回值 DataSource.DataSet := ADOQuery; DBGriD1.DataSource := DataSource; finally ADOQuery.free; end;end; 窗体多次显示 急救啊!毕业设计出现一个严重的问题 请高手帮忙解决.. 怎样修改SQLSERVER的sa密码 如何提取开始菜单->文档菜单里面的内容 请教有关dispatch 哪里有RBuilder7.0.2企业版下载? SQL 的四舍五入函数是哪个哦? 请问大家哪里有比较好的用于检测软件占用内存与释放的检测工具下载? StrToTime转换成的是DateTime? Delphi构件:TOutline中如何动态修改Item 关于数据模块的OnDestroy事件 idhttp已经指定了protocolversion为1.1,为什么用sniffer发现数据包还是1.0呢
在ADOQuery中写上select语句就ok了
datasouce1
dbgrid1
ADOQuery1datasouce1.dataset:=ADOQuery1
dbgrid1.datasouce:=datasouce1
procedure TForm1.Button1Click(Sender :TObject);
var
ADOConnect :TADOConnection;
ADOQuery :TADOQuery;
DataSoure :TDataSource;
Begin
ADOConnect :=TADOConnection.Create(nil) ;
ADOConnect.LoginParmt := False;
ADOConnect.ConnectionString := ...//这里写数据库连接字串
ADOConnect.Open;
ADOQuery := TADOQuery.Create(nil);
ADOQuery.Connection := ADOConnect;
ADOQuery.Sql.Clear;
ADOQuery.Sql.Add();//这里加入sql语句
try
ADOQuery.Open或ADOQuery.ExecSql //这取决你的SQL语句是否有返回值
DataSource.DataSet := ADOQuery;
DBGriD1.DataSource := DataSource;
finally
ADOQuery.free;
end;
end;