UC知道高分急求vb数据库问题
来源：百度知道 编辑：UC知道 时间：2024/05/17 22:00:22
用VB做数据库系统 dcbOrders是DATACOMBO的一个控件 但是我一执行下拉式菜单就出现424错误，关键是strQuery里面那个SQL查询 每次打都报错 我的QQ 65552699 我可以把源程序发给你 做到这部卡死了。。
Private Sub Command1_Click()
End
End Sub
Private Sub dcbOrders_Click(Area As Integer)
Dim strQuery As String
strQuery = "select * from Customers,Orders where Customers.客户号 = Orders.客户号 And Customers.客户号 = " & dcbOrders.BoundText
With AdoCust
.RecordSource = strQuery
.Refresh
End With
End Sub
1楼那位 刚才我试过了 不行。。。
Private Sub Command1_Click()
End
End Sub
Private Sub dcbOrders_Click(Area As Integer)
Dim strQuery As String
strQuery = "select * from Customers,Orders where Customers.客户号 = Orders.客户号 And Customers.客户号 = " & dcbOrders.BoundText
With AdoCust
.RecordSource = strQuery
.Refresh
End With
End Sub
1楼那位 刚才我试过了 不行。。。
SQL查询是错了,改成：
strQuery = "select * from Customers,Orders where Customers.客户号 = Orders.客户号 And Customers.客户号 = '" & dcbOrders.BoundText & "'"
OK!
因为dcbOrders.BoundText的值是字符串！
哦，那我也爱莫能助了。等待高人指点！
语句没有错,有可能是strQuery = "select * from Customers,Orders where Customers.客户号 = Orders.客户号 And Customers.客户号 = " & dcbOrders.BoundText
有问题,或者是你连接路径错,重新连一次,可能就行了.
试一下
strQuery = "select Customers.*, Orders.* from Customers,Orders where Customers.客户号 = Orders.客户号 And Customers.客户号 = " & dcbOrders.BoundText