Datamaskin
  | Hjem | Hardware | Nettverk | Programmering | Software | Feilsøking | Systems | 
Programmering  
  • C /C + + Programming
  • Computer Programmeringsspråk
  • Delphi Programming
  • Java Programming
  • JavaScript Programmering
  • PHP /MySQL programmering
  • Perl Programming
  • Python Programming
  • Ruby Programming
  • Visual Basics Programming
  •  
    Datamaskin >> Programmering >> Visual Basics Programming >> Content
    Hvordan kjøre parametere i en DAO Query i Access VBA
    Microsoft Office Access er en relasjonsdatabase styringssystem som vanligvis brukes for mindre og lokale databaser . Visual Basic for Applications , også kjent som VBA er et programmeringsspråk som brukes til å automatisere rutinemessige prosesser . En spørring brukes til å hente data fra databasetabeller . Du kan bygge en spørring som også oppdatere data i en database tabell . I noen få trinn kan du skrive VBA -kode for å utføre en oppdatering spørring og også opprette en utvalgsspørring å se oppdateringen . Instruksjoner
    en

    Åpne Northwind Microsoft Office Access database. The Northwind database er inkludert i Microsoft Office-pakken.
    2

    Klikk på " Database Verktøy ", velg deretter " Visual Basic " for å åpne Microsoft Visual Basic Window . Klikk på " Insert "-feltet og velg " Module ".
    3

    Kopier og lim inn følgende kode inn i den nye modulen for å oppdatere Ansatte-tabellen og deretter se oppdateringen med en utvalgt spørring .

    Public Sub DAOQuery ( )

    Dim tittelen As String

    Dim db As DAO.Database

    Dim rst Som DAO.Recordset
    < p > Dim QRY As String

    title = " DAO Query "

    Sett db = CurrentDb ( )

    QRY = " UPDATE ansatte SET ansatte . [ Mobile Phone ] = '210 -999 til 999 ' "

    QRY = QRY &" WHERE ( ( ( Employees. [ etternavn ] ) =' cencini ' )); "

    DoCmd.SetWarnings False
    < p> DoCmd.RunSQL ( QRY )

    Debug.Print tittelen & " : SQL Update Paramenter Query :" & _

    vbNewLine & " " & QRY

    QRY = " SELECT ansatte . [ etternavn ] , ansatte . [ Mobile Phone ] "

    QRY = QRY &" FROM ansatte "

    QRY = QRY &" WHERE ( ( ( Employees. [ etternavn ] ) = ' cencini ' )); "

    Debug.Print tittelen &" : SQL Query : "& _

    vbNewLine &" "& QRY

    ' Kjør QRY og skape en rekord satt

    Set rst = db.OpenRecordset ( QRY )

    Debug.Print tittelen & " : Hent skjema info for gitt resultat satt : "

    i = 0 For å rst.Fields.Count - en

    Debug.Print "

    früher :

     Weiter:
      Relatert Artike
    ·XNA Opplæring for Roterende en 3D- modell 
    ·Hvordan legge til et objekt til ArrayList 
    ·Hvordan Ring en VB.NET funksjon fra Fortran DLL 
    ·Slik konverterer Visual Basic til Floating Point 
    ·Hvordan lese e-post ved hjelp VBA 
    ·Hvordan koble til SQL Fra VB6 
    ·Slik skjuler kontrollboksen i VB 
    ·Hvordan skrive kode for en Tangent i VB.NET 
    ·Hvordan bruke Visual Basic 2008 Express 
    ·Hvordan å dynamisk endre størrelsen på Hyperkoblinge…
      Anbefalte artikler
    ·Hvordan kan jeg vise et tall uten desimaler i Java 
    ·Eiendommer av algoritmer 
    ·Sette inn en T - variabel i PHP 
    ·Hvordan å krympe en ASA Database 
    ·Hvordan Fullscreen en applet 
    ·Hvordan å lære VB for Access 
    ·Hvordan bruke IndexOf i VB.NET 
    ·JavaScript vs Java Applets Robust 
    ·Hvordan Stopp En PHP og starte en annen PHP File 
    ·Hva er forskjellen på en analog inngang Control & en D…
    Copyright ©  Datamaskin  http://www.datamaskin.biz/