April 7
Avere la conoscenza su come inserire un valore null in una tabella utilizzando Microsoft Visual Basic con una connessione ADOX può rendere l'applicazione più dinamico. Un valore nullo può rappresentare un valore vuoto in una tabella di database. VB.NET è un linguaggio di programmazione orientato agli oggetti utilizzati per creare applicazioni Windows. ADOX, che è un'estensione a ADO oggetti, fornisce oggetti per la modifica dello schema, compresa la sicurezza. In pochi passi potrete creare un progetto VB.NET che si connette a un database di Access per creare una tabella e inserire un valore nullo.
1 Avviare Microsoft Visual Basic Express. Fare clic su "Nuovo progetto", quindi selezionare "Applicazione Windows Form". Fai clic su "OK". Fai clic su "Strumenti" nel riquadro a sinistra dello schermo quindi fare doppio clic su "Pulsante" per aggiungere un nuovo pulsante.
2 Fare doppio clic su "Button1" per aprire il modulo "Form1.vb". Fare clic sul menu "Progetto", quindi selezionare "Add Reference .." Selezionare la scheda "COM" quindi su "Microsoft Active Data Objects <numero di versione> Library" e fare clic su "OK". Seguire lo stesso processo e aggiungere "Microsoft ADO Ext. <Numero di versione> per DDL e per la sicurezza."
3 Digitare la seguente per dichiarare le variabili:
Dim Cn Come ADODB.Connection
Dim Cat As ADOX.Catalog
Dim objTable Come ADOX.Table
Dim SQLStr As String
Cn = nuovo ADODB.Connection
Cat = Nuovo ADOX.Catalog
objTable = Nuovo ADOX.Table
4 Digitare la seguente per creare una nuova variabile e impostarla a NULL:
Dim value As VariantType
value = Constants.vbNull
5 Digitare la seguente per effettuare una connessione al database di Access:
Cn.Open("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Northwind 2007.accdb")
Cat.ActiveConnection = Cn
Modificare il seguente codice e digitare il percorso e il nome per il database:
C: \ Northwind 2007.accdb
6 Digitare la seguente per creare una nuova tabella denominata "ADOXTable":
objTable.Name = "ADOXTable"
objTable.Columns.Append ( "ID", ADOX.DataTypeEnum.adInteger)
objTable.Columns.Append ( "IdDesc", ADOX.DataTypeEnum.adWChar)
Cat.Tables.Append (objTable)
7 Digitare quanto segue per inserire un nuovo record di dati con un valore NULL:
sqlStr = "INSERT INTO " & (objTable.Name) & " (ID, IdDesc) "
SQLStr = SQLStr & "VALORI (5," & value & ");"
Cn.Execute (SQLStr)
8 Digitare la seguente per rilasciare le variabili dalla memoria:
Cat = Nothing
Cn.Close ()
CN = Niente
Premere il tasto "F5" per eseguire il programma poi cliccare su "Button1".