vb select中使用变量总报错“from子句语法错误”

来源:百度知道 编辑:UC知道 时间:2024/05/27 13:49:28
Dim conn As New ADODB.Connection
Dim rsstu As ADODB.Recordset

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
Dim id%, db$, cnn$
If Right(App.Path, 1) = "\" Then
db = App.Path + "Record.mdb"
Else
db = App.Path + "\" + "Record.mdb"
End If
cnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db & ";User Id=;Password=;"
conn.Open cnn

Dim tbltem$
tbltem = Node.parent.text & "话费"
Set rsstu = New ADODB.Recordset
rsstu.CursorLocation = adUseClient
rsstu.Open "select * from " & tbltem, conn, adOpenStatic, _adLockReadOnly
Set DataGrid1.DataSource = rsstu
End Sub
谢谢
运行后,查询语句错误,查询子句不完整
这个方法用过一次。。。
天哪,不会是因为盗版的问题吧

Dim conn As New ADODB.Connection
Dim rsstu As ADODB.Recordset

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
Dim id%, db$, cnn$
If Right(App.Path, 1) = "\" Then
db = App.Path + "Record.mdb"
Else
db = App.Path + "\" + "Record.mdb"
End If
cnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db & ";User Id=;Password=;"
conn.Open cnn

Dim tbltem$
tbltem = Node.parent.text & "话费"
Set rsstu = New ADODB.Recordset
rsstu.CursorLocation = adUseClient
rsstu.Open "select * from '" & tbltem & "'", conn, adOpenStatic, _adLockReadOnly
Set DataGrid1.DataSource = rsstu
End Sub