在VB.NET中初始化DataSet

Imports System.Data
Imports System.Data.SqlClient

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' 创建一个新的 DataSet 对象
        Dim dataSet As New DataSet("MyDataSet")

        ' 连接到数据库
        Dim connectionString As String = "Data Source=myServerAddress;Initial Catalog=myDataBase;Integrated Security=True"
        Dim connection As New SqlConnection(connectionString)

        ' 打开数据库连接
        connection.Open()

        ' 创建一个 SQL 查询以检索数据
        Dim query As String = "SELECT * FROM myTable"
        Dim command As New SqlCommand(query, connection)

        ' 创建一个 DataAdapter 以填充 DataSet
        Dim dataAdapter As New SqlDataAdapter(command)

        ' 填充 DataSet
        dataAdapter.Fill(dataSet)

        ' 关闭数据库连接
        connection.Close()

        ' 在此处处理 DataSet
    End Sub
End Class