江湖救急！！！！

Question

我写的一点代码，运行时说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  

Answer 1

哪个open错呀？
conlocal还是rstTmp？

Answer 2

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 之间只有一个空格。

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

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

Answer 7

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

Answer 8

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

Answer 9

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

Answer 10

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

Answer 11

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
绝对测试通过的！！，那你找找原因吧。

Answer 12

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

Answer 13

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

Answer 14

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