Delphi6中使用TADOConnection和TADQuery组件连接访问数据库总结
来源:互联网 发布:淘宝虚拟发布类目 编辑:程序博客网 时间:2024/05/01 02:16
首先先来简单了解一下TADOConnection控件和TADOQuery控件作用,如下图:
好了简单对这两个控件有了一个初步的认识了,下面我们就通过两种形式来进行访问数据库:第一种是通过手动配置不需要写代码来实现;第二种是自己通过代码来连接数据库。
下面先介绍一下第一种方法:
第一步:向Form窗体拖上面的两个控件,一次将起属性Name改为:adoCnt 和adoQry;
第二步:单击TADOQuery控件找到属性:ConnectionString;如图:点击红色圈出现下一个界面:
点击Build... 会弹出下面左边的窗体:
然后选择你需要的数据库,然后点击"下一步" 进入上图右边的对话框:然后一次输入你的服务器名、用户名称、密码信息,输入后你也可以测试一下数据库是否可用。点击测试链接就可以了。
第三步:选中TADOQuery控件,找到属性为:Connection ,如图:点击三角找到TADOConnection控件的Name,这样就将这两个控件就关联起来了。
到这里我们就已经配置好链接数据库了。是不是很简单啊。
下面讲一下第二种方法:
第一步:和上面的第一步是一样的。
第二步:向Form添加一个按钮:按钮的Caption属性改为:测试;按钮的Name属性改为:btnTest;
第三步:和上面的第三步一样的。
第四步:编写代码,在刚刚添加的测试按钮里写入如下代码:
procedure TForm1.btnTestClick(Sender: TObject);var user,passwd, server :string;begin user := 'admin'; pwd := '123456'; server := '192.168.3.11'; adoCnt.ConnectionString := 'Provider=MSDAORA.1;Password=' + pwd; adoCnt.ConnectionString := adoCnt.ConnectionString + ';User ID=' + user; adoCnt.ConnectionString := adoCnt.ConnectionString + ';Data Source=' + server; adoCnt.ConnectionString := adoCnt.ConnectionString + ';Persist Security Info=True'; try adoCnt.Open; exceptShowMessage('数据库连接错误'); end;end;
好了到这里我们的第二种方法也就介绍完了。
下面在简单介绍一下连接好数据库后,我们要读取数据库的数据显示到listview上改怎么实现呢?
首先:选择上面的其中一种方法来连接数据库,当然我比较建议第二种用代码的方式实现。
其次:为Form添加一个listview控件和一个按钮;按钮的Caption属性为:导出数据;Name属性依次为:lvshow和btnexportdata。
然后:在导出数据的按钮中写入下面的代码:
procedure TForm1.btnexportdataClick(Sender: TObject);var items :TListItem;begin adoQry.SQL.Clear; adoQry.SQL.Add('select * from test'); adoQry.Open; while not adoQry.Eof do begin items := lvshow.SubItems.Add; items.SubItems.Add(adoQry.FieldByName('std_name').AsString); items.SubItems.Add(adoQry.FieldByName('std_age').AsInteger); items.SubItems.Add(adoQry.FieldByName('std_addr').AsString); adoQry.Next; end;end;
感觉这里讲解的有关Delphi访问数据库的各种控件的解说不错:http://wenku.baidu.com/link?url=opygJl7SxIfiavYPiZ8KjRsIbV6fE-Zl1nIJPXKrsxVHIr8MBfckNUckbVeRPl3N2OCixNaRLUUGeE0Z2y4juo7YLALNUuLnXjoxL63_WYu
好了,今天关于Delphi6下使用控件访问数据库操作就讲到这里,如果还有什么不懂或我哪里说错的请及时联系我,新浪邮箱:chao_song2011@sina.cn 不胜感激!!!
- Delphi6中使用TADOConnection和TADQuery组件连接访问数据库总结
- 应用TADOConnection和TADODataSet组件
- 应用TADOConnection和TADOQuery组件
- 应用TADOConnection、TADODataSet和TADOCommand组件
- Delphi中TADOConnection控件和TADOStoredProc控件的使用调用存储过程
- 使用 Databound 组件访问数据库
- c++ builder即BCB中TADOConnection和TADOQuery等组件在多线程下与中文输入法冲突,打开输入法时会引起程序死机,假死,解决办法
- ado.net连接模式访问数据库中datareader的返回多个结果集和mars的使用
- delphi学习笔记--ADO数据库连接组件TADOConnection
- delphi学习笔记--ADO数据库连接组件TADOConnection
- java中使用日志组件和mysql数据库
- COM组件中如何连接数据库
- COM组件中如何连接数据库
- 使用.NET组件连接ORACLE数据库
- 学习信息管理系统总结——数据库的连接和访问(一)
- 数据库访问层中使用GenericDao和HibernateDaoSupport
- Eclipse中使用Struts2和Tomcat访问Hbase数据库
- 数据库访问层中使用GenericDao和HibernateDaoSupport
- 冬季的一缕阳光从指尖悄悄滑过
- 软件开发模型(II)
- 图的最短路径-升级版
- 学习鸟哥的Linux私房菜笔记(4)——文件
- 《linux性能及调优指南》 3.3 内存瓶颈
- Delphi6中使用TADOConnection和TADQuery组件连接访问数据库总结
- Contents & Index
- iOS开发-mutating method sent to immutable object错误
- 程序员面试精粹01
- Ubuntu 12.04下安装QT 4.0
- Java加载jar文件并调用jar文件当中有参数和返回值的方法
- 父类 xx = new 子类()与子类 xx = new 子类()的区别
- 蜗牛—cocos2dx学习之网址
- Conversion to Dalvik format failed: Unable to execute dex: java.nio.BufferOverflowException.