江湖救急！！！！

[camzhang]

我写的一点代码，运行时说open无效，请指教，在线等待
Private Sub Command1_Click()
Dim conlocal As Connection
Dim rstTmp As Recordset
Dim strSou As String
strSou = "select * from output"
Set conlocal = New ADODB.Connection
conlocal.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator.CAMBRIDGE\桌面\复件 mmi\复件 print\product.mdb;Persist Security Info=False")
Set rstTmp = New ADODB.Recordset
With rstTmp
.ActiveConnection = conlocal
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockPessimistic
.Source ="select * from output"
.Open
End With
End Sub

[minajo21]

哪个open错呀？
conlocal还是rstTmp？

[youxia001]

Private Sub Command1_Click()
Dim conlocal As Connection
Dim rstTmp As Recordset
Dim strSou As String
strSou = "select * from output"
Set conlocal = New ADODB.Connection
conlocal.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and settings\Administrator.CAMBRIDGE\桌面\复件 mmi\复件 print\product.mdb;Persist Security Info=False"
Set rstTmp = New ADODB.Recordset
With rstTmp
.ActiveConnection = conlocal
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockPessimistic
.Source = "select * from output"
.Open
End With
Set conloacol = Nothing
Set rsttemp = Nothing
End Sub

我已测试过了，没问题的。 open 方法，如果前面没赋值就不要用括号 ，另外 Date Souce 之间只有一个空格。

[camzhang]

下面的，说对象‘open’的方法‘—recordset’调用失败

[youxia001]

那是因为数据库里没有output这个表的缘故。你换别的表名试试

[wxy001]

Dim conlocal As ADODB.Connection
SET conlocal = New adobd.connection

conlocal.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator.CAMBRIDGE\桌面\复件 mmi\复件 print\product.mdb;Persist Security Info=False"
conlocal.CursorLocation = adUseClient
conlocal.Mode = adModeReadWrite + adModeShareDenyNone
conlocal.Open

[wxy001]

自己看看吧

[camzhang]

表是我创建好的，您的代码，错误出现在conlocal.open那句

[camzhang]

youxia001,表是我创建好的，您的代码，错误出现在conlocal.open那句

[camzhang]

出现的是“找不道可安装的ISAM”

[sxs69]

老兄，“output”是VB保留字，你只能换个表名，就能通过了

[camzhang]

换了也不行，还是出现“找不到可安装的ISAM”，ISAM是啥呀？

[minajo21]

up

[youxia001]

Private Sub Command1_Click()
Dim Conlocal As ADODB.Connection
Dim RstTmp As ADODB.Recordset
Dim strSou As String
strSou = "select * from DQ_TB"
Set Conlocal = New ADODB.Connection
Conlocal.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\成果录入\Chglr.mdb;Persist Security Info=False"
Set RstTmp = New ADODB.Recordset
With RstTmp
.ActiveConnection = Conlocal
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockPessimistic
.Source = strSou
.Open
End With
Set conloacol = Nothing
Set rsttemp = Nothing
End Sub
绝对测试通过的！！，那你找找原因吧。

[sxs69]

下面的，说对象‘open’的方法‘—recordset’调用失败
你前面的代码没有错误，怎么现在又出现了

[camzhang]

大哥谢谢，好象是我的软件有问题，总是提示出现“找不到可安装的ISAM”，ISAM是啥呀？分一定送上，您放心

[sxs69]

Data Source 中间只有一个空格，你用了两个，应该是Data Source
Persist Security Info=False 中间都是只有一个空格，你也用了两个
应该是Persist Security Info=False
另外也要注意路径中的空格