Tabelle # Per creare, ad esempio, un oggetto Recordset nel codice e passarlo a un controllo Data esistente, utilizzare il seguente codice:
Dim Db As Database, Rs As Recordset ' Definite come variabili pubbliche. Sub ApplyRecordset() Set Db = Workspaces(0).OpenDatabase("BIBLIO.MDB") Set Rs = Db.OpenRecordset("AUTHORS") ' Attiva automaticamente l'oggetto Table. Set Data1.Recordset = Rs ' Assegna il Recordset. Data1.Recordset.Index = "PrimaryKey" Debug.print Rs.Type ' Visualizza il tipo di oggetto creato. End Sub |