|  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

    Komma åt Query Uppdatera

    Inte visar den senaste informationen i din databas kan vara ett problem om de visade data används för att fatta avgörande beslut . Du kan använda en kontroll listruta för att visa information från en databas tabell med hjälp av en fråga . Den " köra en ny fråga " egendom fräschar frågans används i listrutan kontrollen för att visa den senaste informationen . Det är god praxis att uppdatera data i en kontroll programmässigt i stället för att starta om programmet för att uppdatera dina uppgifter . Saker du behöver
    Northwind databas
    Visa fler instruktioner
    1

    Öppna Northwind databasen , klicka på " Skapa " -menyn och klicka på " Form Design " i " Forms " rutan . Klicka på " Design " -fliken och välj " List Box " i " Kontroller " fönstret . Klicka på " Form " i " Detail " området och dra musen medan du håller ned musknappen för att rita en ny kontroll listrutan . Klicka på " knappen" och använda samma teknik för att rita en ny knapp på formuläret .
    2

    högerklicka din nya kontroll listrutan och klicka på "Egenskaper . " Klicka på " Format "-fliken och skriv in " 5 " bredvid " Antal kolumner . " Addera 3

    Klicka på " Data " -fliken och kopiera och klistra in SQL- koden nedan bredvid " . . . . radkällan " :

    SELECT Customers.Company , Kunder [ Efternamn ] , Kunder [ Förnamn ] , Kunder [ E - postadress] , Kunder [ Befattning ] FROM kunder ;

    4

    Högerklicka på nya knappen i formuläret och klicka på "Egenskaper . " Klicka på "Event " -fliken och välj " [Event Procedure ] " bredvid " Vid klickning . " Klicka på ellips för att skapa en ny " button_click " förfarande och öppna Microsoft Visual Basic Fönster
    5

    Kopiera och klistra in koden nedan inne knappen proceduren för att skapa två variabler : .
    < P > Dim dbs som Database

    Dim strSQL As String
    6

    Kopiera och klistra in koden nedan för att definiera den aktuella databasen som databas att använda :

    Set dbs = CurrentDb
    7

    Kopiera och klistra in koden nedan för att infoga en ny kund i " Kunder " table :

    strSQL = " INSERT INTO kunder ( Företag , [ Efternamn ] , [ Förnamn ] , [ E - postadress] , [ Job Title ] ) "

    strSQL = strSQL & " VALUES ( ' Compnay 1 ' , ' Smith ' , ' John ' , ' johnsmith @ yahoo . com " , " manager " ) , "

    dbs.Execute ( strSQL )
    8

    Kopiera och klistra in följande kodrad för att uppdatera frågan i listrutan kontroll och visa den nya kunden läggas :

    List0.Requery
    9

    Växla tillbaka till Microsoft Access-fönstret och klicka på " Visa " -ikonen . Klicka på knappen för att köra din kod . Bläddra nedåt i listan rutan , och du kommer att se den nya kunden till. Addera

    Tidigare:

    nästa:
    relaterade artiklar
    ·Hur man installerar skrivare med VBScript
    ·Hur konvertera Hex till byte i VB6
    ·Hur knapparna på en dialogruta
    ·Hur man använder Progress Bar i VB
    ·Online VB Träning
    ·Hur man kan stoppa en oändlig slinga på Macro
    ·Så här öppnar CPU-temperaturen i VB
    ·Hur man gör en Vb Project för installation
    ·Hur får man en listruta i VBA
    ·Komma åt e-post med Visual Basic
    Utvalda artiklarna
    ·Hur man skriver ett Trainzscript TS2010
    ·Olika sätt att formatera datum i VBA
    ·Hur Rita diagram i PHP
    ·Hur vill kopiera telefonnummer från en sträng på Pyt…
    ·Hur man skapar en mapp i Python
    ·Hur man använder Tk Toolkit Med Python
    ·OpenVex API
    ·Hur man använder Visual Data Manager i Visual Basic
    ·MySQL är långsam med alltför många beständiga ansl…
    ·Vad är kodning färdigheter
    Copyright © Dator Kunskap http://www.dator.xyz