Microsoft Visual Basic 6.0 è un ambiente di sviluppo per la creazione di applicazioni aziendali con esigenze diverse , tra cui l'accesso ai dati . Visual Basic ha diverse funzioni per interrogare le tabelle del database . Queste funzioni sono metodi di classi di database integrato in Visual Basic . È una questione semplice per fare una query SQL su una tabella file di testo . Creare il testo Database

È necessario prima creare la tabella di database di testo che il programma Visual Basic si aprirà e query. Creare una directory chiamata " C : \\ DB" e creare un nuovo file di testo normale in quella directory chiamata " MyTable.txt . " Aprire il file e inserire questi dati :

titolo, anno , DirectorStar Wars, 1977 , George LucasExcalibur 1980 , John Boorman
creare il progetto Visual Basic

chiudere il file , aprire " IDE di Visual Basic " ( ambiente di sviluppo integrato) e creare un nuovo progetto EXE standard ( File > nuovo progetto EXE standard ) . Nella finestra di progettazione della forma , trascinare un pulsante di comando dalla barra degli strumenti e rilasciarlo sul modulo . Fare doppio clic sul pulsante per inserire l'evento Command1_Click , e inserisci questo codice nella subroutine :

Private Sub Command1_Click ( ) Dim connectionText As New ADODB.ConnectionDim recordSetObj Come Nuovo percorso ADODB.RecordsetDim Come
String

path = " C : \\ DB \\ "

connectionText.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & _ percorso & " ; Extended Properties = 'text ; HDR = YES ; FMT = delimitato ' "

recordSetObj.Open " SELECT * FROM WHERE myTable.txt Anno = 1977; " , _connectionText , adOpenStatic , adLockReadOnly , adCmdTextDo Mentre Non recordSetObj.EOFMsgBox recordSetObj ( 0 ) &" , " & recordSetObj ( 1 ) & " , " & recordSetObj ( 2) recordSetObj.MoveNextLoop

End Sub
Eseguire il programma

Eseguire il programma da premendo il tasto " F5 ". Premere il pulsante del modulo , quando viene visualizzato il form . Terminare il programma e tornare all'ambiente codice di esplorare e comprendere il codice .

Il metodo " connectionText.Open " stabilisce la connessione al database . Notare i diversi punti e virgola nella stringa di connessione . Questi personaggi coppie separate di campi che il motore di database Microsoft Jet ha bisogno di connettersi al database . Ogni coppia è costituita da un nome e il valore di quel nome , ad esempio Provider , e Microsoft.Jet.OLEDB.4.0 . Un'altra coppia è di origine dati e il percorso , dove percorso indica la cartella ( C : \\ DB ) il testo tabella di database file è archiviato in Il motore di database Microsoft Jet vede che cartella come un database

recordSetObj . . dichiarazione aperta fa la query effettiva tabella SQL . È possibile visualizzare questa query come l'apertura di una serie di record dalla tabella . Quando l'istruzione Open completa , che insieme è contenuto nel recordSetObj . Il ciclo Do While cammina attraverso il set di record , utilizzando il metodo MoveNext per passare da un set all'altro fino al raggiungimento della condizione EOF .
Modificare la query

Prova cambiando la query SQL per includere una clausola WHERE , ad esempio, DOVE Anno = 1977. Quindi , creare il proprio database ed eseguire query utilizzando questo programma come un modello .

• Tutorial Word con VB 
• Come copiare automaticamente da Excel a PowerPoint Utilizzo di una macro VBA