在连接到vb.net时编辑数据库

Dim connectionString As String = "Data Source=serverName;Initial Catalog=databaseName;User ID=userName;Password=password"
Dim connection As New SqlConnection(connectionString)

connection.Open()

' 执行查询操作
Dim query As String = "SELECT * FROM tableName"
Dim command As New SqlCommand(query, connection)
Dim reader As SqlDataReader = command.ExecuteReader()
While reader.Read()
    ' 处理查询结果
    Dim value As String = reader.GetString(0)
    Console.WriteLine(value)
End While
reader.Close()

' 执行插入操作
Dim insertQuery As String = "INSERT INTO tableName (column1, column2) VALUES (@value1, @value2)"
Dim insertCommand As New SqlCommand(insertQuery, connection)
insertCommand.Parameters.AddWithValue("@value1", "value1")
insertCommand.Parameters.AddWithValue("@value2", "value2")
insertCommand.ExecuteNonQuery()

' 执行更新操作
Dim updateQuery As String = "UPDATE tableName SET column1 = @newValue WHERE column2 = @condition"
Dim updateCommand As New SqlCommand(updateQuery, connection)
updateCommand.Parameters.AddWithValue("@newValue", "newValue")
updateCommand.Parameters.AddWithValue("@condition", "condition")
updateCommand.ExecuteNonQuery()

' 执行删除操作
Dim deleteQuery As String = "DELETE FROM tableName WHERE column = @value"
Dim deleteCommand As New SqlCommand(deleteQuery, connection)
deleteCommand.Parameters.AddWithValue("@value", "value")
deleteCommand.ExecuteNonQuery()

connection.Close()