In Visual Basic , l' Object Linking and Embedding , base di dati ( OLE DB ) interfaccia di programmazione permette di collegare il programma a un database . Con esso , è possibile salvare le informazioni dal vostro progetto di una tabella nel database e di riutilizzarli in altre applicazioni . È possibile creare le variabili in qualsiasi punto del progetto , come ad esempio da caselle di testo , caselle di controllo o lista selezioni , basta assicurarsi che il tipo di dati variabile corrisponda al tipo di dati del campo nella tabella del database. Istruzioni
1
Aprire Visual Basic e creare un nuovo progetto . Aprire la finestra di codice e creare una funzione digitando " Private Sub AddRecord ( ) "
2
Digitare le righe seguenti per creare variabili che la connessione al database : .
Dim dbCon come New OleDb.OleDbConnection
Dim DataSet come New DataSet
Dim dataAdap come OleDb.OleDbDataAdapter
Dim sqlCommand As String
La variabile " dbCon " stabilisce una connessione al database , " dataset" contiene i dati da esso , " dataAdap " esegue i comandi e interagisce con il database , e " sqlCommand " tiene le vostre domande .
3
connettersi al database con le seguenti righe:
dbCon.ConnectionString = " Provider = Microsoft.Jet.OLEDB.4.0; Data Source = path_to_database "
dbCon.Open ( ) per sostituire il
porzione " path_to_database " con la posizione fisica del database sul computer. Questa linea collega il programma Visual Basic per il database e la seconda riga si apre il database
4
Digitare le righe seguenti per caricare i dati dal database : .
SqlCommand = "SELECT * FROM tblContacts "
dataAdap = New OleDb.OleDbDataAdapter ( SqlCommand dbCon ) per
dataAdap.Fill (DataSet , " Database " ) per adattatore i dati
ora contiene tutte le record all'interno del vostro tavolo . È possibile utilizzare un nome diverso da "Database" per identificare meglio il vostro tavolo . Ad esempio , se la tabella contiene le informazioni di contatto , è possibile denominare questo " Contatti"
5
Creare le seguenti variabili : .
Dim comBuild As New OleDb.OleDbCommandBuilder ( dataAdap )
Dim dataNewRow come DataRow
La prima linea convalida un comando di inserimento nella tabella quando si utilizza un oggetto DataRow . La seconda riga crea l'oggetto DataRow
6
Digitare le righe seguenti per aggiungere una nuova riga alla tabella nel database e salvare le variabili ai campi nel record : .
DataNewRow = dataSet.Tables ( "Database" ) . NewRow ( ) per
dataNewRow.Item ( 1 ) = variable1
dataNewRow.Item ( 2) = variable2
dataNewRow.Item ( " field_name " ) = variabile3
dataSet.Tables ( " Database" ) . Rows.Add ( dataNewRow ) per
dataAdap.Update (DataSet , "Database" ) per
la prima riga si prepara un nuovo record con i campi vuoti . Le prossime tre righe aggiungono informazioni. Le prime due utilizzano i numeri di indice di campi tabella e inserire queste variabili nella prima e seconda campi del record . Il terzo utilizza il nome del campo per identificare in quale campo per memorizzare quella variabile . Il quinto e il sesto linee aggiungere il record con le variabili al vostro tavolo e commettono i dati
7
digitare la seguente riga di chiudere la connessione al database : .
DbCon.Close ( ) per
Chiama la funzione altrove nel codice , ad esempio in un evento click del pulsante " AddRecord ()" .