vb.net数据库操作源码

Imports System.Data.SqlClient

Module Module1
    Sub Main()
        ' 数据库连接字符串
        Dim connectionString As String = "Server=your_server;Database=your_database;User Id=your_username;Password=your_password;"

        ' 创建连接对象
        Using connection As New SqlConnection(connectionString)
            Try
                ' 打开连接
                connection.Open()

                ' 创建命令对象
                Dim command As New SqlCommand("SELECT * FROM your_table", connection)

                ' 执行命令并获取数据读取器
                Using reader As SqlDataReader = command.ExecuteReader()
                    While reader.Read()
                        ' 读取数据
                        Console.WriteLine(reader("ColumnName"))
                    End While
                End Using
            Catch ex As Exception
                ' 处理异常
                Console.WriteLine("数据库操作失败: " & ex.Message)
            Finally
                ' 关闭连接
                If connection.State = ConnectionState.Open Then
                    connection.Close()
                End If
            End Try
        End Using
    End Sub
End Module