在Microsoft Excel中使用VBA将数据从Excel导出到Access中错误

Question

我目前正在使用Excel VBA制作服务系统应用程序。 我有一个用户窗体来获取输入，我想将导入数据保存到几个Microsoft Access表中。

我试图从用户窗体中提取数据并将其输入到访问表中，当我运行此代码时出现语法错误。 拜托我需要你的帮忙。

Public Sub AddDatabaseEntry()

  Dim cn As New ADODB.Connection
  Dim rs As New ADODB.Recordset
  Dim stDB As String, stSQL As String, stProvider As String
  Dim Name As String
  Dim Address As String

  Name = TextBox1
  Address = TextBox2

  stDB = "Data Source= " & ThisWorkbook.Path & "\SERVDB.accdb"
  stProvider = "Microsoft.ACE.OLEDB.12.0"

  'Opening connection to database
  With cn

      .ConnectionString = stDB
      .Provider = stProvider
      .Open

  End With

 'SQL Statement of what I want from the database
  stSQL = "INSERT INTO Client (FullName, Address) " & _
          "Values (" & Name & ", " & Address & ")"

  cn.Execute stSQL

  cn.Close
  Set rs = Nothing
  Set cn = Nothing

End Sub

Private Sub CommandButton2_Click()

  AddDatabaseEntry

End Sub

Answer 1

@Comintern所说的可以用这种方式解释。
将字符串变量用转义的双引号或单引号引起来

像这样

  stSQL = "INSERT INTO Client (FullName, Address) " & _
          "Values (""" & Name & """, """ & Address & """)"

或这个

  stSQL = "INSERT INTO Client (FullName, Address) " & _
          "Values ('" & Name & "', '" & Address & "')"

作为旁注，

强烈建议将“ NAME”变量更改为其他名称，因为这是VB / VBA中的保留字