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
ODBC链接 VB.NET 版的 (参考的MSDN帮助文档)
最新推荐文章于 2021-05-26 10:46:44 发布