sql與vb連接

㈠ 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

㈡ vb如何實現與sql進行數據連接

模塊：
Public cnn As New ADODB.Connection
Public rst As New ADODB.Recordset
Public strcnn As String
Public strsql As String
Public Sub main()
strcnn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Database=students" '這里是自動生成的
End Sub

㈢ Sql資料庫和vb的連接

'使用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

http://..com/question/124849874.html

http://hi..com/%C2%B7%C4%CF%C6%BD/blog/item/19f7c803f1a9b080d43f7c9b.html

㈤ 如何將拷貝過來的SQL資料庫和VB程序連接起來

1，首先你的計算機是安裝了相應的SQL系統，和VB系統。
2，把資料庫導入到你的計算機的SQL系統里。
3，打開你拷貝來的VB程序，在程序里找到鏈接資料庫的語句，只要把其中鏈接資料庫的語句中涉及到的計算機名，修改成你的計算機的名稱就可以了。

㈥ vb如何連接sql資料庫

1、打開代碼窗口，添加引用：Imports System.Data.SqlClient。

㈦ VB連接SQL資料庫

要連接SQL資料庫有兩種方法用ADODC或ADO。
方法一: （ADODC)
首先須引用Projects-Components-Microsoft ADO Data Controls 6.0 (OLEDB)。
之後在表單設置ADODC控制項。然後Form_Load()輸入以下代碼：

Private Sub Form_Load()
ADODC1.ConnectionString = "Provider=SQLOLEDB;Password=密碼;Persist Security Info=False;User ID=用戶名;Initial Catalog=資料庫名;Data Source=伺服器名"

ADODC1.CommandType = adCmdText
ADODC1.RecordSource = "select * from 表格名稱"
ADODC1.Refresh
End Sub

方法二: (ADO)

首先須引用Projects-References-Microsoft Active X Data Objects 2.0 Library。

注意以下兩段須寫在程式最上面（Gerenal一般）中。

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim SQL As String

然後在Form_Load()輸入以下代碼：
Private Sub Form_Load()
cn.ConnectionString = "Provider=SQLOLEDB;Password=密碼;Persist Security Info=False;User ID=用戶名;Initial Catalog=資料庫名;Data Source=伺服器名"
cn.Open

If rs.State = adStateOpen Then rs.Close
rs.CursorLocation = adUseClient
SQL = "select * from 表格名"
rs.Open Trim$(SQL), cn, adOpenKeyset, adLockPessimistic
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最簡單方法

這一種方法是採用有源的方法與資料庫連接的方法，代碼如下所示：
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "DSN=login;uid=sa;pwd=;"
conn.ConnectionTimeout = 30
conn.Open
rs.Open "select 用戶名 from login", conn, adOpenStatic, adLockReadOnly, adCmdText
Dim i As String
For t = 0 To Val(rs.RecordCount) - 1
i = Trim(rs.Fields("用戶名").Value)
rs.MoveNext
Combo1.AddItem i
Next t
rs.Close
連接資料庫的方法很多很多，只要各位去勇敢的償試一下，就可以感覺資料庫的方法並不是很難，本人以前也很想做這方法的工作，只是學識不深，未能完成胸中大志，如今對這些方法的多少有一些了解，特意為那些初學者以供學習之用。