Fare clic destro sul programma di Visual Basic 6.0 e scegliere " Esegui come amministratore ". Avviare un nuovo progetto facendo clic su "File " e poi " Nuovo progetto ". Selezionare l'opzione " Data Project " modello dall'elenco .
2
doppio clic sul " frmDataEnv " mostrare nella lista " Data Project " sulla destra . Inserire un controllo dati ADO sul modulo facendo doppio clic sul controllo ADODC nella casella degli strumenti sulla sinistra dello schermo .
3
impostare una connessione a un database esistente di destra- cliccando sul controllo ADODC ora sul modulo e scegliendo "Proprietà ADODC . " Nella pagina delle proprietà , assicurarsi che l'opzione "Usa stringa di connessione " sia selezionata e fare clic su " Crea ". Seguire le istruzioni visualizzate , che vi porterà attraverso la selezione del tipo di dati da utilizzare , dove trovare il database sul computer e se non utilizzare una password .
4
Clicca su " "sul " Test di connessione scheda Connessione " delle Proprietà di Data Link , quando tutte le informazioni dal punto 3 è completa. Se la connessione non riesce, tornare indietro e verificare nuovamente le impostazioni scelte per la connessione al database .
5
Inserire due pulsanti di comando nel fmDataEnv facendo doppio clic sul controllo " Button " nella casella degli strumenti e quindi facendo di nuovo questo . Modificare il nome di un pulsante per " cmdAddNewRecord " e la didascalia di "aggiungi record ". Modificare il nome del l'altro pulsante per " cmdDeleteRecord " e la didascalia di " Elimina record. "
6
doppio clic sul " cmdAddNewRecord " e inserire questo codice tra l'inizio e la fine della routine : " Adodc1.Recordset.AddNew ". Fare lo stesso per il cmdDeleteRecord " pulsante con questo codice: " . Adodc1.Recordset.Delete "( . Non includere il punto alla fine di questo codice ) economici 7
Scrivi il codice di prendersi cura di ciò che dovrebbe accadere quando l' utente fa clic su una delle scelte nel passaggio 6 : private Sub Form_Load ( ) Adodc1.Recordset.ActiveConnection.BeginTransEnd SubPrivate Sub Form_Unload ( Cancel As Integer) If MsgBox ( "Accetta modifiche dei record ? " , vbYesNo ) = vbYes IfEnd Sub
8
terminare l'impostazione ADODC con l'aggiunta di etichette e controlli TextBox al form per creare un meccanismo per un utente di aggiungere o eliminare i record . I controlli specifici dipendono dalle esigenze di database . Vedere il immagine per un esempio di come questo apparirà .
Programmazione © www.354353.com