VB利用ADO控件连接access数据库.doc

VB利用ADO控件连接access数据库VB利用ADO控件连接access数据库VB利用ADO控件连接access数据库VB利用ADO控件连接access数据库今天告诉大家VB利用ADO控件连接access数据库的两种方法：一种是在adodc1的属性里设置数据库文件的路径，这种方法的优点是简单易操作,缺点是,当源文件换了地方后，要重新设置数据库的路径,否则连接不上数据库了。一种是用代码设置数据库的路径,这种方法的优点就是只要源文件和数据库在同一文件夹下，无论移动到哪里都能连接上。如果没有建立好数据库的话,先建立一个数据库，然后建立一个表比如我们建的表名为message，然后把里面的字段名称和数据类型都按自己的需要设置好。然后保存就可以了。打开MicrosoftVisualBasic6.0我用的是VB6.0,在需要调用数据库的窗体上加入一个adodc控件，默认名称为:Adodc1。默认的情况下工具栏里是没有这个控件的,可以打开工程--—部件（快捷键CTRL+T）,去掉只显示选定项的勾，然后勾上MicrosoftADODataControl(OLEDB)，然后确定，工具栏就会多了一个adodc的控件。第一种方法:设置adodc1的属以连接数据库.在adodc1控件上右键—-Adodc属性-—使用连接字符串-—生成—-MicrosoftJet4.0OLEDBProvider——下一步—-选择或输入数据库名称—--找到要连接的数据库后，确定。然后记录源设置属性。如果要把内容提交到数据库一般使用adCmdTable。表选择要连接的表。设置完毕后就可以了。如果我们想把内容提交到数据库.举个例子。.在窗体建立一个文本框,设置属性中的DataSource为adodc1DataField为要连接的数据库的字段名。如果数据库中有字段,会让你选择。设置好后在窗体加一个添加记录和一个提交的按钮，设置代码：PrivateSubCommand1_Click()Adodc1.Recordset.Update’保存Adodc1。Refresh’刷新EndSub添加按钮代码：PrivateSubCommand2_Click()Adodc1。Recordset.AddNew’添加新纪录Adodc1.Recordset（”姓名"）.Value=Text1。TextEndSub第二种方法:在窗体添加Adodc控件一个text控件一个添加记录按钮一个提交按钮在窗体设置代码：PrivateSubForm_Load()Adodc1.ConnectionString=”Provider=Microsoft。Jet。OLEDB.4.0；DataSource=”+App.Path+”\db1.mdb；PersistSecurityInfo=False”'设置数据库路径Adodc1。CommandType=adCmdText'设置记录源Adodc1。RecordSource="select*frommessage"’连接数据库的message表文件SetText1.DataSource=Adodc1text1.DataField=”姓名”EndSub添加记录按钮代码:PrivateSubCommand1_Click（)Adodc1。Recordset。AddNew'添加新纪录EndSub提交代码：PrivateSubCommand2_Click（)Adodc1.Recordset。Update'保存Adodc1.Refresh’刷新EndSub好了连接方法讲完了,我都在机子上测试过了，因该没有什么问题的。如果有问题请多看几遍，或看些别人写的程序代码，会有很大进步的,我的VB也不好,因为不是计算机专业的，老师也没有教很多，高手莫笑。好了我再给大家几个查询数据库常用的代码:首记录按钮的代码：PrivateSubsjl_Click（)Adodc1.Recordset.MoveFirstEndSub上一条记录按钮代码：PrivateSubup_Click()Adodc1。Recordset.MovePreviousIfAdodc1.Recordset.BOFThenAdodc1.Recordset。MoveFirstEndIfEndSub下一条记录代码：PrivateSubdown_Click(）Adodc1。Recordset。MoveNextIfAdodc1。Recordset。EOFThenAdodc1。Recordset.MoveLastEndIfEndSub末记录代码:PrivateSubmjl_Click(）Adodc1。Recordset。MoveLastEndSub删除记录代码:PrivateSubCommand3_Click（)Adodc1.Recordset.Dele