ADO求助:在线等待

jingmipingtai 2004-10-20 02:53:18
我现在想通过ADO连接数据库,但是要求不用这个控件,而是在程序中生通过代码进行连接数据库,有没有人知道连接方法,或步骤,是不是要生成一个类之类的,提供相关资料也可,谢谢
...全文
87 点赞 收藏 11
写回复
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
cosio 2004-10-20
中:”引用“在“工程”里
英:“project”后,references
回复
jingmipingtai 2004-10-20
谢谢你们的答复,刚才我在部件里找,找了半天也没找到哪个东东,现在找到了,我没有看到“引用”,失误!!
回复
jingmipingtai 2004-10-20
能不能就不加控件如何实现数据库给点思路或是提示,小妹再这里不胜感激!着急呀!
回复
lincaicong 2004-10-20
工程-》引用-》MICROSOFT ACTIVEX DATA OBJECTS 2.* LIBRARY
打上勾就好了
回复
idcsdn 2004-10-20
你看得到的ado控件只是使用ADODB的东西,目的是为了让操作容一些,实质是一样的
回复
penn4u 2004-10-20
不加控件,恐怕不可以吧,
我是菜鸟
回复
jingmipingtai 2004-10-20
就是在窗体中加一个ADO控件么?,但是我们经理不让用这个控件,要用代码写。郁闷ING,请指教
回复
apple1980 2004-10-20
要引用一下,MICROSOFT ACTIVEX DATA OBJECTS 2.* LIBRARY
回复
GGL123 2004-10-20
引用:Microsoft ActiveX Data Objects 2.5 Library
回复
jingmipingtai 2004-10-20
我刚才把你写的这段代码在机器里编译了一下,在这句话Public mycnn As ADODB.Connection显示错误“用户定义类型未定义”,是不是我要定义一个ODBCDB类呀
回复
apple1980 2004-10-20
Public mycnn As ADODB.Connection
Public mycmd As ADODB.Command
Public myrst As ADODB.Recordset
Public myerr As ADODB.Error

Public Function opendatabase()
On Error Resume Next
Dim constring As String
'constring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Jet OLEDB:Database Password=;"

constring = "DSN=;DBQ=" & App.Path & "\db1.mdb" & ";DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;PWD=;UID=admin;"

Set mycnn = New ADODB.Connection
Set myrst = New ADODB.Recordset
mycnn.Open constring
myrst.ActiveConnection = mycnn
End Function
回复
发动态
发帖子

1180

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
社区公告
暂无公告