以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  为何连接数据库报错？  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=51759)
--  作者：ljact
--  发布时间：2013/5/7 16:25:44
--  为何连接数据库报错？

报错：语句未结束。

请教大师，下面这个语句应该怎么改？

 

代码：

sub DataInsert()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset

Set adoConn=CreateObject("Adodb.Connection")
adoConn.Open"Provider=MSDAORA.1;Password=****;User ID=user;Data Source=fdc"

 

 

conn.Close
Set conn = Nothing

end sub
--  作者：王锋
--  发布时间：2013/5/7 16:54:57
--  
金字塔是VBS语法，你的代码是VB的语法，建议你百度一下VBS连接数据库的例子，或者本论坛的一堆例子
--  作者：ljact
--  发布时间：2013/5/7 17:24:14
--  
没有发现一样的例子。有谁能帮忙改一下吗？
--  作者：guotx2010
--  发布时间：2013/5/8 8:43:06
--  
http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=2634
看看这个帖子。