㈠ VB連接sql
問題補充：
「我想知道相對地址連接~~是SQL
移到的機子上不裝SQL那怎麼辦？？」
1、SQL資料庫連接必須是伺服器，不用地址，因為在安裝SQL
Server
2000
後，你的資料庫地址已經確定；
2、在一般情況下不安裝是不可以的，對於Access資料庫現在的操作系統有其驅動，而沒有SQL的，除非使用網路，例如區域網。
SQL
SERVER
2000
資料庫代碼比較簡單，無非資料庫連接語句不同，其他和Access資料庫沒有大的區別。
如果「程序要移動到其他機子上」，移動到的機子上必須同樣安裝SQL
SERVER
2000
資料庫，而且伺服器名稱、資料庫名稱必須和原伺服器名稱、資料庫名稱相同，如果有資料庫密碼，必須保持一致。
下面是SQL資料庫連接代碼，請參考：
Public
conn
As
New
ADODB.Connection
conn.ConnectionString
=
"driver={SQL
Server};server=伺服器名稱;uid=sa;pwd=密碼;database=資料庫名稱"
conn.Open
㈡ vb如何連接sql資料庫
1、打開代碼窗口，添加引用：Imports System.Data.SqlClient。
㈢ 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資料庫呀
你用ADO試試，那個更方便，給你連庫參考代碼供調試：
Public Cnn As New ADODB.Connection
Cnn.ConnectionString = "Driver={SQLServer};Server=ZIYA\ZSSDBA;Database=db_Mtjk;Uid=sa;Pwd=sa"
Cnn.Open
這個我多年來都這么用，沒錯！
其中Server=ZIYA\ZSSDBA這是你啟動sqlserver能看到，如實寫
Database=是你的資料庫名稱
Uid=sa;Pwd=sa"這是你資料庫的用戶名和密碼
資料庫連起來後還需對表操作，建議還用ADO
這里幾句話肯定是不夠的，只起到拋磚引玉的啟發作用，你需要有一本VB資料庫開發的書在手頭。開始感到很惱火，連通以後就越做越輕鬆了！
㈤ VB怎麼連接MSSql資料庫
要連接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
一、配置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
按下一步
1、輸入伺服器名稱
2、使用指定的伺服器信息
3、在伺服器上選擇資料庫
這時就選擇在SQL Server建好的資料庫就行了
5、測試連接可以看到連接是否成功。
㈦ SQL資料庫是怎麼和VB做的系統連接的
你在vb中添加一個 micsoft AOD Data control 6.0 步驟： 工程——部件 —— 再找到 micsoft AOD Data control 6.0 然後如圖所示在form 窗體添加Adodc1控制項——右擊Adodc1控制項選擇ADODC屬性 ——點擊生成——選擇 micsoft jet 4.0 OLE DB Provider —— 選擇你要連接到資料庫——測試連接——確定——選擇記錄源——選擇2—— adcmdTABLE ——選擇你要用的表 就OK 了 有點復雜吧。。
㈧ 在VB程序中怎麼樣能與SQL資料庫相連
這是用DAO 打開access資料庫：
首先在 「工程－引用」選擇microsoft DAO 3.6 Object Library，將資料庫保存在工程所保存的文件夾內
然後代碼如下：
dim db1 As Database
dim rs1 as recordset
Set db1 = OpenDatabase(App.Path & "\db1.mdb", False, False, ";Pwd=111")'假設資料庫名為db1.mdb，資料庫密碼為111。這樣db1就連接上資料庫db1.mdb了。下面代碼繼續對資料庫操作
set rs1=db1.openrecordset("select * from 表1") 'rs1 連接上表1
rs1.movefirst '移到表的第一條記錄
rs1.edit
rs1("姓名")="張三"
rs1.update '這樣就修改了第一條記錄的姓名欄位為「張三」
㈨ 用SQL怎麼建立資料庫，然後再和VB編的程序連接急求解！！！
SQL？sql server？那就下載個工具，再按照步驟創建資料庫。這個很簡單，一看就會。
VB鏈接資料庫的話，有兩種方法。
第一，用語句創建。涉及JDBC驅動，ADODB類中一些過程的調用，還是挺麻煩的
第二，用ADODC控制項來連接資料庫。只需要在控制項里設置少部分內容，就可以實現與資料庫的鏈接。另外，可添加DATAGRID控制項來顯示資料庫中表的內容。
我推薦樓主先用第一種方法來搞！畢竟，控制項再方便，也只是集成了這些語句而已，為了自己好，還是多寫幾句，肯定沒壞處！
對於第二種方案，樓主有需要的話我可以貢獻我的畢設給你看，是access資料庫跟VB鏈接的。[email protected]
㈩ 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