[VBA access] collegamenti DAO

[impennata]

Ciao a tutti
..mi hanno rifi.ato un db in Access 97 da risistemare!!
mi sapete dire dove posso trovare informazioni concise sulle connessioni DAO????

[xegallo]

linguaggio e versione anche nel titolo

[axsw]

Beh dipende da quello che divi fare, forse e se spieghi bene è meglio comunque.
Questa è una connessione ad un database ricordati di aggiungerlo nei riferimenti.

Dim mydata As Database
Dim myrecord As Recordset

Private Sub Form_Load()
  Set mydata = OpenDatabase(App.Path + "\" + "tuodatabase.mdb")
    Set myrecord = mydata.OpenRecordset("tuatabella")
      If myrecord.EOF Then
        'se il database è ancora vuoto
        MsgBox "Nessuna voce nel database di questo Sistema", vbInformation, "nomedeltuoprogramma"
     Else
      myrecord.MoveFirst
 'con questo ti carichi i valori di un campo nel ListBox
        Do Until myrecord.EOF
        ListBox.AddItem myrecordm.Fields("tuocampochevuoicaricarenellistbox")
        myrecord.MoveNext
    Loop
   End If
    mydatam.Close
End Sub

ciao

[axsw]

Dimenticavo nei riferimenti devi spuntare DAO 3.6 o precedente.

[impennata]

allora,
nei riferimenti ho DAO 3.5, consigliate un aggiornamento?

in ogni caso io sono abituato a lavorare con ADO per cui volevo sapere le funzioni per creare una connessione, un record set, e passare istruzioni SQl.

Al momento sto scrivendo in VBA dentro access 97 e volevo gestire un inserimento.

[impennata]

va bene sta seri di istruzioni:

Set connection = CurrentDb
Set rs = connection.OpenRecordset("tblAnagrafica")
rs.AddNew