SQL VBA -handledning

Structured Query Language (SQL) är datorspråket som används för att hantera relationsdatabaser. Visual Basic for Applications (VBA) är ett programmeringsspråk som utvecklats av Microsoft för att skapa dynamiskt innehåll med Microsoft Office -program. Microsoft Access är databasprogrammet inuti Microsoft Office -paketet som använder både SQL och VBA för att hantera data och tillhandahålla automatisering av systematiska databasfunktioner. Med hjälp av programmeringsskalet bakom Microsoft Access, du kan ansluta till huvuddatabasen, söka efter data, lägg till ny data och ta bort data genom att kombinera SQL- och VBA -programmeringskod.

Steg 1

Öppna databasen du vill arbeta med i Microsoft Access. Öppna Visual Basic Editor genom att klicka på fliken "Databasverktyg" och sedan "Visual Basic".

Steg 2

Klicka på "Infoga" och sedan "Modul" i Visual Basic Editor.

Steg 3

Skriv in koden för att ansluta till databasen. Du måste upprätta en anslutning för att kunna använda SQL -satser till databasen. Sub SQLTutorial () 'Ställ in dina variabler för att hålla informationen Dim Conn som ADODB.Connection' Detta är den faktiska anslutningen Dim rsVälj som ADODB.Recordset 'Här sparar du data Dim rsDelete som ADODB.Recordset Dim rsInsert as ADODB .Recordset Dim rsUpdate as ADODB.Recordset Dim strSelectQuery as String 'This is the actual SQL SELECT command Dim strDeleteQuery as String' This will keep the SQL DELETE statement Dim strInsertQuery as String 'This is the SQL INSERT statement Dim strUpdateQuery as String' Detta kommer håll UPDATE -satsen 'Skriv in detaljerna för att ansluta till databasen som du vill Ange Conn =Ny ADODB.Connection With Conn .ConnectionString ="Provider =Microsoft.Jet.OLEDB.4.0;" &_ "Datakälla =C:\ Documents \ SampleDatabase.mdb" .Öppna Slut med Nu har din anslutning till databasen gjorts. Nästa, du kommer att tilldela variablerna som du redan deklarerat ovan SQL -satser.

Steg 4

Skriv in en "SELECT" SQL -sats för att välja data från databasen. En SELECT -fråga består vanligtvis så här:"VÄLJ kolumner FRÅN tabell". Du kan lägga till kriterier i SELECT -satsen genom att lägga till "WHERE" -klausulen. Till exempel, du har en tabell som heter "Kunder" som du vill söka efter alla kunder med efternamnet "Smith". VBA- och SQL -koden kommer att se ut så här:strSelectQuery ="SELECT * FRÅN tblCustomers WHERE LastName ='Smith' Asterisken ( *) är ett jokertecken, vilket betyder att du vill dra all information, eller kolumner, på alla med efternamnet "Smith". För att välja vissa kolumner, du skulle använda:strSelectQuery ="VÄLJ Förnamn, Efternamn FRÅN tblCustomers WHERE LastName ='Smith' "

Steg 5

Skriv "DELETE" -uttrycket om du vill radera datarader från en tabell. Koden för det är:strDeleteQuery ="DELETE FROM tblCustomers WHERE LastName ='Smith'" Detta uttalande raderar alla rader där kunden har ett efternamn på "Smith" från tabellen "Kunder". Grundsyntaxen för en DELETE -sats är "DELETE FROM table WHERE column ='value'."

Steg 6

Skriv in syntaxen för att infoga en ny rad i en tabell. Använd satsen "INSERT". strInsertQuery ="SÄTT IN I tblKunders VÄRDEN (John, Smed, 123 Main Street, Cleveland, Ohio) "Om du hade ett kundtabell med förnamn, Efternamn, Adress, Stad och statskolumner, detta uttalande kommer att infoga i data i den högra kolumnen. Komman säger att koden ska hoppa till nästa kolumn innan värdena anges. Se till att du skriver in värdena i rätt ordning på kolumnerna i tabellen så att dina data är konsekventa.

Steg 7

Skriv in SQL -satsen för att ändra en rad med data. Detta är "UPDATE" -uttalandet. strUpdateQuery ="UPDATE tblCustomers SET LastName ='Jones', Förnamn ="Jim" WHERE Efternamn ='Smith' "Detta uttalande ändrar alla som har efternamnet" Smith "till" Jones "och deras förnamn till" Jim. "Du kan ändra flera kolumner med data samtidigt i en UPDATE uttalande genom att separera kolumnerna med kommatecken. Grundsyntaxen för en UPDATE är "UPDATE tabell SET column1 =value1, kolumn2 =värde2, column3 =värde3, ... WHERE column =value. "

Skriv in VBA -koden som kommer att köra frågan och spara resultaten i poster. Stäng av VBA -koden. Ange rsSelect =Ny ADODB.Recordset med rsSelect Set .ActiveConnection =Conn .CursorType =adOpenStatic .Source =strSelectQuery .Open End With Set rsDelete =New ADODB.Recordset With rsDelete Set .ActiveConnection =Conn .CursorTel. Avsluta med Set rsInsert =Ny ADODB.Recordset med rsInsert Set .ActiveConnection =Conn .CursorType =adOpenStatic .Source =strInsertQuery .Open End With Set rsUpdate =New ADODB.Recordset With rsDelect Set .ActiveConny =Conn .CursorType =Conn. .Öppna Sluta med 'Skriv in VBA -koden för att arbeta med data som du har samlat in genom SQL -uttalanden. 'Du kan använda uppgifterna för att posta i formulär, i andra tabeller eller i rapporter. 'Stäng posterna och anslutningen till dig är klar rsSelect.Close rsDelete.Close rsInsert.Close rsUpdate.Close End Sub