Home Hardware Networking Programmazione Software Domanda Sistemi
Conoscenza Informatica >> Programmazione >> Computer Programming Languages >> .

Come connettersi ad Access in VB6

Il Basic 6 ( VB6 ) linguaggio di programmazione visiva utilizza il getto di oggetti di Microsoft Linking and Embedding Database ( OLE DB ) modulo di sistema di provider per la connessione a un database di Access . È possibile creare connessioni a origini dati dall'interno dell'applicazione utilizzando gli oggetti di connessione dati in programmi di VB6 . Impostando la proprietà ConnectionString dell'oggetto OleDbConnection , è possibile aprire la connessione a un database di Access . Quando si stabilisce una connessione tra l' applicazione e il database di Access , è possibile aggiornare i dati , stampare o visualizzare in anteprima un report di Access e visualizzare una maschera di Access in applicazioni VB6 . Istruzioni
1

Fare clic su " Start" di Windows e quindi fare clic su "Microsoft Visual Studio ".
2

Scegliere "File" e "Apri ", quindi fare doppio clic su il programma di Visual Basic in cui si desidera effettuare la connessione al database di Access .
3

Inserisci il seguente codice dopo il " Public principale condivisa ( ) " linea per la connessione a Access " ordini " del database e inserire un nuovo ordine :

pubblico ConnectToAccess Sub ( ) per

Dim conn As New System.Data.OleDb.OleDbConnection ( ) per

Dim insert_rec Come
SqlCommand

'Modifica la stringa di connessione

conn.ConnectionString = & _

"Provider = Microsoft.Jet.OLEDB.12.0 ; fonte dati = " & _

" C: . \\ Documents and Settings \\ nomeutente \\ Documenti \\ dbFile.mdb "

Prova

conn.Open ( ) istruzione SQL insert

' per aggiungere i dati

insert_rec = New SqlCommand ( " INSERT INTO ordini (
prodotto

ID , Nome prodotto , prezzo , disponibilità , Località ) valori ( '36127 ' , Stati

' Asse circolare ',' 250,95 ' , 50 , ' Magazzino ' , conn ) per

' monitorare la connessione per gli errori

Catch ex As Exception

MessageBox.Show ( "Impossibile connettersi all'origine dati " ) per

conn.Close ( ) per

End Try End Sub



 

Programmazione © www.354353.com