Article ID: 129883
Article Last Modified on 12/9/2003
Dim DB As Database
Set DB = OpenDatabase("Biblio.mdb")
For example, instead of this old code:
Dim DS As Dynaset
Dim SS As Snapshot
Dim TB As Table
Set DB = OpenDatabase("Biblio.mdb")
Set DS = DB.CreateDynaset("Authors")
Set SS = DB.CreateSnapshot("Authors")
Set TB = DB.OpenTable("Authors")
Use this new code:
Dim DB As Database
Dim RS1 As Recordset
Dim RS2 As Recordset
Dim RS3 As Recordset
Set DB = OpenDatabase("Biblio.mdb")
Set RS1 = DB.OpenRecordset("Authors", dbOpenDynaset)
Set RS2 = DB.OpenRecordset("Authors", dbOpenSnapshot)
Set RS3 = DB.OpenRecordset("Authors", dbOpenTable)
-or-
Sub Form1_Click()
Dim ds As dynaset 'this generates "User-defined type not defined"
Data1.Databasename = "Biblio.MDB"
Data1.RecordSource = "Authors"
Data1.Refresh
Set ds = Data1.Recordset.CreateDynaset()
' If ds is Dim'd as a RecordSet,
' this generates "Feature not available"
ds.Close
Set ds = Nothing
End Sub
Additional query words: 4.00 vb4win vb4all
Keywords: kbprb KB129883