Home Hardware Networking Programmazione Software Domanda Sistemi
Conoscenza Informatica >> Programmazione >> Nozioni di base di Visual Programming >> .

Come compilare un campo in VB Accesso

L'applicazione di accesso sarà più facile da usare se si compilati automaticamente i campi di una tabella quando si conosce il dato che va in loro. Questo può essere realizzato utilizzando Visual Basic, Applications Edition . È possibile utilizzare l' oggetto Recordset per aprire la tabella di database e popolare ogni campo della tabella . Il metodo AddNew viene utilizzato per creare un nuovo record nell'oggetto Recordset e il metodo Update salva le modifiche apportate al record . Istruzioni
1

Clicca su "Strumenti Database " e cliccare su " Visual Basic " per aprire l'editor di Microsoft Visual Basic. Fai clic sul menu "Inserisci" e fare clic su "Modulo " per aggiungere un nuovo modulo di codice . Creare un nuovo subprocedure aggiungendo il seguente codice : Private Sub

populateField ( ) economici 2

Creare le variabili che saranno utilizzati per creare una nuova tabella e compilare un campo :

Dim dbs As Database Dim rst

come Recordset

Dim rowCntr As Integer Dim

fNames (10 ) As String

Set dbs = CurrentDb
3

Compilare la matrice di stringhe con i dati :

fNames ( 0 ) = "John"

fNames ( 1 ) = " Kitzia " < br

fNames > ( 2) = " Adaly "

fNames ( 3) = " Oscar "

fNames ( 4) = " Emilio "

fNames (5 ) = " Carlos"

fNames ( 6) = " Sylvia "

fNames (7 ) = " Sebastian "

fNames (8 ) = " Luis "

fNames ( 9) = " Joe "
4

eseguire un'istruzione SQL per creare una nuova tabella nel database con un campo di testo:

sqlstr = " CREATE TABLE MyNewTable ( TESTO Nome ( 50) ) ; "

DoCmd.RunSQL ( sqlstr ) economici 5

aprire la nuova tabella utilizzando un Recordset :

Set rst = dbs.OpenRecordset ( " MyNewTable " ) economici 6

Creare un ciclo for per popolare il campo " Nome " della tabella :

rowCntr = 0 To 9

RST . AddNew

rst.Fields ( 0 ) . Valore = fNames ( rowCntr ) per

rst.Update

Avanti rowCntr
7

chiudere il recordset e terminare la procedura secondaria :

rst.Close

End Sub
8

Premere " F5 " per eseguire la procedura. Tornare a Microsoft Access e fare doppio clic su " MyNewTable " per visualizzare il campo popolato .

 

Programmazione © www.354353.com