vbsql實例連接
'使用ADODB對象，必須先進行對象模型的引用，步驟如下
'通過菜單[工程] -- [引用]，勾選 Microsoft ActiveX Data Object 2.6 Library
'Microsoft ActiveX Data Object 2.7 Library
'Microsoft ActiveX Data Object 2.8 Library
'都可以
完整的代碼以及相關注釋如下：（代碼完全可以復制使用）
需要在窗體上添加一個按鈕和一個DataGrid1控制項
Option Explicit
Private Sub Command1_Click()
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>基本知識>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
'ADODB對象模型，是VB用來操作資料庫的有力工具，其中兩個對象最有價值；
'1.ADODB.Connection -- 用來連接資料庫文件:
'主要完成對資料庫以及數據表的操作；比如：創建資料庫，創建、刪除、復制數據表等等。
'2.ADODB.Recordset -- 用來返回數據記錄集:
'主要完成對記錄的操作；比如：返回記錄，添加、刪除記錄等等。使用SQL語句可以實現強大的功能。
'下面簡單介紹使用ADODB對象進行資料庫操作的步驟
'一，聲明並實例化對象
Dim Conn As ADODB.Connection '聲明連接資料庫對象 -- 用來連接資料庫文件，並對資料庫以及數據表的操作
Dim Rst As ADODB.Recordset '聲明數據記錄集對象 -- 用來返回數據記錄集，並對記錄的操作
Set Conn = New ADODB.Connection '資料庫對象的實例化
Set Rst = New ADODB.Recordset '記錄集對象的實例化
'二，連接資料庫文件
'執行 ADODB.Connection對象的Open方法，完成資料庫的連接
Conn.CursorLocation = adUseClient
'注意下面的一些參數，需要根據使用者的特定情況進行修改
'Password=密碼 中的「密碼」，是登錄SQL SERVER 的密碼
'User ID=實例名 中的「實例名」，是SQL SERVER 的實例名，一般使用「sa」
'Initial Catalog=資料庫名 中的「資料庫名」，只你要訪問的資料庫名
'Data Source=SQL SERVER伺服器名 中的「SQL SERVER伺服器名」是你要訪問使用的安裝了SQL SERVER的伺服器計算機名
Conn.Open "Provider=SQLOLEDB.1;Password=密碼;Persist Security Info=True;User ID=實例名;Initial Catalog=資料庫名;Data Source=SQL SERVER伺服器名"
'三，返回記錄集
'執行 ADODB.Recordset對象的Open方法，獲得記錄集
'注意，把「數據表名」改為你的實際數據表名稱
Rst.Open "Select * From 數據表名", Conn, adOpenKeyset, adLockPessimistic
Set DataGrid1.DataSource = Rst
Set Rst = Nothing '釋放記錄集對象
Set Conn = Nothing '釋放資料庫對象
End Sub
Ⅱ VB如何連接SQL資料庫
一個用VB連接SQL資料庫連接的模塊2007年01月22日 星期一 下午 05:29下面是一個連接資料庫的模塊，大家可以使用它來連接SQL資料庫，使用起來比ADO控制項還簡單：
代碼如下：
Public rsNew As ADODB.Recordset
Public CnNew As ADODB.Connection
Public addFlag As Boolean
'連接資料庫
Public Function OpenCn() As Boolean
Dim Mag As String
On Error GoTo strErrMag
Set CnNew = New ADODB.Connection
CnNew.ConnectionTimeout = 25
CnNew.Provider = "sqloledb"
CnNew.Properties("data source").value = "" 'SQL伺服器的名
CnNew.Properties("initial catalog").value = "pubs"'庫名
CnNew.Properties("integrated security").value = "SSPI"'登陸類型
'con.Properties("user id").value = "sa"
'con.Properties("password").value = "wwww"
CnNew.Open
OpenCn = True
addFlag = True
Exit Function
strErrMag:
Mag = "資料庫末連接"
Call MsgBox(Mag, vbOKCancel, "錯誤:資料庫連接")
addFlag = False
End
End Function
Public Sub Clocn()
'閉關資料庫
On Error Resume Next
If CnNew.State <> adStateClosed Then CnNew.Close
Set CnNew = Nothing
End Sub
Public Function OpenRs(ByVal strSql As String) As Boolean
'連接資料庫記錄集
Dim Mag As String
Dim rpy As Boolean
On Error GoTo strErrMag
Set rsNew = New ADODB.Recordset
If addFlag = False Then rpy = OpenCn
With rsNew
.ActiveConnection = CnNew
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open strSql
End With
addFlag = True
OpenRs = True
Exit Function
strErrMag:
Mag = "資料庫數據集末連接"
Call MsgBox(Mag, vbOKOnly, "錯誤:資料庫連接")
OpenRs = False
End
End Function
Public Sub cloRs()
'閉關數據集
On Error Resume Next
If rsNew.State <> adStateClosed Then rsNew.Close
Set rsNew = Nothing
End Sub
只要在你的標准模塊中加入該代碼，你就可以使用其中的函數來連接數據源了。
Ⅲ vb如何和SQL連接起來，告急
Vb6.0連資料庫
1.1 ADO(ActiveX Data Object)連接方式
在連接資料庫前，首先要在Visual Basic 6.0菜單中「工程」—>「引用」中選擇Microsoft ActiveX Data Objects 2.6 Library 和Microsoft ActiveX Data Objects Recordset 2.6 Library這兩個組件。
實例：以建立登陸系統為例，介紹無源資料庫連接。在Microsoft SQL Server 2000 中建立一個Student 的資料庫，在Student資料庫中建立login_user(name,password)的數據表，Microsoft SQL Server伺服器的名為data_server。代碼如下：
Option Explicit
Public LoginSucceeded As Boolean
'引用Microsoft ActiveX Data Objects 2.6 Library
'定義連接對象和記錄集
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
'對取消按鈕單擊事件的響應
Private Sub cmdCancel_Click()
'設置全局變數為 false
'不提示失敗的登錄
LoginSucceeded = False
Me.Hide
End Sub
'對登錄按鈕單擊事件的響應
Private Sub cmdOK_Click()
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
'建立無源資料庫連接
conn.ConnectionString="driver={sql server};server=data_server;uid=sa;pwd=;Database=student"
conn.ConnectionTimeout = 50
conn.Open
Dim str As String
'連接連接對象
Set rs.ActiveConnection = conn
'設置游標類型
rs.CursorType = adOpenDynamic
If Trim(txtUserName.Text = "") Then
MsgBox "用戶名不能為空，請重新輸入用戶名！", vbOKOnly + vbExclamation, "警告"
txtUserName.SetFocus
Else
'設置查詢字元串
str = "select * from login_user where name ='" & Trim(txtUserName.Text) & "'"
rs.Open str
If rs.EOF = True Then
MsgBox "沒有這個用戶，請重新輸入用戶名!", vbOKOnly + vbExclamation, "警告"
txtUserName.SetFocus
Else
'登錄成功，連接主窗口
If (Trim(txtPassword.Text) = Trim(rs.Fields("password"))) Then
LoginSucceeded = True
Me.Hide
main.Show
Else
MsgBox "密碼不正確，請重輸入密碼!", , "警告"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
End If
End If
End Sub
2 通過配置ODBC環境，進行數據源的注冊，對資料庫進行連接、訪問和操作。
2.1 ODBC數據源分為以下三類：
（1） 用戶DSN：只有創建數據源的用戶才可以使用他們自己創建的數據源，而且只能在當前的計算機上使用。
（2） 系統DSN：任何使用你的計算機的用戶和程序都可以使用的DSN。
（3） 文件DSN：除了具有系統DSN的功能之外，還能被其它用戶在其它計算機上使用。
2.2 創建ODBC數據源的步驟
（1） 啟動控制面板。
（2） 雙擊ODBC圖標，啟動ODBC數據源。
（3） 換到「用戶DSN」標簽，單擊「添加」。選擇SQLServer作為數據源的驅動程序。
（4） 為數據源命名，按提示操作即可創建ODBC數據源。
2.3 創建資料庫連接
創建數據源是進行有源資料庫連接的第一步，下面同樣是運用ADO對象模型的主要元素Connection（連接）進行源資料庫連接。
ConnectionString是Connection對象的屬性名稱，提供數據提供者或服務提供者打開到數據源的連接所需要的特定信息，包括Database、DSN、UID等。
（1） Database：字元串表達式，指定伺服器上的資料庫名稱。
（2） UID：字元串表達式，為ODBC數據源指定用戶標識（用戶賬號名）。
（3） PWD：字元串表達式，為ODBC數據源指定用戶口令。
（4） DSN：字元串表達式，指定連接的ODBC 數據源名稱。
利用已配置好的ODBC數據源進行連接。
實例：以建立查詢系統為例，介紹有源資料庫連接。創建ODBC數據源名稱為stud，通過ADO與資料庫student進行連接，代碼如下：
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Form_Load()
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "dsn=stud;uid=sa;pwd=;database=student"
conn.Open
Dim str As String
Set rs.ActiveConnection = conn
rs.CursorType = adOpenDynamic
str = "select * from login_user"
rs.Open str
txtUserName.Text = rs.Fields("name")
txtPassword.Text = rs.Fields("password")
End Sub
Ⅳ VB6.0 如何連接SQL 資料庫
你在SQL SERVER中新建一個資料庫，然後將這個資料庫生成腳本文件，根據情況修改後轉存為MASTER下的一個存儲過程。至於資料庫名和數據文件路徑可以做成參數傳入，然後在VB中用連到MASTER後執行這個存儲過程。
用VB與建立的SQL資料庫連接
1.使用ODBC DSN連接字元串
DSN=mySystemDSN;Uid=myUsername;Pwd=myPassword
----------------------------------------------
2.使用無ODBC DSN的連接字元串
(1)標准安全性
Driver={SQL Server};Server=MyServerName;DataBase=myDatabaseName; _
Uid=myUsername;Pwd=myPassword
------------------------------------------------
(2)信任連接(分兩種）
1）連接字元串1
Driver={SQL Server};Server=MyServerName;DataBase=myDatabaseName;Uid=;Pwd=；
2）連接字元串2
Driver={SQL Server};Server=MyServerName;DataBase=myDatabaseName;Trusted_Connection=yes
---------------------------------------------------------------------------
(3)連接本地SQL SERVER
Driver={SQL Server};Server=(local);DataBase=myDatabaseName; _
Uid=myUsername;Pwd=myPassword
-------------------------------------------------------------
(4)連接遠程SQL SERVER
Driver={SQL Server};Server=xxx.xxx.xxx.xxx; _
Address=xxx.xxx.xxx.xxx,1433; _
Network=DBMMSOCN;DataBase=myDatabaseName; _
Uid=myUsername;Pwd=myPassword
-------------------------------------------------------
3.使用OLEDB PROVIDER FOR SQL SERVER的連接字元串
(1)標准安全性
Provider=SQLOLEDB.1; _
Password=myPassword; _
User ID=myUsername; _
Initial Catalog=myDatabaseName; _
Data Source=MyServerName
-------------------------------------------
(2)信任連接
Provider=SQLOLEDB.1; _
Initial Catalog=myDatabaseName; _
Data Source=MyServerName; _
Integrated Security=SSPI
--------------------------------------
(3)連接到命名實例
Provider=SQLOLEDB.1; _
Initial Catalog=myDatabaseName; _
Data Source=myServerName\myInstanceName; _
Password=myPassword; _
User ID=myUsername
--------------------------------------
(4)連接到本地SQL SERVER
Provider=SQLOLEDB.1; _
Password=myPassword; _
User ID=myUsername; _
Initial Catalog=myDatabaseName; _
Data Source=(local)
-----------------------------------------
（5）連接到遠程SQL SERVER
Provider=SQLOLEDB.1; _
Netwprk Library=DBMMSOCN; _
Data Source=xxx.xxx.xxx.xxx,1433; _
Password=myPassword; _
User ID=myUsername; _
Initial Catalog=myDatabaseName;
Ⅳ vb如何連接sql資料庫
1、打開代碼窗口，添加引用：Imports System.Data.SqlClient。
Ⅵ 如何將VB和SQL資料庫進行連接
Dim
oleDbConnection1
As
OleDb.OleDbConnection
Dim
strConnect
As
Sting="Provider=SQLOLEDB；Persist
Security
Info=False；
Data
Source=伺服器名；Initial
Catalog=資料庫名；User
ID=sa；Password=；"
oleDbConnection1=New
System.Data.OleDb.OleDbConnection（strConnect）
填上的伺服器名
和資料庫名
用戶名
和密碼
後用這個語句可以進行連接
Ⅶ vb如何連接sql資料庫,求源碼
Public My_Cnn As New ADODB.Connection '連接資料庫
StrCnn = "Provider=SQLOLEDB.1;Password=密碼;Persist Security Info=True;User ID=用戶名;Initial Catalog=資料庫名;Data Source=伺服器名"
My_Cnn.CursorLocation = adUseClient
My_Cnn.Open StrCnn
使用資料庫
Dim sql As String
Dim My_temp As New ADODB.Recordset
執行SQL語句（一般插入，刪除數據）
sql = "資料庫語句"
My_cnn.Execute sql
讀取數據
sql = "查詢語句"
My_temp.Open sql, My_cnn, adOpenDynamic, adLockOptimistic
My_temp.field("欄位名")
Ⅷ vb怎麼連接sql
在窗體上添加adodc控制項
滑鼠右鍵-adodc屬性-在通用選項卡里，點生成，選for
SQL
Server驅動程序-下一步-連接選項卡里
1.輸入伺服器名稱，2.使用Windows
NT
集成安全設置。3.選擇一個資料庫
點測試連接，看看是否成功。按確定
點記錄源選項卡，命令類型選8，命令文本（SQL）寫：select
*
from
table1
確定，就連接到SQL資料庫的表table1了。
Private
Sub
Command1_Click()
If
Not
Adodc1.Recordset.EOF
Then
Text1.Text
=
Adodc1.Recordset.Fields("line1")
End
If
End
Sub
Ⅸ 如何用VB實現連接SQL資料庫
一是：Public Function ConnectString() _
As String
ConnectString = "Provider=SQLOLEDB;User ID=用戶;Password=密碼;" & "Data Source=" + IP地址 + ";" & "Initial Catalog=資料庫名" _
End Function
二是：
Public Function ExecuteSQL(ByVal SQL _
As String, MsgString As String) _
As ADODB.Recordset
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sTokens() As String
On Error GoTo ExecuteSQL_Error
sTokens = Split(SQL)
Set cnn = New ADODB.Connection
cnn.Open ConnectString
If InStr("INSERT,DELETE,UPDATE", _
UCase$(sTokens(0))) Then
cnn.Execute SQL
MsgString = sTokens(0) & _
" query successful"
Else
Set rst = New ADODB.Recordset
rst.Open Trim$(SQL), cnn, _
adOpenKeyset, _
adLockOptimistic
Set ExecuteSQL = rst
MsgString = "查詢到" & rst.RecordCount & _
" 條記錄 "
End If
ExecuteSQL_Exit:
Set rst = Nothing
Set cnn = Nothing
Exit Function
ExecuteSQL_Error:
MsgString = "查詢錯誤: " & _
Err.Description
Resume ExecuteSQL_Exit
End Function
以上復制到模塊「Mole1」中
三是:聲明：
Dim ADO1 As Recordset
Option Explicit
Dim MsgText As String
Dim TXTSQL As String
四是：連接
TXTSQL = "select * from 表名"
Set ADO1 = ExecuteSQL(TXTSQL, MsgText)
ADO1.Requery
五是顯示欄位
Set Text1.DataSource = ADO1
Text1.DataField = "欄位"
Set MSHFlexGrid1.DataSource = ADO1