有关数据库连接的问题????

Question

strDSN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=你的数据库路径
pConn.Open strDSN

Answer 1

你去那看看把，  实在太多了，  挑一个http://www.jinesc.com/myweb/disp.asp?idd=91&room=40

Answer 2

引用Microsoft ActiveX Data Object2.1以上版本
Option Explicit
Dim cnn As New ADODB.ConnectionPrivate Sub Form_Load()
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\xxxx.MDB;Persist Security Info=False;Jet OLEDB:Database Password=YourPassword"
    Dim rst As New ADODB.Recordset
    rst.Open "select * from table1", cnn, adOpenKeyset, adLockPessimistic, adCmdText
    Set Me.MSFlexGrid1.DataSource = rst
End Sub

Answer 3

Dim cnn1 As ADODB.Connection
Dim rst As ADODB.Recordset
Dim cnnstr As String
Set cnn1 = New ADODB.Connectioncnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstrSet rst = New ADODB.Recordset
rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Open "select * from stu", cnn1Set Form1.MSHFlexGrid1.DataSource = rstrst.Close
cnn1.Close
End Sub