求一个VB连接ACCESS数据库的代码

来源：百度知道 编辑：UC知道 时间：2024/06/06 07:24:00
我想要添加一个按钮和一个text
一点那个按钮就能显示所连接的ACCESS数据库的表内容
我小菜一个,不知道怎么做...
请求高人指点

用text我不知道，建议使用datagrid和adodc吧
command1_click代码如下：
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库名.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from 表名"
Set DataGrid1.DataSource = Adodc1

建议使用ado进行数据库连接，ado的帮助中都有示例代码，你拷贝进vb工程就可以用了。建议了解一下connection对象和recordset对象以及sql语句。

添加一个ADO控件和combo控件和DataGrid控件

Private Sub Form_Load()
Dim str As String
str = App.Path
If Right(str, 1) <> "\" Then
str = str + "\"
End If
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & str & "\数据库名.mdb"
Adodc1.RecordSource = "select * from 数据库表名"
Adodc1.Refresh
For i = 0 To Adodc1.Recordset.Fields.Count - 1
Combo1.AddItem Adodc1.Recordset.Fields(i).Name
Next i
Combo1.Text = Combo1.