江湖救急！！！！-CSDN论坛

⋅初学C++使用什么平台工具比较适合？ ⋅VB的DLL怎么函数发布？ ⋅TMSComm控件使用问题 更多帖子 关注私信空间博客 camzhang 本版专家分：64 结帖率 100%: 我写的一点代码，运行时说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

0 2003-04-10 13:15:43

回复数 16 只看楼主引用举报楼主

⋅还是那个循环递归，又有新的需求 ⋅接上次的那个循环递归的问题，另开了一帖 ⋅一个类似递归的问题，请帮忙看看 更多帖子 关注私信空间博客 minajo21 本版专家分：15057 红花 2003年2月 VB大版内专家分月排行榜第一: 哪个open错呀？
conlocal还是rstTmp？

0 2003-04-10 13:30:54

只看TA 引用举报 #1 得分 0

⋅初学C＋＋，几个Dev编译错误，请各路高手指正！多谢！ ⋅propertyGrid控件的下拉框问题请教 ⋅vba是否可以引用由c#编写的dll,请各位高人赐教 更多帖子 关注私信空间博客 youxia001 本版专家分：1572: 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 之间只有一个空格。

0 2003-04-10 13:33:28

只看TA 引用举报 #2    得分 50

camzhang 本版专家分：64: 下面的，说对象‘open’的方法‘—recordset’调用失败

0 2003-04-10 13:33:41

只看TA 引用举报 #3 得分 0

youxia001 本版专家分：1572: 那是因为数据库里没有output这个表的缘故。你换别的表名试试

0 2003-04-10 13:37:21

只看TA 引用举报 #4 得分 20

⋅通过java远程访问domino数据库，为何不能访问，可能的原因是？ ⋅有关分页中各页内容的选择问题(分不够可以加) ⋅B/S下有关信息采编的内容 更多帖子 关注私信空间博客 wxy001 本版专家分：3780: 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

0 2003-04-10 13:38:49

只看TA 引用举报 #5    得分 0

⋅通过java远程访问domino数据库，为何不能访问，可能的原因是？ ⋅有关分页中各页内容的选择问题(分不够可以加) ⋅B/S下有关信息采编的内容 更多帖子 关注私信空间博客 wxy001 本版专家分：3780: 自己看看吧

0 2003-04-10 13:39:43

只看TA 引用举报 #6 得分 0

camzhang 本版专家分：64: 表是我创建好的，您的代码，错误出现在conlocal.open那句

0 2003-04-10 13:39:54

只看TA 引用举报 #7 得分 0

camzhang 本版专家分：64: youxia001,表是我创建好的，您的代码，错误出现在conlocal.open那句

0 2003-04-10 13:44:39

只看TA 引用举报 #8 得分 0

camzhang 本版专家分：64: 出现的是“找不道可安装的ISAM”

0 2003-04-10 13:46:53

只看TA 引用举报 #9 得分 0

⋅不能下载Banasoft Winsock Controls(1.0) ⋅拨号网络 ⋅拨号网络 更多帖子 关注私信空间博客 sxs69 本版专家分：17757: 老兄，“output”是VB保留字，你只能换个表名，就能通过了

0 2003-04-10 13:57:06

只看TA 引用举报 #10 得分 0

camzhang 本版专家分：64: 换了也不行，还是出现“找不到可安装的ISAM”，ISAM是啥呀？

0 2003-04-10 14:03:21

只看TA 引用举报 #11 得分 0

⋅还是那个循环递归，又有新的需求 ⋅接上次的那个循环递归的问题，另开了一帖 ⋅一个类似递归的问题，请帮忙看看 更多帖子 关注私信空间博客 minajo21 本版专家分：15057 红花 2003年2月 VB大版内专家分月排行榜第一: up

0 2003-04-10 14:03:55

只看TA 引用举报 #12 得分 0

⋅初学C＋＋，几个Dev编译错误，请各路高手指正！多谢！ ⋅propertyGrid控件的下拉框问题请教 ⋅vba是否可以引用由c#编写的dll,请各位高人赐教 更多帖子 关注私信空间博客 youxia001 本版专家分：1572: 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
绝对测试通过的！！，那你找找原因吧。

0 2003-04-10 14:12:06

只看TA 引用举报 #13    得分 20

⋅不能下载Banasoft Winsock Controls(1.0) ⋅拨号网络 ⋅拨号网络 更多帖子 关注私信空间博客 sxs69 本版专家分：17757: 下面的，说对象‘open’的方法‘—recordset’调用失败
你前面的代码没有错误，怎么现在又出现了

0 2003-04-10 14:15:17

只看TA 引用举报 #14 得分 10

⋅初学C++使用什么平台工具比较适合？ ⋅VB的DLL怎么函数发布？ ⋅TMSComm控件使用问题 更多帖子 关注私信空间博客 camzhang 本版专家分：64: 大哥谢谢，好象是我的软件有问题，总是提示出现“找不到可安装的ISAM”，ISAM是啥呀？分一定送上，您放心

0 2003-04-10 14:23:05

只看TA 引用举报 #15 得分 0

⋅不能下载Banasoft Winsock Controls(1.0) ⋅拨号网络 ⋅拨号网络 更多帖子 关注私信空间博客 sxs69 本版专家分：17757: Data  Source 中间只有一个空格，你用了两个，应该是Data Source
Persist  Security  Info=False 中间都是只有一个空格，你也用了两个
应该是Persist Security Info=False
另外也要注意路径中的空格

0 2003-04-10 14:49:53

只看TA 引用举报 #16    得分 0