从Access数据库将数据提取到Excel VBA表单

Question

我在Access中有一个数据库，我想从Excel VBA表单中输入一些数据到数据库中，还想将一些数据取回表单中。

程序的截图是

这是添加按钮代码：

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

这是搜索按钮代码

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

我的问题是，尽管我能够通过VBA表单添加ADD按钮，但是我的搜索按钮代码无法正常工作。 它说标准表达式中的数据类型不匹配。

我要做的就是根据ID进行搜索。

请帮忙。

Answer 1

我认为表格中的ID字段是数字-您需要在搜索按钮代码中的sql语句中的条件周围除去单引号。