vb與sql資料庫

❶ vb如何連接SQL資料庫

具體方法和代碼如下：

set conn=server.createobject("adodb.connection")
變數名="driver=sql server;server=IP地址;database=資料庫名;uid=用戶名;pwd=密碼"
conn.open 變數名

"conn"是你設置的對象名
"變數名" 為自定義
"IP地址" 你計算機的IP
"資料庫名" 你資料庫的名稱
"用戶名"和"密碼" sql server安裝時的設置，如果你安裝時用的是windows身份驗證，那麼你就要新建一個用戶， 新建用戶在企業管理器裡面。
如果安裝時用的是sql server身份驗證，那麼它的默認用戶名為"sa" 密碼有空，就是沒有密碼的意思。
如果你不知道你安裝時用的是 windows身份驗證
還是 sql server身份驗證 那麼你可以打開查詢分析器，在那裡可以看見

❷ 如何將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資料庫

VB連接SQL資料庫的模塊:
Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public addFlag As Boolean

Public Function OpenCn() 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 = "127.0.0.1" ''伺服器的名字
conn.Properties("initial catalog").Value = "chart" ''庫名
conn.Properties("integrated security").Value = "SSPI" ''登陸類型
conn.Open
OpenCn = True
addFlag = True
Exit Function
strerrmag:
mag = "Data can''t connect"
Call MsgBox(mag, vbOKCancel, "Error:Data connect")
addFlag = False
End
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
Exit Function
strerrmag:
mag = "data not connect"
Call MsgBox(mag, vbOKCancel, "error:connect")
openrs = False
End
End Function
Public Sub clors()
On Error Resume Next
If rs.State <> adStateClosed Then rs.Clone
Set rs = Nothing
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
按下一步
4、
1、輸入伺服器名稱
2、使用指定的伺服器信息
3、在伺服器上選擇資料庫
這時就選擇你在SQL Server建好的資料庫就行了
5、測試連接可以看到連接是否成功！

❺ 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

❻ 關於SQL和VB的一些區別

這兩門課都是關於軟體開發的或者說程序開發的,在計算機專業這是內
專業課,而且很重容要,sql我不知你指的是sql語言還是微軟的sql server 資料庫,我假設為前者,那麼sql就是關於資料庫開發的語言,vb是傳統的程序開發語言,從這一點看,它們都是計算機開發語言,都是用來寫程序的. 只是它們面對的方向不同,很久以前的程序都很小,要處理的數據也很少,一般存到文件了里就可以了,而現在的程序不象以前,現在的程序要處理的數據十分龐大,動不動就幾萬至幾十萬條,這個時候,就需要把數據分類出來,由一個專門的軟體:資料庫軟體來管理,sql就是資料庫軟體里用的操作數據的語言,而vb就是開發我們通常說的程序的一們語言,與他一個層次的還有c++,java等,而sql是各個資料庫管理軟體都遵守的標准語言,不論是oracle,sqlserver,還是其他的,都能可以執行sql語句,只是這些資料庫管理軟體sql的基礎上擴充了一些功能而已,

❼ 在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 '這樣就修改了第一條記錄的姓名欄位為「張三」

❽ 如何用vb語句連接SQL資料庫

可以參考下邊自己稍作修改即可：
Sub Main()
On Error GoTo On_error
'frmWelcome.Show
Set con = New ADODB.Connection
con.ConnectionString = ("Provider=SQLOLEDB;User ID=sa;PWD=;Initial Catalog=human;Data Source=.")
con.Open
con.CommandTimeout = 20
Load frmLogin
frmLogin.Show vbModal
Exit Sub
On_error:
If Err.Number = -2147467259 Or Err.Number = -2147217900 Then
Unload frmWelcome
MsgBox "檢查到 SQL Server 未安裝或軟體所需資料庫未安裝..." & vbCrLf & "正在進一步檢查 SQL Server 的安裝情況,若已啟動則開始安裝資料庫... ", vbInformation + vbOKOnly, "系統提示"
Shell (App.Path & "\Installdb.exe")
End
Else
MsgBox Err.Number & Err.Description, vbInformation + vbOKOnly, "系統提示"
End
End If
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資料庫

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