VB.NET ODBC 连接插入附加值

在 VB.NET 中，我们可以使用 ODBC 连接来连接并操作数据库。本文将介绍如何使用 ODBC 连接插入附加值。

连接到数据库

首先，我们需要创建一个 OdbcConnection 对象来连接到数据库。在连接之前，我们需要先安装 ODBC 驱动程序。如果已经安装了驱动程序，可以使用以下代码连接数据库：

Dim connectionString As String = "Driver={MySQL ODBC 8.0 Unicode Driver};Server=localhost;Database=test;UID=user1;PWD=password1;"
Dim connection As New OdbcConnection(connectionString)
connection.Open()

插入附加值

一旦连接建立，我们就可以使用 OdbcCommand 对象执行 SQL 语句。下面是一个插入附加值的示例：

Dim query As String = "INSERT INTO employees (name, age, salary) VALUES (?, ?, ?)"
Dim command As New OdbcCommand(query, connection)
command.Parameters.AddWithValue("name", "John Doe")
command.Parameters.AddWithValue("age", 30)
command.Parameters.AddWithValue("salary", 5000.0)
Dim rowsAffected As Integer = command.ExecuteNonQuery()

以上代码将向 employees 表中插入一个名为 John Doe 的员工记录，其年龄为 30 岁，薪水为 5000 美元。执行 ExecuteNonQuery() 方法将返回受影响的行数。

完整代码

下面是一个完整的示例程序，它将连接到名为 test 的数据库，并向 employees 表中插入一些记录：

Imports System.Data.Odbc

Module Module1

    Sub Main()
        Dim connectionString As String = "Driver={MySQL ODBC 8.0 Unicode Driver};Server=localhost;Database=test;UID=user1;PWD=password1;"
        Dim connection As New OdbcConnection(connectionString)
        connection.Open()

        Dim query As String = "INSERT INTO employees (name, age, salary) VALUES (?, ?, ?)"

        Dim command As New OdbcCommand(query, connection)
        command.Parameters.AddWithValue("name", "John Doe")
        command.Parameters.AddWithValue("age", 30)
        command.Parameters.AddWithValue("salary", 5000.0)

        Dim rowsAffected As Integer = command.ExecuteNonQuery()
        Console.WriteLine("{0} rows inserted.", rowsAffected)

        connection.Close()
        Console.ReadKey()
    End Sub

End Module

这个程序将插入一条名为 John Doe 的记录，并输出插入行数。

总结

本文介绍了如何使用 VB.NET 的 ODBC 连接插入附加值。使用 OdbcConnection 和 OdbcCommand 对象可以轻松地连接到数据库，并执行 SQL 语句。