vb+access的数据库简单问题,请各位高手解答

Question

Dim dbs As Database
Set dbs = OpenDatabase("d:/mywork/db_student", False, False, ";pwd =1")
dbs.Close

Answer 1

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其中数据库路径用commondialog的返回值替换

Answer 2

Data1.DatabaseName = App.Path + "\表.mdb"
这样随便你把程序拿到那里，它都是打开当前路径的数据库

Answer 3

Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" & commondialog.filename & ";"