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 Åpne Combo Box i en Query
    Å vite hvordan man skal få tilgang til en kombinasjonsboks og deretter bruke den i en spørring er nyttig for utvikling av dataprogrammer. For eksempel , i Microsoft Access , kan en kombinasjonsboks gjøre det enklere for brukeren å manipulere data . Bruke Visual Basic for Applications ( VBA ) programmeringsspråk , kan du lage et skjema, lage en tabell , og deretter bruke tabellen for å legge til data i en kombinasjonsboks. Instruksjoner
    en

    start Microsoft Office Access 2007 , velger du " Blank Database ", og klikk deretter på "Create ".
    2

    Klikk på " Create "-kategorien , og velg deretter " Form Design " for å skape en ny form . Klikk " Combo Box" på " Controls " -panelet , og klikk deretter skjemaet og dra det å opprette en ny kombinasjonsbokskontroll . Klikk på " Button" på " Controls " -ruten for å legge til en ny knapp i skjemaet .
    3

    Høyreklikk på " Command0 ", og klikk deretter på "Egenskaper". Klikk på " Event" -kategorien, og velg deretter " [ Hendelsesprosedyre ] " ved siden av " Ved klikk . " Klikk på ellipse ( ... ) for å åpne " Microsoft Visual Basic "-vinduet
    4

    Kopier og lim inn følgende kode under " Private Sub Command0_Click ( )" : .

    Dim strSQL As String

    strSQL = " CREATE TABLE datatable ( ComboIndx NUMMER , rowData TEKST ),"

    DoCmd.RunSQL ( strSQL )

    strSQL = " INSERT INTO datatable ( ComboIndx , rowData ) "

    strSQL = strSQL &" VALUES ( 1 , ' ROW1 '); "

    DoCmd.SetWarnings False

    DoCmd.RunSQL ( strSQL )

    strSQL = " INSERT INTO datatable ( ComboIndx , rowData )"

    strSQL = strSQL & " VALUES ( 2 ​​, ' ROW2 '); "

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

    strSQL = " INSERT INTO datatable ( ComboIndx , rowData )"

    strSQL = strSQL & " VALUES ( 3 , ' ROW2 '); "

    DoCmd.SetWarnings False

    DoCmd.RunSQL ( strSQL )

    strSQL = "Velg datatable . * fra datatable "

    strSQL = strSQL & " WHERE dataTable.rowData = ' ROW2 '; "

    Me.Combo0.RowSource = strSQL
    5

    Switch tilbake til Microsoft Access Window, høyreklikk på" Combo0 , " og klikk" Egenskaper. " Klikk på "Event "-kategorien . Velg . [ Hendelsesprosedyre ] " ved siden av" Etter Update . "Klikk på ellipse ( ... ) for å åpne" Microsoft Visual Basic "-vinduet.
    6

    Kopier og lim inn følgende kode under" Private Sub Combo0_AfterUpdate ( ) " : en

    Dim dBS Som Database

    Dim rst Som Recordset

    Dim comboString As Integer

    Dim SQLstr As String
    < p > Sett dBS = CurrentDb

    comboString = Me.Combo10.Text

    SQLstr = "SELECT dataTable.rowData FRA datatable "

    SQLstr = SQLstr & " WHERE dataTable.ComboIndx = "& ( comboString ) &" ; "

    Sett rst = dbs.OpenRecordset ( SQLstr )

    rst.MoveLast

    rst.MoveFirst

    MsgBox " data for denne combo indeksen er : "& rst.Fields ( 0 ) Verdi

    rst.Close

    dbs.Close
    7

    Lukk . " Microsoft Visual Basic " Window . Høyreklikk på" Form1 ", og klikk deretter på " Skjema View. "Klikk " Command0 "for å fylle kombinasjonsboksen med data .
    8

    Velg en verdi fra kombinasjonsboksen. Du vil se dataene for at indeksen i en meldingsboks.

    früher :

     Weiter:
      Relatert Artike
    ·Hvordan få tilgang til en VBA Slett Query 
    ·Hvordan bruke DataGridView for MySQL i VB.NET 
    ·Hvordan å bytte til forskjellige former i VB6.0 
    ·Hvordan lage Visio Symboler 
    ·Slik sletter Selections Fra DataGridViewComboBox 
    ·Hvordan Stopp VBA Fra Utfører 
    ·Slik Send en e-postvedlegg i Vb.Net 
    ·Hvordan bruke VBA til å endre databasen Plassering i A…
    ·Hvordan sende en Virtual Basic Faks 
    ·Hvordan å erklære en global variabel i VBA 
      Anbefalte artikler
    ·Slik tilpasser ValidationSummary 
    ·Hvordan bruke funksjoner i QBasic 
    ·Hvordan legge til et bilde Box i Visual Basic 
    ·Rails, Stillas og datatyper 
    ·Hvordan skrive en RDL rapport 
    ·Hvordan å automatisk endre en tekstboks sak Bruke VB6 
    ·Hva er JDBC Abstraction 
    ·MySQL Injection Tutorial 
    ·Slik installerer Java 7 
    ·Hvordan bygge en Master PHP Site Mal Bruke Web 
    Copyright ©  Datamaskin  http://www.datamaskin.biz/