程序:
Public Sub Form_Load()
Dim Conn As ADODB.connection
Dim Reco As ADODB.Recordset
Set Conn = New ADODB.connection
Set Reco = New ADODB.Recordset
Dim conn_str As String
Dim reco_str As String
Dim statestring As String
Dim mod01 As Long
mod01 = 108
conn_str = "Provider=microsoft.jet.oledb.4.0;data source=C:\Documents and Settings\chengjun\桌面\lab\db1.mdb"
Conn.open conn_str
Select Case Conn.state
Case adstateclose
statestring = "adstateclose"
Case adstateopen
statestring = "adstateopen"
End Select
MsgBox "连接成功", , statestring
reco_str = "select * from 器件损耗表 where 型号=mod01"
Reco.open reco_str, Conn, 1, 1
Text1.Text = Reco(2).Type
End Sub
我开始时Sql = "SELECT * FROM 器件损耗表 Where 型号 = mod01"一句的
mod01是一个常数,也没定义mod01,可以运行。但我定义了变量mod01并给它赋值,用它代替了常量的位置后,程序就不行了,提示下一句Reco.open reco_str, Conn, 1, 1中有参数值未确定。很奇怪,难道我给mod01赋了值,在执行Reco.open语句时,它不会识别出mod01的值,而认为它是值未知?
求解释,十分感谢!
|