|  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

    Hur köra parametrar i en DAO Query i Access VBA

    Microsoft Office Access är en relationsdatabas management system som vanligen används för mindre och lokala databaser . Visual Basic for Applications , även känd som VBA , är en dator programmeringsspråk som används för att automatisera rutinmässiga processer . En fråga används för att hämta data från databastabeller. Du kan skapa en fråga till även uppdatera data i en databastabell . I några steg du kan skriva VBA-kod för att utföra en uppdateringsfråga och även skapa en urvalsfråga för att visa uppdateringen . Instruktioner
    1

    Öppna Northwind Microsoft Office Access-databas . Northwind-databasen ingår i Microsoft Office-paketet .
    2

    Klicka på " Databas Verktyg " och välj sedan " Visual Basic " för att öppna Microsoft Visual Basic Window . Klicka på " Infoga "-fältet och välj " Modul . " Addera 3

    Kopiera och klistra in följande kod på din nya modulen för att uppdatera tabellen Anställda och sedan visa uppdateringen med en urvalsfråga .

    Public Sub DAOQuery ( ) katalog

    Dim titeln As String

    Dim db Som DAO.Database

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

    title = " DAO Query "

    Set db = CurrentDb ( ) katalog

    qry = " UPDATE Medarbetare SET anställda . [ Mobiltelefon ] = '210 -999-999 ' "

    qry = qry & " WHERE ( ( ( Employees. [ Efternamn ] ) = ' cencini ' ) ) ; "

    DoCmd.SetWarnings False
    < p > DoCmd.RunSQL ( qry ) katalog

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

    vbNewLine & " " & qry

    qry = " SELECT anställda . [ Efternamn ] , anställda . [ Mobiltelefon ] "

    qry = qry & " FROM Anställda "

    qry = qry & " WHERE ( ( ( Employees. [ Efternamn ] ) = ' cencini ' ) ) ; "

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

    vbNewLine & " " & qry

    " Kör qry och skapa ett rekord set

    set rst = db.OpenRecordset ( qry ) katalog titel

    Debug.Print & " : Hämta schema info för givet resultat som : "

    jag = 0 till rst.Fields.Count - 1

    Debug.Print "

    Tidigare:

    nästa:
    relaterade artiklar
    ·Vad är DNN symbolfiler
    ·Hur hämta de booleska data i DataGrid för VB.NET
    ·Hur sortera i Visual Basic
    ·Hur konvertera Excel till Access
    ·Hur man gör enkla TI - 83 Snake Spel
    ·Hur man kan öka Stackstorlek i Visual Basic
    ·Hur man startar en ny instans av Visual Basic
    ·Hur konvertera en sträng till INT i Classic ASP
    ·Hur att fylla en listvy Från en generisk lista VB.Net
    ·Hur man gör Random Numbers i Visual Basic
    Utvalda artiklarna
    ·PHP skript Fördelar & Nackdelar
    ·Hur man gör en utveckling för Pocket PC Med Language …
    ·Vanliga textstilar
    ·Servlet vs Struts
    ·Hur man skriver till en fil i Python
    ·Konvertera datum till militär datum i Access 2007 VBA
    ·Hur man läser binärkod
    ·Steg för att installera JDK på en dator
    ·Lägga till en förloppsindikator Guiden
    ·VB6 Strängfunktioner
    Copyright © Dator Kunskap http://www.dator.xyz