|  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

    Tillträde : VBA Utför Query

    Microsoft Access är en del av Microsoft Office-paketet . Med detta program kan du skapa enskilda databaser , rapporter och formulär . Åtkomst låter dig skapa egna applikationer med dessa komponenter . För att lägga till ännu fler funktioner till dina applikationer eller databaser , kan du programmera uppgifter i Visual Basic for Applications ( VBA ) . VBA är Microsofts standard utveckling språk för Office-produkter . Språket är baserad bort av Visual Basic 6.0 och använder liknande syntax . En av de många saker du kan göra med detta språk är exekvera frågor om dina data . Instruktioner
    1

    köra en fråga och sätta dess resultat i ett rekord set för manipulation . Kopiera och klistra in den VBA -koden nedan för att läsa in data från din fråga .

    Dim dbMyDatabase Som DAO.Database

    Dim rsMyRecords Som DAO.Recordset

    Set dbMyDatabase = CurrentDb

    set rsMyRecords = dbMyDatabase.OpenRecordset ( " MyQuery " )
    2

    köra en fråga med inmatningsparametrar hjälp av en fråga definition objektet och sedan ladda sina resultat till en rekord set med kodexempel nedan.

    Dim dbMyDatabase Som DAO.Database

    Dim rsMyRecords Som DAO.Recordset

    Dim qdMyParameters Som DAO.QueryDef

    Set dbMyDatabase = CurrentDb

    Set qdMyParameters = dbMyDatabase.QueryDefs ( " MyQuery " ) katalog

    qdMyParameters.Parameters ( " MyParameter " ) = " värde"

    Set rsMyRecords = qdMyParameters.OpenRecordset ( ) katalog
    3

    Loop genom varje post tillbaka och utföra en åtgärd . Exemplet nedan är ett sätt att göra detta

    Do While Not rsMyRecords.EOF

    Debug.Print " Innehållet i min kolumn : " . ! & RsMyRecords [ MyColumnName ]
    < p > rsMyRecords.MoveNext

    Loop
    4

    Kör en SQL-fråga i stället för en namngiven Access-frågan och sätta dess resultat i ett rekord set för manipulation . Kopiera och klistra in den VBA -koden nedan .

    Dim dbMyDatabase Som DAO.Database

    Dim rsMyRecords Som DAO.Recordset

    Dim strQuery As String

    strQuery = " SELECT * FROM mytable "

    Set dbMyDatabase = CurrentDb

    Set rsMyRecords = dbMyDatabase.OpenRecordset ( strQuery )
    5

    Utför ett kommando som inte returnerar några poster använda denna VBA-kod . Uppdatera och ta bort kommandon är exempel på påståenden som inte returnerar några poster .

    CurrentDb.Execute " MyQueryName " Addera

    Tidigare:

    nästa:
    relaterade artiklar
    ·Kan jag göra Android Apps Med Visual Basic
    ·Hur får man ett svar från en röstbrevlåda i VB.Net
    ·Hur dölja text i ett InputBox i VBScript
    ·Hur vill kolla mouseDown i Visual Basic
    ·Hur man läser en fil i VBS
    ·Hur Exit Visual Basic
    ·Vilka är skillnaderna mellan Visual Basic Express & Vi…
    ·Sätt att ange Range i VBA
    ·Hur man kan få ett VBA borttagningsfråga
    ·Hur automatiskt att ändra en Textruta : s fall med VB6…
    Utvalda artiklarna
    ·Lägga till en kula i PHP
    ·Konvertera Joomla Themes
    ·Fördelar och nackdelar Tips
    ·Hur man öppnar en fil i PHP
    ·Hur vill kolla EPS-format i Java
    ·Hur man använder ASM i Visual C
    ·Vad är Slutför i Java
    ·Hur överföra resultat till en klient i PHP
    ·Hur Extrahera länkar på en sida och sätta in resulta…
    ·Hur du startar Adobe Från Visual Basic 6
    Copyright © Dator Kunskap http://www.dator.xyz