Aprire il database che si desidera lavorare con in Microsoft Access . Aprire l' editor di Visual Basic , fare clic sulla scheda " Database Tools " e poi " Visual Basic ".
2
Clicca su "Inserisci" e poi "Modulo" in Visual Basic Editor .
3
Digitare il codice per la connessione al database . Si dovrà stabilire un collegamento al fine di utilizzare le istruzioni SQL al database .
Sub SQLTutorial ()
' impostato le variabili per contenere le informazioni
Dim Conn come ADODB.Connection 'Questo è il vero collegamento
Dim rsSelect come ADODB.Recordset ' Questo è dove potrete salvare i dati
Dim rsDelete come ADODB.Recordset
Dim rsInsert come ADODB.Recordset
Dim rsUpdate come ADODB.Recordset
Dim strSelectQuery as String 'questa la vera SELECT SQL comando
Dim strDeleteQuery as String ' Questo terrà il SQL DELETE
Dim strInsertQuery as String 'Questo è l' SQL INSERT
Dim strUpdateQuery as String ' Questo terrà il UPDATE
tipo ' nei dettagli per la connessione per il database che si desidera
Set Conn = New ADODB.Connection
Conn
ConnectionString = " Provider = Microsoft.Jet.OLEDB.4.0; " . & _
"Data Source = C: \\ Documenti \\ SampleDatabase.mdb " .
aperto
End With
Ora la connessione al database è stata fatta . Successivamente, è possibile assegnare le istruzioni SQL per le variabili già dichiarato in precedenza.
4
tipo in una "SELECT" istruzione SQL per selezionare i dati dal database . Una query di selezione è di solito fatta in questo modo : "SELECT colonne dalla tabella" . È possibile aggiungere i criteri per l'istruzione SELECT con l'aggiunta della clausola "WHERE" . Ad esempio , si dispone di una tabella chiamata "Clienti" che si desidera cercare per tutti i clienti con il cognome "Rossi ". Il codice VBA e SQL sarà simile a questa :
strSelectQuery = "SELECT * FROM tblCustomers WHERE Cognome = 'Smith'
L'asterisco ( * ) è un carattere jolly , il che significa che si vuole tirare tutte le informazioni , o colonne , a nessuno con il cognome " . Smith " Per selezionare alcune colonne , si potrebbe usare:
strSelectQuery = " SELECT FirstName , Cognome FROM tblCustomers WHERE cognome = 'Smith' " .
5
tipo nella dichiarazione " DELETE ", se si desidera eliminare le righe di dati da una tabella il codice che è :
strDeleteQuery = " DELETE FROM tblCustomers WHERE Cognome = 'Smith' "
Questa dichiarazione cancellerà tutte le righe in cui il cliente ha un cognome " Rossi "da" clienti " tavolo . la sintassi di base per un'istruzione DELETE è " DELETE FROM tabella WHERE colonna = valore ' ' ".
6
Digitare la sintassi per inserire una nuova riga in una tabella . Utilizzare il " INSERT " dichiarazione .
strInsertQuery =" INSERT INTO tblCustomers VALUES ( John , Smith , 123 Main Street , Cleveland , Ohio ) "
Se tu avessi una tabella Clienti che ha Nome, Cognome, Indirizzo , Città e colonne di Stato , questa affermazione inserirà i dati nella colonna di destra . la virgola indica il codice per passare alla colonna successiva prima di entrare nei valori . assicurarsi che si sta digitando i valori nel giusto ordine delle colonne della tabella in modo che i dati siano coerenti .
7
digitare l'istruzione SQL per modificare una riga di dati . Questa è la dichiarazione "UPDATE" .
strUpdateQuery = "UPDATE tblCustomers SET Cognome = ' Jones' , Nome = " Jim "WHERE Cognome = 'Smith' "
Questa affermazione cambia tutti coloro che hanno un cognome "Rossi " a " Jones " e il nome di battesimo di " Jim . " È possibile modificare diverse colonne di dati in una sola volta in una dichiarazione UPDATE separando le colonne con virgole . La sintassi di base per un aggiornamento è "UPDATE tabella SET column1 = valore1 , column2 = valore2 , column3 = value3 , ... WHERE colonna = valore ".
8
Digita il codice VBA che eseguirà la query e salvare i risultati di recordset . Chiudere il codice VBA .
RsSelect = New ADODB . Recordset
rsSelect
. ActiveConnection = Conn
. CursorType = adOpenStatic
. Source = strSelectQuery
. Open < br
End > Con
rsDelete = New ADODB.Recordset
rsDelete
. ActiveConnection = Conn
. CursorType = adOpenStatic
. Source = strDeleteQuery
. Aperto
End With
rsInsert = New ADODB.Recordset
rsInsert
Imposta . ActiveConnection = Conn
. CursorType = adOpenStatic
. Source = strInsertQuery
. Aperto
End With
rsUpdate = New ADODB.Recordset
rsDelect
. ActiveConnection = Conn
. CursorType = adOpenStatic
. Source = strUpdateQuery
. Aperto
End With
' Digita il codice VBA per fare il lavoro con i dati che avete raccolto attraverso le istruzioni SQL .
' È possibile utilizzare i dati per Post in forme , in altre tabelle o nei report .
' Chiudere i recordset e la connessione con voi sono fatto
rsSelect.Close
rsDelete.Close
rsInsert.Close
rsUpdate.Close
End Sub
Programmazione © www.354353.com