ODBC链接

Imports System.Data.Odbc

Public Class Form1


    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'CreateOdbcConnection()
        InsertRow("driver={SQL Server};server=服务器名;uid=sa;pwd=123;database=数据库名")
    End Sub

    Private Sub CreateOdbcConnection()

        Using connection As New OdbcConnection
            'connection.ConnectionString = "Driver={SQL Server};DBQ=C:\Samples\Northwind.mdb"
            connection.ConnectionString = "driver={SQL Server};server=服务器名;uid=sa;pwd=123;database=数据库名"
            connection.Open()
        End Using

    End Sub


    Private Sub InsertRow(ByVal connectionString As String)

        Dim queryString As String =
            "INSERT INTO Table_1 (name) Values('NWIND')"
        Dim command As New OdbcCommand(queryString)

        Using connection As New OdbcConnection(connectionString)
            command.Connection = connection
            connection.Open()
            command.ExecuteNonQuery()

            ' The connection is automatically closed at 
            ' the end of the Using block.
        End Using
    End Sub
End Class

SELECT取结果集参考