vb写入sql数据库代码

Dim connectionString As String = "Provider=SQLOLEDB;Data Source=你的服务器名;Initial Catalog=你的数据库名;Integrated Security=SSPI;"
Dim connection As New ADODB.Connection()
Dim command As New ADODB.Command()

Try
    ' 打开连接
    connection.ConnectionString = connectionString
    connection.Open()

    ' 设置命令文本
    command.ActiveConnection = connection
    command.CommandText = "INSERT INTO YourTable (Column1, Column2) VALUES ('Value1', 'Value2')"

    ' 执行命令
    command.Execute()

    Console.WriteLine("数据插入成功！")
Catch ex As Exception
    Console.WriteLine("发生错误: " & ex.Message)
Finally
    ' 关闭连接
    If connection.State = ADODB.ConnectionState.Open Then
        connection.Close()
    End If
End Try