Dator
 |  Startsida |  Hårdvara |  Nätverk |  Programmering |  Programvara |  Felsökning |  System |   
Programmering
  • C /C + + -programmering
  • Computer Programspråk
  • Delphi Programmering
  • Java Programming
  • JavaScript programmering
  • PHP /MySQL Programmering
  • perl Programmering
  • python Programming
  • Ruby programmering
  • Visual Basics Programmering
  • * Dator Kunskap >> Programmering >> Visual Basics Programmering >> Content

    SQL VBA Tutorial

    Structured Query Language ( SQL ) är datorspråk som används för att hantera relationsdatabaser . Visual Basic for Applications ( VBA ) är det programmeringsspråk som har utvecklats av Microsoft för att använda med Microsoft Office-program för att skapa dynamiskt innehåll . Microsoft Access är en databas program inne i Microsoft Office-paketet som använder både SQL och VBA att hantera data och ge automatisering för systematiska databas funktioner . Använda programmering skalet bakom Microsoft Access , kan du ansluta till den viktigaste databasen , söka efter data , lägga till nya uppgifter och ta bort data genom att kombinera SQL och VBA programmeringskod . Instruktioner
    1

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

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

    3

    Skriv in koden för att ansluta till databasen . Du måste upprätta en anslutning för att använda SQL-satser till databasen .

    Sub SQLTutorial ( ) katalog

    " Ställ in dina variabler för att hålla informationen

    Dim Conn som ADODB.Connection " Detta är den verkliga anslutningen

    Dim rsSelect som ADODB.Recordset " det är där du kommer att spara uppgifterna

    Dim rsDelete som ADODB.Recordset

    Dim rsInsert som ADODB.Recordset

    Dim rsUpdate som ADODB.Recordset

    Dim strSelectQuery As String ' Detta är den faktiska SQL SELECT kommando

    Dim strDeleteQuery As String ' Detta kommer att hålla SQL DELETE

    Dim strInsertQuery As String ' Detta är SQL INSERT-sats

    Dim strUpdateQuery As String ' Detta kommer att hålla UPDATE

    " Typ i detaljerna för att ansluta till den databas som du vill

    Set Conn = Ny ADODB.Connection

    Conn

    ConnectionString = " Provider = Microsoft.Jet.OLEDB.4.0 ; " . & _

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

    Open

    End With

    nu anslutningen till databasen har gjorts . Härnäst kommer du tilldela SQL-satser för de variabler som du redan förklarats ovan .
    4

    Skriv in ett " SELECT " SQL-sats för att välja data från databasen . Ett SELECT-fråga består vanligtvis ut så här : " markera kolumnerna från tabellen " . Du kan lägga till villkor i SELECT genom att lägga i " WHERE " klausul . Till exempel, du har en tabell som heter "Kunder" som du vill söka efter alla kunder med efternamnet " Smith . " VBA och SQL-kod ser ut så här :

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

    asterisk ( * ) är ett wildcard , vilket innebär att du vill dra all information , eller pelare , på någon med efternamnet " . Smith " att välja vissa kolumner , skulle du använda :

    strSelectQuery = " SELECT Förnamn, Efternamn FROM tblCustomers WHERE Efternamn = ' Smith ' " .
    5

    Skriv in " DELETE " uttalande om du vill ta bort rader med data från en tabell koden för detta är :

    strDeleteQuery = " DELETE FROM tblCustomers WHERE Efternamn = ' Smith ' "

    Detta uttalande kommer att radera alla rader där kunden har ett efternamn på " Smith " från " Kunder " tabellen . grundläggande syntax för en DELETE -sats " DELETE FROM tabell WHERE kolumn = ' värde ' . "
    6

    typ i syntaxen för att infoga en ny rad i en tabell . Använd " INSERT " uttalande .

    strInsertQuery = " INSERT INTO tblCustomers VALUES ( John Smith , 123 Main Street , Cleveland , Ohio ) "
    p Om du hade en tabellen Kunder som har Förnamn, Efternamn , Adress , Ort och kolumner statliga , kommer detta uttalande infoga i uppgifterna i den högra kolumnen . kommatecknet berättar koden för att hoppa till nästa kolumn innan i värdena . Kontrollera att du skriver in värden i rätt ordning på kolumnerna i tabellen så att dina data är konsekvent .
    7

    Skriv i SQL-uttryck för att ändra en rad med data . Detta är den " UPDATE " uttalande .

    strUpdateQuery = " UPDATE tblCustomers SET Efternamn = ' Jones ' , förnamn = " Jim " WHERE Efternamn = ' Smith ' "

    Detta uttalande ändrar alla som har ett efternamn på " Smith " till " Jones " och deras förnamn till " Jim . " Du kan ändra flera kolumner med data på en gång i en UPDATE-sats genom att separera kolumner med kommatecken . grundläggande syntax för en uppdatering " UPDATE table SET kolumn1 = värde1 , kolumn2 = värde2 , kolumn3 = value3 , ... WHERE kolumn = värde . "
    8

    Typ i VBA-kod som kommer att köra frågan och spara resultaten i postuppsättningar . Stänga ute VBA-kod .

    Set rsSelect = Ny adodb . Recordset

    rsSelect

    Set . ActiveConnection = Conn

    . CursorType = adOpenStatic

    . Source = strSelectQuery

    . Open

    End With

    Set rsDelete = Ny ADODB.Recordset

    rsDelete

    Set . ActiveConnection = Conn

    . CursorType = adOpenStatic

    . Källa = strDeleteQuery

    . Öppen

    End With

    Set rsInsert = Ny ADODB.Recordset

    Med rsInsert

    Set. ActiveConnection = Conn

    . CursorType = adOpenStatic

    . Source = strInsertQuery

    . Open

    End With

    Set rsUpdate = Ny ADODB.Recordset

    rsDelect

    Set . ActiveConnection = Conn

    . CursorType = adOpenStatic

    . Source = strUpdateQuery

    . Öppna

    End With

    " Type i VBA-kod för att göra arbetet med de data du samlat genom de SQL-satser .

    " du kan använda uppgifterna för att skicka in blanketter , i andra tabeller eller i rapporter .

    " Stäng postuppsättningar och anslutning med du är klar

    rsSelect.Close

    rsDelete.Close

    rsInsert.Close

    rsUpdate.Close

    End Sub

    Tidigare:

    nästa:
    relaterade artiklar
    ·Hur man upptäcker mobila webbläsare med ASP
    ·Hur ritar jag ett hårkorsmarkören Inom Visual Basic
    ·Hur att koda en if-sats i QBasic
    ·Hur man gör ett verktygsfält för Visual Basic återu…
    ·Hur man kopplar SQL-frågor med Visual Basic
    ·Hur fyller en Data GridView i Vbnet SQL
    ·Hur man skriver ut heltal i Visual Basic
    ·Hur man skapar en MDI
    ·ANSI-kodning i C #
    ·Hur man gör NT -autentisering i VB.Net
    Utvalda artiklarna
    ·Hur man dödar eller ta bort kommandon i VB6
    ·Hur man gör en listvy i Vb.NET
    ·Python Canvas Metoder
    ·Inaktivera PHP Registrera Globals
    ·Hur man skriver på ett Div Från JavaScript
    ·Hur man skapar udda nummer i Python
    ·VBA Sum Funktion
    ·Hur du använder Thrift Med PHP
    ·Hur man skapar UML från Java-kod
    ·Hur man sätter in en Procent Symbol Bredvid en PHP Str…
    Copyright © Dator Kunskap http://www.dator.xyz