Vba rs.execute (参数查询)

Question

拜托，你能告诉我使用 vba 执行 SQL 查询的句子是怎样的吗？（带参数）我正在尝试这样做：

首先准备一个sub来调用函数Arir_Recordset:

Public 子 Retriev_rs()

Dim Query As String
Query = "SELECT * FROM  '" & Table & "'  WHERE DNI = '" & DNI & "'  "
Dim rs2 As ADODB.Recordset
Set rs2 = New ADODB.Recordset


Open_Connection---- Works well!

Set rs2 = Abrir_Recordset(Query, "PRODUCTOS_CLIENTESBCO", "00000098687")


End Sub

函数：

Public 函数 Abrir_Recordset(Query As String, Table As String, DNI As String) As ADODB.Recordset

Dim comm As ADODB.Command

Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset
rs.CursorType = adOpenStatic
rs.LockType = adLockOptimistic

Set rs = conn.Execute(QUERY)

Set Abrir_Recordset = rs


End Function

问题：

无法识别查询。它说：

“

附近的语法不正确

正在阅读：

 - "SELECT * FROM  ''  WHERE DNI = ''  "

当然... Query 写得不好。你能帮帮我吗？？

非常感谢！！！

Answer 1

完成...将参数传递给此函数效果很好：

Public Function Abrir_Recordset(Tabla As String, DNI As String) As ADODB.Recordset

Dim comm As ADODB.Command

Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset
rs.CursorType = adOpenStatic
rs.LockType = adLockOptimistic

Query = "Select * from  " & Tabla & "  where DNI = '" & DNI & "'"

Abrir_Conexion


Set rs = conn.Execute(Query)

Set Abrir_Recordset = rs


End Function

Vba rs.execute (参数查询)

Vba rs.execute (Parameter Query)

sql

vba

recordset