请问下面要怎么修改，谢谢！

alantang　发表于：2015-04-14 14:07:58 　

窗体加载在这个位置出错rst.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdTableDirect

代码如下：

Private Sub Form_Load()
    Dim strSQL As String
    Dim rst As New ADODB.Recordset
        strSQL = "SELECT * From [pc] where " & Form_电脑信息查询.List3.Column(0)
        rst.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdTableDirect
MsgBox text2
Me![PC_text1] = rst![PC编号]
End Sub

Top

alantang 发表于：2015-04-14 14:10:58

Top

我的ACCESS 发表于：2015-04-14 23:01:56

strSQL = "SELECT * From [pc] where [你的字段名]=" & Form_电脑信息查询.List3.Column(0)

还要注意Form_电脑信息查询.List3.Column(0)的值是数字、字符、日期的格式

Top

alantang 发表于：2015-04-15 08:54:10

我改过了，但总是报下面这条错识误。

rst.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdTableDirect

Top

zhaoyoulong 发表于：2015-04-15 10:01:03

试试：trSQL = "SELECT * From [pc] where [你的字段名]='" & Form_电脑信息查询.List3.Column(0,0) &"'"

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

请问下面要怎么修改，谢谢！