tmd用ado用的其他连接数据库的方法都忘了

maoqingfeng 2002-06-03 10:16:23
请大家列举一下知道的数据库连接方法,一个20分
...全文
5 点赞 收藏 9
写回复
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
maoqingfeng 2002-06-06
这么几个人,我怎么给分啊
回复
maoqingfeng 2002-06-03
我想知道,有人知道吗,没人想要分吗
回复
swordgamer 2002-06-03
dao 和rdo 就不用讨论了,过时了。
回复
maoqingfeng 2002-06-03
大家谈谈用dao 和rdo 怎么连接
回复
maoqingfeng 2002-06-03
没人回答吗,怎么了
回复
funboy88 2002-06-03
够了没有,不够再来
回复
maoqingfeng 2002-06-03
补充一下,ado的不算。我是说除了ado的
回复
funboy88 2002-06-03
<%
dim Conn
dim Connstr
set conn = server.createobject("adodb.connection")
'-----------------SQL SERVER 7.0数据库ADO连接------------
'connstr="Driver={SQL Server};Server=(local);UID=cwecn;PWD=cwecn2002;Database=ndata"

'-----------------SQL SERVER 7.0数据库OLE连接------------
connstr="Provider=SQLOLEDB.1;User ID=cwecn;Initial Catalog=ndata;Data Source=(local);password=cwecn2002"

'connstr="DBQ=" & server.mappath("data/nbook.mdb") & ";driver={Microsoft Access Driver (*.mdb)};"

conn.open connstr
%>
回复
funboy88 2002-06-03
Public Sub DataCon(DbName As String)
Dim MSdatabase As String
Set Con = New ADODB.Connection
On Error GoTo OpenErr
MSdatabase = App.Path & "\" & DbName
Con.CursorLocation = adUseClient
Con.Provider = "Microsoft.Jet.OLEDB.4.0"
Con.Open MSdatabase
Exit Sub
OpenErr:
MsgBox "Error Opening " & MSdatabase & vbNewLine & Err.Description, vbCritical, "Open Database Error"
Unload Form1
End Sub
回复
发动态
发帖子

1180

社区成员

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