| Home  | Casa  | Hardware  | Networking  | Programmazione  | Software  | Domanda  | Sistemi  |   
Programmazione  
  • C /C + + Programming

  • Computer Programming Languages

  • Delphi Programming

  • Java Programming

  • Programmazione Javascript

  • PHP /MySQL Programmazione

  • Perl Programming

  • Python Programming

  • rubino Programmazione

  • Nozioni di base di Visual Programming
  •  
    Conoscenza Informatica >> Programmazione >> Nozioni di base di Visual Programming >> Content
    Come accedere alla casella combinata in una query
    Sapere come accedere a una casella combinata e poi utilizzarlo in una query è utile per lo sviluppo di applicazioni informatiche . Ad esempio, in Microsoft Access, una casella combinata può rendere più facile per l'utente per manipolare dati . Utilizzando il Visual Basic for Applications ( VBA ) linguaggio di programmazione , è possibile effettuare una forma , creare una tabella , e quindi utilizzare la tabella per aggiungere dati a una casella combinata . Istruzioni
    1

    Avviare Microsoft Office Access 2007 , selezionare " Database vuoto ", e quindi fare clic su " Crea".

    2 Fare clic sulla scheda "Crea" , quindi selezionare "Progettazione Form" per creare un nuovo modulo . Fare clic su " Casella combinata ", nel riquadro " Controls " , quindi fare clic su modulo e trascinarlo per creare un nuovo controllo casella combinata . Fare clic su "Pulsante" sul pannello " Controlli " per aggiungere un nuovo pulsante al form .
    3

    destro del mouse su " Command0 , " e quindi fare clic su "Proprietà ". Fare clic sulla scheda "Evento" e quindi scegliere " [ Event Procedure ] " accanto a " Al clic del mouse . " Fare clic sui puntini di sospensione ( ... ) per aprire la finestra "Microsoft Visual Basic "
    4

    Copia e incolla il seguente codice in " Private Sub Command0_Click ( ) " : .

    Dim strSQL As String

    strSQL = " CREATE TABLE dataTable ( ComboIndx NUMERO , rowData TEXT) ; "

    DoCmd.RunSQL ( strSQL ) per

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

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

    DoCmd.SetWarnings False

    DoCmd.RunSQL ( strSQL ) per

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

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

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

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

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

    DoCmd.SetWarnings False

    DoCmd.RunSQL ( strSQL ) per

    strSQL = "Select dataTable. * da DataTable "

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

    Me.Combo0.RowSource = strSQL
    5

    tornare alla finestra di Microsoft Access , fare clic destro " Combo0 , "e quindi fare clic su " Proprietà. " Fare clic sulla scheda "Evento" . Scegli. [ Event Procedure ] " accanto a" Dopo aggiornamento ". Clicca sui puntini di sospensione ( ... ) per aprire il " Microsoft Visual Basic " finestra .
    6

    Copia e incolla il seguente codice in" Private Sub Combo0_AfterUpdate ( ) " :

    Dim dbs As Database Dim rst

    come Recordset

    Dim comboString As Integer Dim

    sqlstr Come
    String < p > Set dbs = CurrentDb

    comboString = Me.Combo10.Text

    sqlstr = "SELECT dataTable.rowData da DataTable "

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

    Set rst = dbs.OpenRecordset ( sqlstr ) per

    rst.MoveLast

    rst.MoveFirst

    MsgBox" I dati per questo indice combo è : " & rst.Fields ( 0 ) Valore

    rst.Close

    dbs.Close
    7

    Chiudere il . " Microsoft Visual base " finestra. destro del mouse su " Form1 "e quindi fare clic su " Visualizzazione Maschera . "Click " Command0 " per riempire la casella combinata con i dati.
    8

    Seleziona un valore dalla casella combinata . Si 'll vedere i dati per tale indice in una finestra di messaggio .

    Previous :

    next :
      Articoli Correlati
    ·Modalità di accesso a VBA Cambia cursore 
    ·Come si fa passaggio per valore e passaggio dal lavoro …
    ·Come determinare se un foglio esiste all'interno di una…
    ·VBA Funzione di commutazione 
    ·Come aggiungere una filigrana in BMP con VBA 
    ·Come fermare un Visual Basic Loop 
    ·Come passare variabili da Visual Basic in Access Query 
    ·Come fare un immagine di base Uploader video 
    ·Come importare database in Visual Basic 6 
    ·Come fare una barra di caricamento in VB.NET 
      Articoli in evidenza
    ·Come creare un link simbolico con PHP 
    ·Come rimuovere tutti i gestori eventi in VB.Net 
    ·Come controllare una mail POP3 con C + + con MFC 
    ·Come utilizzare una variabile in una stringa SQL VBA 
    ·Come rimuovere una barra degli indirizzi con JavaScript…
    ·Di formato in Java 
    ·Come usare LAME in Visual Basic 
    ·Come trovare la più breve parola di una frase o di lis…
    ·Come sostituire Point Rettangoli Pareggio in WPF 
    ·Come visualizzare le percentuali in Java 
    Copyright © Conoscenza Informatica http://it.wingwit.com