面部神经痉挛与面瘫:VB连接Access数据库

来源：百度文库 编辑：高考问答 时间：2024/04/27 01:57:59
实现:Text里的内容对应的是表A里的First字段第1个,请问这代码该怎么写?(Access数据源已建,名称:temp)
数据库没有密码 最好有具体点的代码~小弟急需,谢谢

Private Sub Command1_Click()
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset

Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=temp.mdb;Persist Security Info=False"
rs.CursorLocation = adUseClient
rs.Open "select * from 表", cnn, adOpenDynamic, adLockPessimistic
If rs.RecordCount > 0 Then
Text1.Text = rs.Fields(0).Value
End If
End Sub

不是有个DATA控件可以直接连到数据库吗？里面的数据也是对应好的~~我也不懂~~

VB连接Access数据库 如何在VB中连接access数据库 请问怎么连接vb 和 access数据库 vb如何连接远程Access数据库 vb用代码连接数据库(access)和添加删除? 请问：如何在VB.net中连接调用ACCESS数据库？ 如何进行VB与数据库ACCESS的连接 vb中的commondialog控件怎么连接access数据库？ 有关vb与access数据库的连接问题 vb中datagrid如何用代码连接access数据库