Avviare Microsoft Visual Basic Express. Fare clic su " Nuovo Progetto ", quindi selezionare " Applicazione Windows Form " . Fare clic su " OK ". Clicca su " Strumenti " nel riquadro di sinistra del vostro schermo quindi fare doppio clic su "Pulsante " per aggiungere un nuovo pulsante .
2
doppio clic su " Button1 " per aprire il modulo " Form1.vb " . Fare clic sul menu "Progetto ", quindi selezionare " Aggiungi riferimento .. " Selezionare la scheda " COM ", quindi fare clic su " Data Objects digitare quanto segue per dichiarare le variabili : Dim cn As ADODB.Connection Dim gatto come ADOX.Catalog Dim objTable Come ADOX.Table Dim sqlstr As String Cn = New ADODB . collegamento Cat = New ADOX.Catalog objTable = New ADOX.Table digitare quanto segue per creare una nuova variabile e impostare a NULL : Dim value As VariantType = Constants.vbNull digitare quanto segue per effettuare una connessione al database di Access : Cn . Open ( "Provider = Microsoft.ACE.OLEDB.12.0 ; Data Source = C : \\ Northwind 2007.accdb " ) per Cat.ActiveConnection = Cn modificare il codice seguente e digitare il percorso e il nome per il database: C : \\ Northwind 2007.accdb Digitare quanto segue per creare una nuova tabella denominata " ADOXTable " : objTable . name = " ADOXTable " objTable.Columns.Append ( " ID " , ADOX.DataTypeEnum.adInteger ) per objTable.Columns.Append ( " IdDesc " , ADOX.DataTypeEnum.adWChar ) cat.Tables.Append ( objTable ) economici 7 digitare quanto segue per inserire un nuovo record di dati con un valore NULL : sqlstr = " INSERT INTO " & ( objTable.Name ) & " ( ID , IdDesc ) " sqlstr = sqlstr & " VALUES ( 5 , " & valore & " ) ; " cn.Execute ( sqlstr ) digitare quanto segue per rilasciare le variabili dalla memoria : Cat = Nothing cn.Close ( ) per Cn = Nothing Premere " F5 " per eseguire il programma, quindi fare clic su " Button1 ".
3
4
valore
5
6
Pagina 8
Informazioni correlate
Programmazione © www.354353.com