社区
数据库(包含打印,安装,报表)
帖子详情
为什么我不能new ADODB.connection?
eileendl
2002-10-26 06:26:13
我使用set cn=new ADODB.connection时提示错误: ActiveX 不能创建对象?这是什么问题?请高人指点.
...全文
329
7
打赏
收藏
为什么我不能new ADODB.connection?
我使用set cn=new ADODB.connection时提示错误: ActiveX 不能创建对象?这是什么问题?请高人指点.
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
7 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
luosha80
2002-11-01
打赏
举报
回复
是的啊,ADO是否引用啊。
Intelement
2002-11-01
打赏
举报
回复
是啊
确保已经“那个”了 呵呵
Project -> Reference -> (工程 -> 引用 ->)
选中Microsoft ActiveX Data Object 2.0 Library
wxy001
2002-11-01
打赏
举报
回复
看你有没有引用ado,
然后dim cn as New ADODB.Connection
好象msdn 上有完整的例子
shuchang0626
2002-10-27
打赏
举报
回复
来晚了
w18ily
2002-10-26
打赏
举报
回复
确定你已经引用了micsoft activex data objects(ado)
用dim cn as ADODB.connection定义:
然后用
set cn=new ADODB.connection
不过,现在更多的是这样用:
dim cn as New ADODB.Connection!!
shashadog
2002-10-26
打赏
举报
回复
up!
zjgood
2002-10-26
打赏
举报
回复
先用
dim cn as new ADODB.connection
set cn=new ADODB.connection
确定你已经引用了micsoft activex data objects(ado)
ado
db
Connection
对象简介
ado
db
Connection
对象简介
VB 与SQL连接源程式
Private Function Selectsql(SQL As String) As
ADO
DB
.Recordset '返回
ADO
DB
.Recordset对象 Dim ConnStr As String Dim Conn As
ADO
DB
.
Connection
Dim rs As
ADO
DB
.Recordset Set rs =
New
ADO
DB
.Recordset Set Conn =
New
ADO
DB
.
Connection
'On Error GoTo MyErr: ConnStr = "Provider=SQLOLE
DB
.1;Persist Security Info=True;User ID=sa;Password=sa;Initial Catalog=data;Data Source=127.0.0.1" '这是连接SQL数据库的语句 Conn.Open ConnStr rs.CursorLocation = adUseClient rs.Open Trim$(SQL), Conn,
adO
penDynamic, adLockOptimistic Set Selectsql = rs 'Exit Function
VB访问ACCESS2007数据库acc
db
Public cn As
ADO
DB
.
Connection
Public rs As
ADO
DB
.Recordset Private Sub Form_Load() Set rs =
New
ADO
DB
.Recordset Open
DB
rs.Open "select * from Large", cn, 1, 3 Do While Not rs.EOF Combo1.AddItem rs("Description") rs.MoveNext Loop End Sub
学生信息管理系统
学生信息管理系统Private Sub Command2_Click() Dim conn As
New
ADO
DB
.
Connection
Dim rs As
New
ADO
DB
.Recordset Dim sql As String
调用CSharp连接属性窗口
调用CSharp连接属性窗口 string strConn = string.Empty; MSDASC.DataLinks dataLink =
new
MSDASC.DataLinksClass();
ADO
DB
.
Connection
myConn = dataLink.Prompt
New
() as
ADO
DB
.
Connection
; if (myConn != null) strConn = myConn.
Connection
String; return strConn;
数据库(包含打印,安装,报表)
1,217
社区成员
55,950
社区内容
发帖
与我相关
我的任务
数据库(包含打印,安装,报表)
VB 数据库(包含打印,安装,报表)
复制链接
扫一扫
分享
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章