从Access数据库提取数据到Excel VBA表单
我在Access中有一个数据库，我想从Excel VBA表单中input一些数据到数据库中，同时也希望将一些数据恢复到表单中。
程序的思绪是
这是添加button代码：
Private Sub CommandButton1_Click() Dim con As New ADODB.Connection Dim connectionstring As String Dim sql As String connectionstring = "PROVIDER=Microsoft.ACE.OLEDB.12.0;" connectionstring = connectionstring & "DATA Source=C:\Simple.accdb;" con.Open connectionstring sql = "insert into T1(ID,FName,Email)values('" & TextBox1.Text & "', '" & TextBox2.Text & "','" & TextBox3.Text & "')" con.Execute sql MsgBox "Values Entered", vbInformation con.Close End Sub 这是searchbutton代码
Private Sub CommandButton3_Click() Dim con As New ADODB.Connection Dim rs As New ADODB.Recordset con.connectionstring = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Simple.accdb;" 'Open Db connection con.Open Set rs.ActiveConnection = con rs.Open "Select * from T1 where ID= '" & UserForm1.TextBox1.Text & "'" StartRow = 3 Do Until rs.EOF 'FName UserForm1.TextBox2.Text = rs.Fields(1).Value 'Email UserForm1.TextBox3.Text = rs.Fields(2).Value rs.MoveNext StartRow = StartRow + 1 Loop Set rs = Nothing con.Close Set con = Nothing End Sub
我的问题是，虽然我可以添加通过添加button的VBA表单，我的searchbutton代码不起作用。 它表示标准expression式中的数据types不匹配。
我想要做的就是在ID的基础上进行search。
请帮忙。
我认为你的表中的ID字段是数字的 – 你需要从searchbutton代码中的sql语句中删除单引号。