Aprire Microsoft Visual Basic Express e fare clic su " Nuovo progetto ... " nel riquadro di sinistra del vostro schermo . Fare doppio clic su " Applicazione console " nel riquadro centrale del "Nuovo progetto" Finestra.
2
Premere " Ctrl " e "A ", quindi premere "Cancella " per cancellare tutto il codice esistente.
3
Copia e incolla questo codice per il modulo " Module1.vb " .
Imports System.Data.OleDb
Module Module1
Sub Main ( ) per
Dim myConnection Come OleDbConnection
Dim myCommand Come OleDbCommand
Dim mySQLString As String
myConnection = New OleDbConnection _
( "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = D : \\ Temp \\ myTextData.mdb ; " ) per
myConnection.Open ( ) per
mySQLString = " CREATE cutomers TAVOLA ( FIRST_NAME TESTO , LAST_NAME TESTO ) "
myCommand = New OleDbCommand ( mySQLString , myConnection ) per
myCommand.ExecuteNonQuery ( ) per
mySQLString =" INSERT INTO cutomers VALUES ( 'John ', ' Smith' ) "
myCommand = New OleDbCommand ( mySQLString , myConnection ) per
myCommand.ExecuteNonQuery ( ) per
mySQLString =" INSERT INTO cutomers VALUES ( ' John ' , ' Smith ' ) "
myCommand = New OleDbCommand ( mySQLString , myConnection ) per
myCommand.ExecuteNonQuery ( ) per
mySQLString =" ALTER TABLE ADD cutomers GENERE testo; "
myCommand = New OleDbCommand ( mySQLString , myConnection ) per
myCommand.ExecuteNonQuery ( ) per
MsgBox (" Tu hai creato la tabella clienti e aggiunto un nuovo campo con successo! " )
End Sub End Module
4
Modifica questa riga di codice e digitare il nome del database di Access .
( " Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C : \\. CustomerData.mdb ; " ) per
Eseguire il programma premendo il tasto " F5 "
Programmazione © www.354353.com