UC知道SQL语句错哪了阿，为什么报424要求对象阿？
来源：百度知道 编辑：UC知道 时间：2024/06/16 02:18:58
这么简单的语句死活编不过，快疯掉了！
高手救命啊！
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset, sql As String
Private Sub Command1_Click()
rs.Open "Select * From 部门表 where Dep_ID=' " & Trim$(id.Text ）& " ' ", cn, 3, 1
List1.Clear
For i = 1 To rs.RecordCount
List1.AddItem rs("Dep_Name")
rs.MoveNext
Next
rs.Close
Set rs = Nothing
End Sub
报错在rs.Open "Select * From 部门表 where Dep_ID=' " & Trim$(id.Text ）& " ' ", cn, 3, 1
也用其他方法试了，同样的错，好像只要不加Where及后面的就可以执行，一加上就报424，到底错哪了？
表名和字段名都没错哦，去掉Where语句我试过了，连得上数据库的。我已经用另一种方法编了程序，可以过了。但还是不知道这哪错了，希望高手们指点迷津！
高手救命啊！
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset, sql As String
Private Sub Command1_Click()
rs.Open "Select * From 部门表 where Dep_ID=' " & Trim$(id.Text ）& " ' ", cn, 3, 1
List1.Clear
For i = 1 To rs.RecordCount
List1.AddItem rs("Dep_Name")
rs.MoveNext
Next
rs.Close
Set rs = Nothing
End Sub
报错在rs.Open "Select * From 部门表 where Dep_ID=' " & Trim$(id.Text ）& " ' ", cn, 3, 1
也用其他方法试了，同样的错，好像只要不加Where及后面的就可以执行，一加上就报424，到底错哪了？
表名和字段名都没错哦，去掉Where语句我试过了，连得上数据库的。我已经用另一种方法编了程序，可以过了。但还是不知道这哪错了，希望高手们指点迷津！
你把这个语句在程序中打印出来，"Select * From 部门表 where Dep_ID=' " & Trim$(id.Text ）& " ' "
然后把打印出来的，放到数据库的查询分析器里，执行看看是不是有错误。
可不可以把表结构贴出来，怀疑你字段名写错了
Dep_ID
“id.Text ”id应该是保留字符串，换成id1.text就可以
猜想将Text控件ID的名字改成其他名字试试
id不是保留字