TADOConnection和TADQuery组件连接访问数据库总结

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了TADOConnection和TADQuery组件连接访问数据库总结，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含1773字，纯文字阅读大概需要3分钟。

内容图文

   print?

1. procedure TForm1.btnTestClick(Sender: TObject);  
2. var  
3.    user,passwd, server :string;  
4. begin  
5.     user   := ‘admin‘;  
6.     pwd    := ‘123456‘;  
7.     server := ‘192.168.3.11‘;  
8.     adoCnt.ConnectionString := ‘Provider=MSDAORA.1;Password=‘ + pwd;  
9.     adoCnt.ConnectionString := adoCnt.ConnectionString + ‘;User ID=‘ + user;  
10.     adoCnt.ConnectionString := adoCnt.ConnectionString + ‘;Data Source=‘ + server;  
11.     adoCnt.ConnectionString := adoCnt.ConnectionString + ‘;Persist Security Info=True‘;  
12.   
13.     try  
14.        adoCnt.Open;  
15.     except  
16. ShowMessage(‘数据库连接错误‘);  
17.     end;  
18. end;  

下面在简单介绍一下连接好数据库后，我们要读取数据库的数据显示到listview上改怎么实现呢？

首先：选择上面的其中一种方法来连接数据库，当然我比较建议第二种用代码的方式实现。

其次：为Form添加一个listview控件和一个按钮；按钮的Caption属性为：导出数据；Name属性依次为：lvshow和btnexportdata。

然后：在导出数据的按钮中写入下面的代码：

 

[delphi] view plain copy    print?

1. procedure TForm1.btnexportdataClick(Sender: TObject);  
2. var  
3.   items :TListItem;  
4.   
5. begin  
6.   adoQry.SQL.Clear;  
7.   adoQry.SQL.Add(‘select * from test‘);  
8.   adoQry.Open;  
9.   
10.   while not adoQry.Eof do  
11.   begin  
12.     items := lvshow.SubItems.Add;  
13.     items.SubItems.Add(adoQry.FieldByName(‘std_name‘).AsString);  
14.     items.SubItems.Add(adoQry.FieldByName(‘std_age‘).AsInteger);  
15.     items.SubItems.Add(adoQry.FieldByName(‘std_addr‘).AsString);  
16.     adoQry.Next;  
17.   end;  
18. end;  

 

TADOConnection和TADQuery组件连接访问数据库总结

标签：控件   简单   下一步   选择   .net   sage   mysq   view   sel   

本文系统来源：http://www.cnblogs.com/michellexiaoqi/p/7008165.html

内容总结

以上是互联网集市为您收集整理的TADOConnection和TADQuery组件连接访问数据库总结全部内容，希望文章能够帮你解决TADOConnection和TADQuery组件连接访问数据库总结所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

---