Open de database die u wilt werken in Microsoft Access . Open de Visual Basic Editor door te klikken op het tabblad " Database Tools" en vervolgens " Visual Basic . "

Klik 2 op " Invoegen" en vervolgens " module " in de Visual Basic Editor .

Typ de code 3 om verbinding met de database. U moet een verbinding in te stellen om SQL statements te gebruiken om de database.

Sub
SQLTutorial ( ) op

' Stel uw variabelen om de informatie

Dim Conn houden als ADODB.Connection ' Dit is de werkelijke verbinding

Dim rsSelect
als ADODB.Recordset ' Dit is waar u de gegevens

Dim rsDelete
zal redden als ADODB.Recordset

Dim rsInsert als ADODB.Recordset

Dim rsUpdate
als ADODB.Recordset

Dim strSelectQuery
als String ' Dit is de daadwerkelijke SQL SELECT commando

Dim strDeleteQuery
als String ' Dit houdt de SQL DELETE statement

Dim strInsertQuery
als String ' Dit is de SQL- instructie INSERT

Dim strUpdateQuery
als String ' Dit zal de instructie UPDATE

' Type
houden in de details aan te sluiten aan de database die u wilt

Set = Nieuwe ADODB.Connection

met Conn

ConnectionString = " Provider = Microsoft.Jet.OLEDB.4.0 ; "
Conn . & _ < br >

" data Source = C : \\ Documents \\ SampleDatabase.mdb " .

Open

End With

Nu
uw verbinding met de database is gemaakt . Vervolgens wordt u SQL-statements om de variabelen die u hierboven reeds verklaard toewijzen .

Typ in een " SELECT " SQL statement 4 om gegevens uit de database te selecteren . Een SELECT-query is meestal samengesteld als volgt : " SELECT kolommen FROM table " . U kunt criteria toevoegen aan de SELECT-instructie door de toevoeging van de " WHERE " -clausule . Bijvoorbeeld , je hebt een tabel met de naam " klanten" die u wilt zoeken naar alle van de klanten met de achternaam van ' Smith . " De VBA en SQL- code ziet er als volgt uit:

strSelectQuery
= " SELECT * FROM tblCustomers WHERE Achternaam = ' Smith '

Het sterretje ( * ) is een wildcard , wat betekent dat je wilt trekken alle van de informatie , of kolommen , op iedereen met de achternaam van ' . Smith "Om bepaalde kolommen te selecteren , zou u dit gebruiken :

strSelectQuery
= " sELECT voornaam, Achternaam FROM tblCustomers WHERE achternaam = ' Smith ' " .

Type 5 in de " DELETE " statement als je wilt rijen met gegevens uit een tabel te verwijderen de code hiervoor is :

strDeleteQuery
= " DELETE FROM tblCustomers WHERE Achternaam = ' Smith ' Smith " uit " Klanten "

Deze verklaring zal alle rijen waar de klant heeft een achternaam van delete" " tafel. de basis syntax voor een instructie DELETE wordt " DELETE FROM tabel WHERE kolom = ' waarde ' . "

Type 6 in de syntax om een ​​nieuwe rij in te voegen in een tabel . Gebruik de " INSERT " statement .

strInsertQuery
= " INSERT INTO tblCustomers WAARDEN ( John , Smith , 123 Main Street , Cleveland , Ohio ) "

Als u een tabel Klanten die Voornaam, Achternaam , Adres , Stad en Staat kolommen heeft gehad , zal deze verklaring te voegen in de gegevens in de rechter kolom . de komma vertelt de code om naar de volgende kolom vóór het invoeren in de waarden . Zorg ervoor dat u aan het typen bent in de waarden in de juiste volgorde van de kolommen in de tabel , zodat uw data consistent .
7

Typ in de SQL-instructie om een rij met gegevens te wijzigen . Dit is de " UPDATE " statement .

strUpdateQuery
= " UPDATE tblCustomers SET Achternaam = ' Jones ' , Voornaam = " Jim " WHERE Achternaam = ' Smith ' "

Deze uitspraak verandert iedereen die een achternaam van " Smith " naar " Jones " en hun voornaam aan " Jim . " Je kunt meerdere kolommen met gegevens in een keer in een UPDATE verklaring wijzigen door het scheiden van de kolommen met komma . De basis syntax voor een UPDATE is " UPDATE table SET column1 = waarde1 , kolom2 = waarde2 , column3 = waarde3 , ... WHERE kolom = waarde . "

Type 8 in de VBA- code die de query wordt uitgevoerd en de resultaten opslaan om recordsets . Sluit de VBA-code .

Stel rsSelect = Nieuw ADODB . Recordset

Met rsSelect

Set
. ActiveConnection = Conn

. = adOpenStatic

. Bron CursorType = strSelectQuery

. Open < br

End With

Stel rsDelete = Nieuwe ADODB.Recordset

Met rsDelete

Set
. ActiveConnection = Conn

. CursorType = adOpenStatic > < br

. Bron > = strDeleteQuery

. Open

End met

Stel rsInsert = Nieuwe ADODB.Recordset

Met rsInsert

Set . ActiveConnection = Conn

. = adOpenStatic

. Bron CursorType = strInsertQuery

. Open

Einde
Met

Set
= Nieuwe ADODB.Recordset

Met rsDelect

Set
. ActiveConnection = Conn

. CursorType = adOpenStatic

. Bron = strUpdateQuery

. Open

End met

'Type in de VBA-code om werk te doen met de gegevens die je hebt verzameld door de SQL-instructies .

' u kunt de gegevens gebruiken om post in formulieren , in andere tafels of in rapporten .

' Sluit de records ets en verbinding met je gedaan

rsSelect.Close

rsDelete.Close

rsInsert.Close

rsUpdate.Close

End Sub