如何在登录vb.net应用程序后从数据库中拉取数据

Imports System.Data.SqlClient

Public Class Form1
    Private Sub btnLogin_Click(sender As Object, e As EventArgs) Handles btnLogin.Click
        Dim connectionString As String = "Data Source=YourServer;Initial Catalog=YourDatabase;User ID=YourUsername;Password=YourPassword"
        Dim query As String = "SELECT * FROM YourTable"

        Using connection As New SqlConnection(connectionString)
            connection.Open()

            Using command As New SqlCommand(query, connection)
                Using reader As SqlDataReader = command.ExecuteReader()
                    While reader.Read()
                        ' 处理每一行数据
                        Dim id As Integer = reader.GetInt32(0)
                        Dim name As String = reader.GetString(1)
                        ' ...

                        ' 在这里可以将数据存储到适当的数据结构中，如DataSet、DataTable等
                    End While
                End Using
            End Using

            connection.Close()
        End Using
    End Sub
End Class