Excel VBA SQL 操作Access 定义表类型？

youngkqs

请问一下，我在写SQL语句的时候，想把Access里面的表用变量代替，请问一下：变量的类型是哪个类型？谢谢


原代码如下
Function SQL_客户信息_增加Fun(ByVal 项目 As String, ByVal 内容 As String)
    Dim Con As ADODB.Connection
    Set Con = New ADODB.Connection
    Con.Open "Provider=Microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\数据库.accdb"
    Dim sql As String

    sql = "insert into 客户信息 (" & 项目 & ") values ('" & 内容 & "')"
    Con.Execute (sql) '执行sql
    Con.Close
    Set Con = Nothing
End Function
Sub SQL_客户信息_增加()
    Dim r As Integer
    r = SQL_客户信息_增加Fun("客户名称", "深圳市科勒尔科技有限公司")
End Sub


想在函数中增加一个Access表的变量。定义类型应该是哪个？String不行，已测试

jiangxiaoyun

文本吧。。。。。。

youngkqs

jiangxiaoyun 发表于 2017-7-20 17:44
文本吧。。。。。。

文本不行 类型不对