for DDL and Security . ».
3 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
4
digitare quanto segue per creare una nuova variabile e impostare a NULL :
Dim value As VariantType
valore
= Constants.vbNull
5
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
6
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 )
Pagina 8
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 ".