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

[maoqingfeng]

请大家列举一下知道的数据库连接方法，一个20分

[funboy88]

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

[funboy88]

<%
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
%>

[maoqingfeng]

补充一下，ado的不算。我是说除了ado的

[funboy88]

够了没有，不够再来

[maoqingfeng]

没人回答吗，怎么了

[maoqingfeng]

大家谈谈用dao 和rdo 怎么连接

[swordgamer]

dao 和rdo 就不用讨论了，过时了。

[maoqingfeng]

我想知道，有人知道吗，没人想要分吗

[maoqingfeng]

这么几个人，我怎么给分啊