vb.net 使用Oledb创建表格并增加列A,列B

您可以使用以下代码在 VB.NET 中使用 OleDb 创建表格并添加列 A 和列 B：

Imports System.Data.OleDb

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        CreateAndAddColumns()
    End Sub

    Private Sub CreateAndAddColumns()
        ' 设置连接字符串
        Dim connString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\your_database.accdb;"

        ' 创建连接对象
        Using conn As New OleDbConnection(connString)
            conn.Open()

            ' 创建表格的 SQL 命令
            Dim createTableSQL As String = "CREATE TABLE YourTable (ColumnA TEXT, ColumnB TEXT)"

            ' 创建表格
            Using createTableCmd As New OleDbCommand(createTableSQL, conn)
                createTableCmd.ExecuteNonQuery()
            End Using

            ' 添加列 A 和列 B 的 SQL 命令
            Dim addColumnsSQL As String = "ALTER TABLE YourTable ADD COLUMN ColumnA TEXT, ColumnB TEXT"

            ' 添加列 A 和列 B
            Using addColumnsCmd As New OleDbCommand(addColumnsSQL, conn)
                addColumnsCmd.ExecuteNonQuery()
            End Using
        End Using
    End Sub
End Class

请确保将 `your_database.accdb` 替换为您实际的数据库文件路径。此示例假设您正在使用 Microsoft Access 数据库。如果使用其他数据库，可能需要相应更改连接字符串和 SQL 语句。

这段代码在 `Form1_Load` 事件中调用 `CreateAndAddColumns` 方法，该方法在指定的数据库中创建一个名为 "YourTable" 的表格，并添加列 A 和列 B。您可以根据需要修改表格名称和列名称的字符串。

希望能帮到您！如有更多问题，请随时提问。