Gewusst wie: Einfügen von Null in Tabelle VisualBasic & ADOX

Das wissen wie man einen null-Wert in einer Tabelle mithilfe von Microsoft Visual Basic mit ADOX Verbindung einfügen kann Ihre Anwendung dynamischer darstellen. Ein null-Wert kann einen leeren Wert in einer Datenbanktabelle darstellen. VB ist eine objektorientierte Programmiersprache, die zum Erstellen von Windows-Anwendungen verwendet. ADOX, die eine Erweiterung auf ADO-Objekte ist, stellt die Objekte für die Schemaänderung, einschließlich der Sicherheit. In wenigen Schritten erstellen Sie ein VB-Projekt, das verbindet mit einer Access-Datenbank eine Tabelle erstellen und legen Sie einen null-Wert.

Anweisungen

1 Starten Sie Microsoft Visual Basic Express. Klicken Sie auf "Neues Projekt" und wählen Sie dann "Windows Forms-Anwendung". Klicken Sie auf "OK". "Toolbox" im linken Bereich des Bildschirms klicken Sie doppelt auf "Button", um eine neue Schaltfläche hinzuzufügen.

2 Doppelklick auf "Button1", das "Form1.vb" Modul zu öffnen. Klicken Sie im Menü "Projekt" dann "Add Reference..." Wählen Sie die Registerkarte "COM" klicken Sie "Microsoft Active Data Objects < Versionsnummer > Bibliothek" und auf "OK". Folgen Sie den gleichen Prozess und fügen Sie "Microsoft ADO extern < Versionsnummer > for DDL and Security."

3 Geben Sie Folgendes ein, um Variablen deklarieren:

Dim Cn As ADODB. Verbindung

Dim Cat As ADOX.Catalog

Dim objTable As ADOX.Table

Dim sqlStr As String

Cn = New ADODB.Connection

Cat = New ADOX.Catalog

objTable = New ADOX.Table4

Geben Sie Folgendes ein, um eine neue Variable zu erstellen und es auf NULL gesetzt:

Dim value As VariantType

value = Constants.vbNull5

Geben Sie Folgendes ein, um eine Verbindung zu Ihrer Access-Datenbank herzustellen:

Cn.Open("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Northwind 2007.accdb")

Cat.ActiveConnection = Cn

Bearbeiten Sie den folgenden Code, und geben Sie den Pfad und Namen in die Datenbank:

C:\northwind 2007.accdb

6 Geben Sie Folgendes ein, um eine neue Tabelle namens "ADOXTable" zu erstellen:

objTable.Name = "ADOXTable"

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

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

Cat.Tables.Append(objTable)7

Geben Sie zum Einfügen eines neuen Datensatzes mit einem NULL-Wert wie folgt:

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

sqlStr = sqlStr & "VALUES (5, " & value & ");"

Cn.Execute(sqlStr)8

Geben Sie Folgendes ein, um die Variablen aus dem Speicher freizugeben:

Cat = Nothing

Cn.Close()

Cn = Nothing

Drücken Sie "F5" um das Programm auszuführen, klicken Sie "Button1."