江湖救急！！！！

2003-04-10 01:15:43 101 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

算法交易VWAP&TWAP VWAP的一些算法模型细节参考博客地址http://blog.sina.com.cn/s/blog_ad47bc5b01014elx.html 日内交易量预测模型http://blog.sina.com.cn/s/blog_976461170102v43p.html 算法交易其实主要是用在基金公司、券商量化比较多。例如我已经选好股，要大量买入，但是单凭交易员的操作海量单而且要完阅读详情

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

...全文

OpenSceneGraph编译、安装、开发环境详细描述WIndows 10下使用Visual Studio 2019编译OpenSceneGraph 3.6.5的操作流程阅读详情

camzhang

数据库(包含打印，安装，报表) 1,217 成员 55,949 内容

+ 关注 + 加入社区

切换为时间正序

sxs69 2003-04-10

打赏
举报

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

camzhang 2003-04-10

打赏
举报

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

sxs69 2003-04-10

打赏
举报

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

youxia001 2003-04-10

打赏
举报

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

minajo21 2003-04-10

打赏
举报

camzhang 2003-04-10

打赏
举报

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

sxs69 2003-04-10

打赏
举报

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

camzhang 2003-04-10

打赏
举报

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

camzhang 2003-04-10

打赏
举报

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

camzhang 2003-04-10

打赏
举报

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

wxy001 2003-04-10

打赏
举报

自己看看吧

wxy001 2003-04-10

打赏
举报

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

youxia001 2003-04-10

打赏
举报

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

camzhang 2003-04-10

打赏
举报

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

youxia001 2003-04-10

打赏
举报

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

minajo21 2003-04-10

打赏
举报

哪个open错呀？
conlocal还是rstTmp？

江湖救急！！！！

相关推荐