Πώς να Τοποθετήστε Null Into Table Visual Basic & ADOX

Έχοντας τη γνώση για το πώς να εισάγετε μια μηδενική τιμή σε έναν πίνακα χρησιμοποιώντας το Microsoft Visual Basic με σύνδεση ADOX να κάνετε την αίτησή σας πιο δυναμική . Μια μηδενική τιμή μπορεί να αντιπροσωπεύει μια κενή τιμή σε έναν πίνακα βάσης δεδομένων . VB.NET είναι μια αντικειμενοστραφής γλώσσα προγραμματισμού που χρησιμοποιείται για τη δημιουργία εφαρμογών Windows. ADOX , η οποία είναι μια επέκταση για να ADO αντικείμενα , προσφέρει αντικείμενα για την τροποποίηση του σχήματος , συμπεριλαμβανομένης της ασφάλειας . Σε μερικά βήματα που θα δημιουργήσει ένα έργο VB.NET που συνδέεται με μια βάση δεδομένων της Access για να δημιουργήσετε έναν πίνακα και να εισάγετε μια τιμή null . Τα πράγματα που θα χρειαστείτε για Microsoft Visual Basic Express
βάση δεδομένων της Access

Παρουσίαση Περισσότερες οδηγίες
Η 1

Ξεκινήστε το Microsoft Visual Basic Express . Κάντε κλικ στο " New Project" , στη συνέχεια, επιλέξτε " Windows Forms Application " . Κάντε κλικ στο κουμπί "OK". Κάντε κλικ στο " Εργαλεία " στο αριστερό τμήμα της οθόνης σας , στη συνέχεια, κάντε διπλό κλικ στο " κουμπί" για να προσθέσετε ένα νέο κουμπί . 2

διπλό κλικ στο " Button1 " για να ανοίξει το μάθημα « Form1.vb " . Κάντε κλικ στο μενού " Έργο " , στη συνέχεια, επιλέξτε " Add Reference .. " Επιλέξτε την καρτέλα " COM " και στη συνέχεια κάντε κλικ στο " Microsoft Active Data Objects Βιβλιοθήκη " και κάντε κλικ στο "OK". Ακολουθήστε την ίδια διαδικασία και πρόσθεσε "Microsoft ADO Ext για τη γλώσσα DDL και την ασφάλεια . ».
Εικόνων 3

Πληκτρολογήστε το παρακάτω για να δηλώσετε τις μεταβλητές σας :

Dim Cn Όπως ADODB.Connection

Dim Cat Όπως ADOX.Catalog

Dim objTable Όπως ADOX.Table

Dim sqlStr Όπως String

Cn = Νέα ADODB . σύνδεση

Κατ. = νέα ADOX.Catalog

objTable = νέα ADOX.Table
Η 4

Πληκτρολογήστε το παρακάτω, για να δημιουργήσετε μια νέα μεταβλητή και να το θέσει σε NULL :

αξία Dim Όπως VariantType

value = Constants.vbNull
5

Πληκτρολογήστε το παρακάτω για να κάνετε μια σύνδεση με τη βάση δεδομένων της Access :

Cn . Open ( " Provider = Microsoft.ACE.OLEDB.12.0 ? προέλευσης δεδομένων = C : \\ Northwind 2007.accdb " )

Cat.ActiveConnection = Cn

Επεξεργαστείτε τον παρακάτω κώδικα και πληκτρολογήστε τη διαδρομή και το όνομα στη βάση δεδομένων σας :

C : \\ Northwind 2007.accdb
Η 6

Πληκτρολογήστε το παρακάτω, για να δημιουργήσετε ένα νέο πίνακα που ονομάζεται " ADOXTable " :

objTable . Όνομα = " ADOXTable "

objTable.Columns.Append ( "ID" , ADOX.DataTypeEnum.adInteger )

objTable.Columns.Append ( " IdDesc " , ADOX.DataTypeEnum.adWChar )

Cat.Tables.Append ( objTable )
Η 7

Πληκτρολογήστε το παρακάτω, για να εισαγάγετε ένα νέο ρεκόρ των δεδομένων με τιμή NULL :

sqlStr = " INSERT INTO " & ( objTable.Name ) & " (ID , IdDesc ) "

sqlStr = sqlStr & " ΑΞΙΕΣ ( 5 , " & value & " ) ? "

Cn.Execute ( sqlStr )
Τετάρτη 8

Πληκτρολογήστε το παρακάτω για να απελευθερώσει τις μεταβλητές από τη μνήμη :

Κατ. = Τίποτα

cn.Close ( )

Cn = Τίποτα

Πατήστε το πλήκτρο " F5 " για να τρέξετε το πρόγραμμά σας , στη συνέχεια, κάντε κλικ στο κουμπί " Button1 ".
Η
εικόνων