• 
  

  hur man fråga en Microsoft Access- databas med DSN

  
  

Det är nyttigt att veta hur man fråga en Microsoft Access- databas med hjälp av en Data Source Name (DSN ) genom en Open Database Connectivity (ODBC ) -anslutning . Microsoft Access är en relationsdatabas program som ofta används för mindre databaser . Visual Basic. NET används ofta för att ansluta till en Access- databas . Programmerare kräver vanligtvis frågas innehåll i databasen för ytterligare uppgifter manipulation . Använda en DSN är praktiskt eftersom du kan manuellt uppdatera DSN att peka på en annan databas utan att behöva redigera dina Visual Basic-kod .

Du behöver :
System DSN anslutning
. Microsoft Access -databas .
Microsoft Visual Basic 2010 Express .



1 .
Starta Microsoft Visual Basic 2010 Express , klicka på " File " och välj " Nytt projekt . . . ". Klicka på " Windows Forms Applciation " och välj " OK ".



Dubbelklicka på " knappen " från "Toolbox " menyn för att lägga till en ny knapp för att " Form1 " . Dubbelklicka på " Button1 " att öppna " Form1. vb " . Skriv " Importen System. Data. Odbc. OdbcConnection " i den allra första raden i " Form1. vb " modul .
2
Klicka i " Private Sub Button1_Click " och skriv följande för att deklarera dina variabler och öppna din DSN anslutning : .



Dim loopCounter As Integer

Dim odbcConn Som Odbc. OdbcConnection

odbcConn=Nya Odbc. OdbcConnection ( " DSN=myDSN " )

odbcConn . Open ()



Redigera " DSN=myDSN " för att lägga din " DSN " namn .
3 .
Skriv följande att fråga din Access-databas :



Dim odbcDataAdapter som ny Odbc. OdbcDataAdapter ( " SELECT Tabell1 . * FROM Tabell1 ; " , odbcConn )

Dim odbcDataSet som ny Data. DataSet

odbcDataAdapter. Fill ( odbcDataSet )



Redigera " SELECT Tabell1 . * FRÅN Tabell1 , "för att lägga din fråga
4
Skriv följande för att loopa igenom din fråga och visa en meddelanderuta med information från . första fältet :



För loopCounter=0 till odbcDataSet. Tables (0 ) Rows. Count-1

MsgBox ( odbcDataSet. Tables ( . . 0 ) Rader ( loopCounter ) Punkt (0 ))

Nästa
5
Skriv följande för att frigöra dina variabler från minnet .



odbcConn . Close ()
odbcConn. Dispose
( )

odbcConn=Inget



Tryck "F5 " för att köra din program och klicka på " Button1 " .

Previous：nothing Next：hur man kan få resultat VBA fråga

Relaterade artiklar