Quasi tutti i programmi per computer utili richiedono una banca dati di qualche tipo . Microsoft ha riconosciuto questo fatto nella fase iniziale e ha reso il motore di database di Microsoft Access disponibile per l'utilizzo con i programmi sviluppati in Visual Basic , a partire da VB 3 . A 6 programma VB può utilizzare il Motore di database Access tramite un componente chiamato " Microsoft Data Access Objects " o DAO . Utilizzando questo componente, è possibile interrogare , inserire, aggiornare e cancellare all'interno del database di Access. Cose che ti serviranno
Visual Basic 6.0
Microsoft Access ( Office 97 o versioni successive ) per Microsoft Data Access Objects ( scaricabile gratuitamente da Microsoft.com ) economici Show More Istruzioni
1
Avviare un nuovo progetto EXE standard in Visual Basic 6 ( VB ) avviando VB e selezionando " EXE standard " dalla nuova finestra di progetto che appare . Nel menu progetto, selezionare "Riferimenti ". Nell'elenco dei riferimenti disponibili , individuare la voce " xxx DAO Object Library ", dove xxx è il numero di versione ( 3.6 per esempio) . Fare clic sulla casella di spunta accanto alla voce e fare clic su OK .
2
Aprire il database di Access . Per fare questo, dimensione di un oggetto di tipo database . Per esempio :
Dim db come Database
Quindi utilizzare l'area di lavoro di default per aprire un file di database . Per esempio :
Set db = aree di lavoro ( 0 ) OpenDatabase . ( "C: \\ temp \\ congress.mdb " ) per
L'oggetto db è ora un database completamente inizializzato pronto da interrogare o aggiornato .
3
aprire un recordset dal database e iterare tra i record . Per fare questo , la dimensione di un oggetto Recordset e utilizzare l'oggetto di database per inizializzarlo :
Dim rs come RecordsetSet rs = db.OpenRecordset ( " Cong105 " , dbOpenDynaset ) per
In questo esempio, il tabella " Cong105 " viene aperto come un Dynaset . Un Dynaset in questo caso significa che il recordset sarà aggiornabile - record possono essere aggiunti, aggiornati e cancellati. Un recordset può anche essere aperto come dsOpenReadOnly , rendendo il recordset recordset lettura only.The l'apertura non deve essere l'intera tabella . An ( Structured Query Language ) SQL può essere utilizzata per aprire solo un sottoinsieme della tabella . Per esempio :
Set rs = db.OpenRecordset ( "select * from cong105 dove home_state = 'New York' " , dbOpenDynaset ) per
Questo interrogare la tabella Cong105 solo per quei record con una stato di residenza del " New York". scorrere l' recordset e leggere i valori con i MoveNext e EOF metodi del recordset . Ad esempio se il form ha una casella di testo di nome Text1 ( con la proprietà multiline impostata su true e le barre di scorrimento per impostare verticale):
Text1.Text = " " Anche se non rs.EOFText1.Text = Text1.Text & ; ! rs titolo & " " ! & rs Fname & "" & rs LName & vbCrLfrs.MoveNextWend
4
aggiungere un record a un televisore utilizzando i metodi AddNew e aggiornamento record . Chiamare il metodo AddNew per creare un record vuoto nel recordset . Impostare i valori per i campi del record vuoto e quindi chiamare il metodo Update per salvare i nuovi valori . Per esempio :
rs.AddNewrs FName = "Test" rs LName = "Test Ultimo " rs aggiornamento
5
Aggiornare un record esistente utilizzando il comando Modifica e metodi di aggiornamento ! . Chiamare il metodo Edit per inserire il record corrente in modalità di modifica . Impostare i valori dei campi e quindi chiamare il metodo Update per salvare le modifiche . Ad esempio : !
Rs.Editrs LName = rs LName & " . Jr" rs aggiornamento
