数据库一般使用adCmdTable.表选择要连接的表。
设置完毕后就可以了.
如果我们想把内容提交到数据库.举个例子..
在窗体建立一个文本框，设置属性中的DataSource为adodc1DataField为要连接的数据库的字段名。如果数据库中
有字段，会让你选择。
设置好后在窗体加一个添加记录和一个提交的按钮，设置代码：Private Sub Command1_Click()
Adodc1.Recordset.Update'保存
Adodc1.Refresh'刷新
End Sub
添加按钮代码:
Private Sub Command2_Click()
Adodc1.Recordset.AddNew'添加新纪录
Adodc1.Recordset("姓名").Value=Text1.Text
End Sub
第二种方法:
在窗体添加Adodc控件一个text控件一个添加记录按钮一个提
交按钮
在窗体设置代码:
Private Sub Form_Load()
Adodc1.ConnectionString=
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+App.Path +"\db1.mdb;Persist Security Info=False"'设置数据库路径Adodc1.CommandType=adCmdText'设置记录源Adodc1.RecordSource="select*from message"'连接数据库
的message表文件
Set Text1.DataSource=Adodc1
text1.DataField="姓名"
End Sub
添加记录按钮代码：
Private Sub Command1_Click()
Adodc1.Recordset.AddNew'添加新纪录
End Sub
提交代码：
Private Sub Command2_Click()
Adodc1.Recordset.Update'保存
Adodc1.Refresh'刷新
End Sub
好了连接方法讲完了，我都在机子上测试过了，因该没有什么问题的。如果有问题请多看几遍，或看些别人写的程序代码，会有很大进步的，我的VB也不好，高手莫笑。好了我再给大家几个查询
数据库常用的代码：
首记录按钮的代码：
Private Sub sjl_Click() Adodc1.Recordset.MoveFirst
End Sub
上一条记录按钮代码：
Private Sub up_Click() Adodc1.Recordset.MovePrevious If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst
End If
End Sub
下一条记录代码：
Private Sub down_Click() Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast
End If
End Sub
末记录代码：
Private Sub mjl_Click() Adodc1.Recordset.MoveLast
End Sub
删除记录代码：
Private Sub Command3_Click()
Adodc1.Recordset.Delete
visual basic pdf
Adodc1.Recordset.MoveNext
If(Adodc1.Recordset.BOF Or Adodc1.Recordset.EOF)Then MsgBox"已经无纪录",,"提示"
End If
End Sub

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。