① VB怎麼連接 SQL 資料庫
一個簡單的方法:
首先,建立程序公共模塊輸入以下代碼:
Public conn As New ADODB.Connection
'全局變數 rst 指針
Public rst As New ADODB.Recordset
'全局調用函數 打開資料庫
Public Function openconn()
conn.ConnectionString = "連接信息"
'此連接信息最簡單的生成辦法:
'在任意窗口下建立一新ADODC控制項
'選擇控制項屬性,通用頁,使用連接字元串,生成(U)
'利用該向導生成出字元串,然後將該字元串復制到"連接信息"中即可
conn.Open
End Function
'全局調用函數 關閉資料庫
Public Function closeconn()
If conn.State = 1 Then
conn.Close
Set conn = Nothing
End If
End Function
然後在窗體文件中可以使用的函數:
打開資料庫:openconn
注意:此函數為自定義函數,無參數,定義在公共模塊中!
建立數據表連接:Set rst = conn.Execute("select * from 數據表名")
如做登陸頁可以這樣判斷用戶名密碼:
Text1.Text = RTrim(rst.Fields("id")) And Text2.Text = RTrim(rst.Fields("password"))
注:其中Text1.Text為輸入用戶名TextBOX Text2.Text為輸入密碼TextBOX
數據表中 id 為保存用戶名 password 為保存密碼!此方法為非加密方法!
關閉資料庫函數:
closeconn
Set rst = Nothing
注:此兩行,必須在打開資料庫的情況下使用!並且每打開一次資料庫後必須先使用此兩句將資料庫關閉後才可打開另一資料庫表文件!!!!!否則程序報錯終止!
添加新數據函數
rst.AddNew
rst("欄位名1") = Text1.Text
rst("欄位名2") = Text2.Text
rst.Update
刪除數據函數
rst.Delete
注:使用此函數前,必須保證資料庫指針函數rst指向需刪除數據,移動rst指針可以使用函數:rst.MoveNext或rst.MoveLast
更新數據函數
rst.Open "update 數據表名 set 欄位1='" + Text1.Text + "',欄位2='" + Text2.Text + "' where id='" + Text3.Text + "'", conn, 1, 3
注,其中 where id = 為更新特定數據表的查找!
如果熟悉SQL語句,還可編寫出其他方式的查找,這里就不多做介紹了!
② VB 遠程訪問SQL SERVER資料庫
對於跨網段連接資料庫，用VB來實現的確是差強人意。
我曾經試用幾個方法。
1.只要SQL資料庫是獨立IP的，通過ADO是可以遠程連接的，不過當數據量比較大時，這方法就不怎麼如意了。。
2.將程序打包成CAB，做成BS結構的。通過ADO的遠程組件RDS進行連接。詳細的自己網路吧。不過這個對一般人來說有點難度。
3.可以在伺服器做一個服務端，通過WINSOCK組件，傳送字串，也能實現此功能。
③ 想用VB編一個程序讀取sql資料庫中的內容
不同的計算機安裝SQL的連接是不同的.
關於連接總結如下:
ADODB編碼連接字的實例
VB中，關於SQL資料庫的連接是比較復雜的，但也有一個可以參考的學習思路，方法如下。
1、建立資料庫鏈接
在工具條中，有一個「數據視圖窗口」的工具，用它可以建立各種資料庫的鏈接。建立鏈接的過程：
點擊「數據視圖窗口」，出現「數據視圖」窗體，點擊選中「數據鏈接」，按右鍵，點擊「添加數據鏈接」，出現「數據鏈接屬性」窗口，有四個菜單：「提供程序」、「連接」、「高級」、「所有」。
選中「提供程序」菜單，這里有許多用於鏈接的驅動程序，選中「Microsoft OLE DB Provider for SQL Server」，點擊「下一步」。「Microsoft OLE DB Provider for SQL Server」是真正的SQL資料庫連接字用的驅動程序。
當選中「Microsoft OLE DB Provider for SQL Server」，點擊「下一步」，則自動進入「連接」窗體界面。這個「連接」窗體界面的內容，隨前面選取的驅動程序而定。
因為前面選擇的是「Microsoft OLE DB Provider for SQL Server」，所以，「連接」窗體的主要內容就是直接訪問SQL資料庫的相關內容的設置，如下：
在「…….伺服器名稱」一欄中怎麼選擇呢?如SQL資料庫伺服器安裝時是選擇當地默認的實例，即以本地計算機名代替的伺服器，則此處應填寫的內容是:(local)，或者是：本地的計算機名。估計，非本地的則可填寫：伺服器的IP地址或伺服器名稱。
在「輸入登錄伺服器的信息」一欄中怎麼選擇呢?當選擇「使用指定的用戶名和密碼」一項時，用戶名與密碼是在SQL伺服器安裝時選定的內容（值）。若不用密碼及用戶名登入，則連接字的密碼應代之為：Integrate Security=SSPI，表示用「Windows NT 集成安全設置」之意，SQL2005是用這一項的。但實際的ADODB的連接字是不能用這個NT打開的。
在「伺服器上選擇資料庫」一欄中怎麼選擇呢?當前面兩項內容選擇正確後，此處的內容是存在可選的，選中即可。
最後「測試連接」，顯示成功。則在「數據視圖」窗體的「數據鏈接」中將出現「Datelink1」，表示建立了以「Datelink1」為名的第1個資料庫鏈接。當然也可以建立多個，名字將分別為「Datelink2」、「Datelink3」……
2、從已建立的資料庫鏈接的屬性中找連接字。
當選中「數據視圖」窗體的「數據鏈接」，出現「Datelink1」，並選中「Datelink1」，按右鍵出現彈出菜單，選中「屬性」，點擊，並可看見這個鏈接所用到的名字「Name」，「Name」對應的值，就是連接字的主要內容。只是缺少「Password= 」與「 .ConnectionTimeout= 」，因此只要把這兩向補齊，就是一個完整可用的ADODB的連接字，而且也適用於ADODC控制項的字連接，即ConnectionString，但不需要雙引號「」而已。
注意：在前面「數據鏈接屬性」窗口的四個菜單「提供程序」、「連接」、「高級」、「所有」中，前面只重點介紹了「提供程序」與「連接」兩項，實際上，「高級」就有ConnectionTimeout屬性的選擇項。而「提供程序」、「連接」、「高級」三項的選擇結果，都在「所有」項中集中顯示出來，而且「所有」項中，還有前三項不具有的其它的內容，因此，要注意察看與應用。
Command1_Click()
Me.Caption = "NAME"
Me.Cls
Dim con As ADODB.Connection (註：ADODC控制項用的申明，不用ADODB，也不用Adodc。)
Dim rs As New ADODB.Recordset
Set con = New ADODB.Connection
con.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=SQL資料庫名;Data Sure=(local);Password=密碼值（註：無時不選此項）;Use Procere for preplare=1;Auto Translate=True;Packet Size = 4096;Workstation ID=（local）（註：或是區域網的機器名）;Use Encryption for Date=False;Tag With column collation when Possible=False"
con.Open
rs.Open "Select * from SQL資料庫表或視圖名 ", con
Me.AutoRedraw = True
rs.MoveFirst
Dim ptr As Integer
For ptr = 0 To 20
Print rs.Fields(ptr).Name, 注:Name表示是表格的列名。
Next ptr
While Not rs.EOF()
Print
For ptr = 0 To 20
Print rs.Fields(ptr).Value, 注:Value表示是表格的數值。
Next ptr
rs.MoveNext
Wend
End Sub
用ADODC方法更簡單:
在窗口中建立:Command1,CAdodc1及DataDrid1,設置好CAdodc1的連接屬性,見前所述.
Command1_Click()
Me.Caption = "NAME"
Me.Cls
Set DataDrid1=Adodc1
End Sub
④ 怎樣在vb中訪問sql資料庫。代碼是什麼
On
Error
GoTo
err
Dim
cn
As
New
ADODB.Connection
'有密碼的連接：
'cn.ConnectionString
=
"Provider=SQLOLEDB.1;Persist
Security
Info=False;User
ID=登陸用戶名;Password=登錄密碼;Initial
Catalog=資料庫名;Data
Source=伺服器別名"
'無密碼的連接：
cn.ConnectionString
=
"Provider=SQLOLEDB.1;Integrated
Security=SSPI;Persist
Security
Info=False;Initial
Catalog=資料庫名;Data
Source=伺服器別名"
cn.CursorLocation=adUseClient'設置客戶端游標
cn.Open
⑤ VB訪問資料庫（sql sever2000)的實例
1.先在工程---引用裡面在可引用的引用中找到microsoft activex data objects 2.8 library和microsoft activex data objects recordset 2.8 library,將其勾選，為寫代碼做准備
2，在窗體上放一個combo1和command1
3，代碼
Private Sub Command1_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.Open "Driver={SQL Server};SERVER=資料庫機器ip;DATABASE=student;UID=sa;PWD="
sql = "select sno from std where sn='1111'"
rs.Open sql, conn, 3, 1
While Not rs.EOF
Combo1.AddItem rs("sno")
rs.MoveNext
Wend
Set conn = Nothing
Set rs = Nothing
End Sub
⑥ SQL的資料庫IP地址在哪找
方法如下：
首先確認資料庫伺服器功能開啟沒有。
服務裡面找到SQL
Server
Agent
(MSSQLSERVER)
，啟動。
本機IP地址一般都是127.0.0.1,至於名字，一般都是裝資料庫時實例的名字
。
⑦ 如何在vb程序中查找資料庫信息並顯示
要查找資料庫信息，關鍵是要解決鏈接資料庫的問題，下面簡述Vb如何SQL資料庫：
有兩種方法可以實現，一種是通過ODBC數據源的配置進行連接，一種是通過純代碼編輯進行連接，下面我們就詳細介紹一下這兩種連接方法。
ODBC數據源VB連接SQL資料庫
一、配置ODBC數據源
1、在控制面板中，雙擊管理工具，然後打開ODBC數據源管理器。
2、在「系統DSN」選項卡中，單擊「添加」按鈕，打開「創建新數據源」對話框，在「名稱」列表框中選擇「SQL Server」。選好單擊完成
3、在打開「建立新的數據源到SQL Server」對話框，在「名稱」文本框輸入新數據源的名稱，描述數據源按你理解的方式來寫(隨意)。「伺服器」就選擇你要連接到的伺服器。
4、選擇使用用戶輸入登錄的ID和密碼的SQL 驗證。選連接SQL默認設置
5、再下一步下一步，完成。測試數據源看連接是否成功就行了。成功後按確定。
二、VB中設置連接
1、添加部件Mircrosoft ADO Data Control 6.0(OLEDB),把部件拖到窗體。
2、對ADO部件點右鍵選屬性，選擇使用連接字元串，按生成。
3、選擇Mircosoft OLE DB Providar for SQL Server按下一步
4、
1）輸入伺服器名稱
2）使用指定的伺服器信息
3）在伺服器上選擇資料庫
這時就選擇你在SQL Server建好的資料庫就行了
5、測試連接可以看到連接是否成功！
通過代碼VB連接SQL資料庫
Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public addFlag As Boolean
Public Function OpenCn(ByVal Cip As String) As Boolean
Dim mag As String
On Error GoTo strerrmag
Set conn = New ADODB.Connection
conn.ConnectionTimeout = 25
conn.Provider = "sqloledb"
conn.Properties("data source").Value = Cip '伺服器的名字
conn.Properties("initial catalog").Value = "zqoa" '庫名
'conn.Properties("integrated security").Value = "SSPI" '登陸類型
conn.Properties("user id").Value = "sa"
conn.Properties("password").Value = "sa"
conn.Open
OpenCn = True
addFlag = True
Exit Function
strerrmag:
mag = "Data can't connect"
Call MsgBox(mag, vbOKOnly, "Error:Data connect")
addFlag = False
Exit Function
End Function
Public Sub cloCn()
On Error Resume Next
If conn.State <> adStateClosed Then conn.Close
Set conn = 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 rs = New ADODB.Recordset
If addFlag = False Then rpy = True
With rs
.ActiveConnection = conn
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open strsql
End With
addFlag = True
openRs = True
End
'Exit Function
strerrmag:
mag = "data not connect"
Call MsgBox(mag, vbOKOnly, "error:connect")
openRs = False
End
'Exit Function
End Function
Public Sub cloRs()
On Error Resume Next
If rs.State <> adStateClosed Then rs.Clone
Set rs = Nothing
End Sub
⑧ 用vb怎麼連接SQL資料庫
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\你資料庫的名稱"
Dim strquery As String
strquery = "select * from Table_Users where 用戶名='" & Trim(Text1.Text) & "'and 密碼= '" & Trim(Text2.Text) & "'"
Adodc1.RecordSource = strquery
Adodc1.Refresh
這樣應該就ok了 希望能幫到你
⑨ 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 Server資料庫
要連接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