Question

vb 实时错误 至少一个参数没有被指定值

Dim aa As String

Private Sub Combo1_Click()
aa = Trim(Combo1.Text)

End Sub

Private Sub Command1_Click()
Dim i As Integer
Dim cn As ADODB.Connection
Dim rs As Recordset
Dim sql, sql1 As String
Set cn = New ADODB.Connection
cn.CursorLocation = adUseClient
cn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & App.Path & "\数据库.mdb"
sql1 = "select * from 机房软件 where 机房名称=aa"
Debug.Print
Set rs = cn.Execute(sql1)
aa已经被赋值机房1了，不知道有什么格式错误

Answer 1

sql1 = "select * from 机房软件 where 机房名称=aa"，aa缺少单引号，这个报错是Access的报错
修改为 ：
sql1 = "select * from 机房软件 where 机房名称='"+aa+"'"