vb如何連接sql資料庫

㈠ 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 = "FileDSN=info.dsn;UID=sa;PWD=23" '連接字元器，改成你自己的
End Function
Public Function ExecuteSQL(ByVal SQL _
As String, MsgString As String) _
As ADODB.Recordset '這里是執行SQL語句，你只需要調用這個方法，把SQL查詢語句參數傳進來，最後返回一個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
'rst.MoveLast 'get RecordCount
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
Public Function Testtxt(txt As String) As Boolean
If Trim(txt) = "" Then
Testtxt = False
Else
Testtxt = True
End If
End Function

㈢ 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 用ado連接sql資料庫。。。。

在VB中使用ADO

在程序設計中,ADO不是作為可視化的控制項來使用的,如果要在應用程序中使用ADO組件,需要在"工程"菜單下的"引用"項中選該組件!該組件名稱為:"Mircrosoft ActiveX Data Object 2.0 Library" (注:可能有2.5 2.6 或者其他版本)

3->ADO數據訪問過程概要

使用ADO訪問資料庫類似於高速公路,首先,必須先修好公路,建立城市與城市間的連接,汽車才能在上面運行,ADO首先也需要建立程序與資料庫間的連接,然後在這個連接上執行操作.
因此ADO提供了一個連接對象,該對象負責建立與資料庫的連接,因此提供了一些屬性以供設置,同時也提供了建立連接的方法與相應連接相關的事件!

連接建立之後,連接對像本身也提供了資料庫執行操作的方法,但要更強有力的執行SQL的功能要由另一個命令對象來實現.

此外,一個非常重要的對象是記錄集對像,因為在很多時候,需要執行資料庫的查詢,而查詢的結果返回必須以某個容器來承載,就好比高速公路運送回來的貨物需要建立一個物資倉庫來進行貨物的接收和儲存.

還需要注意的是,要求程序與資料庫之間斷開連接.

連接對象,命令對象,和記錄集對象分別對應ADO的Connection,Command,和Recordset三個對象

4->ADO Connection對象的屬性方法和事件

1.連接對象(Connection)的主要屬性

屬性名稱 屬性說明
Provider 指定要進行連接的提供程序的名稱,該屬性標識要進行數據連接的資料庫類型
CommandTimeOut 設置或者返回產生錯誤之前執行命令期間需等待的時間,單位為秒
ConnectionTimeOut 設置或者返回產生錯誤前建立連接期間所等待的時間,單位為秒
ConnectionString 設置建立到數據源的連接的信息,不同的信息單元以";"號分割
State 說明當前連接的狀態信息

主要屬性說明:

A.Provider
用 Provider 屬性可以設置或返回連接提供者名稱,也可以通過ConnectionString屬性的內容或open方法的ConnectionString參數設置該屬性

例如: Con.Provider="Microsoft.Jet.OLEDB.3.51"
Con.Provider="sqloledb"
分別表示access與Sql Server的連接支持!

B.ConnectionString

例如,可以按以下方式分別設置SQL Server與Access的連接字元串信息

Con.ConnectionString="driver={SQL Server};server=SV1;uid=sa;pwd=;database=pubs"

Con.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\1.MDB"

請注意Access資料庫與Sql Server資料庫不同的連接方式,Access資料庫需要指定具體的文件名,而Sql Server通過指定資料庫名來訪問

連接方式可以還可以是數據源,例如,可以使用建立的數據源連接:
Con.ConnectionString="DSN=ACCPSQL;server=SV1;uid=sa;pwd=;"

C.State

該屬性是只讀的,不能進行設置,返回值為adStateClosed常數表示連接已關閉,返回值adStateOpen常數表示連接是打開的

附:Provider Parameters 參數

提供程序 參數字元串
Micrusoft Jet Microsoft.Jet.OLEDB.3.51
Oracle MSDAORA
Microsoft ODBC Driver MSDASQL
SQL Server SQLOLEDB

㈤ vb的sql資料庫連接

先建一個工程,建立一個form1,form1中的代碼如下:
Dim rsNew As ADODB.Recordset
Dim CnNew As ADODB.Connection
Dim wsh As New WshShell
Dim serverlink As String
Private Sub Command1_Click()
Dim Mag As String
On Error GoTo strErrMag
Set CnNew = New ADODB.Connection
Set wsh = New WshShell
Text1 = wsh.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\ZJRB\SERVERNAME")
Text3 = wsh.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\ZJRB\PWD")
Text2 = wsh.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\ZJRB\USENAME")
serverlink = "Provider=SQLOLEDB.1;Password=" + Trim(Text3.Text) + ";Persist Security Info=True;User ID=" + Trim(Text2.Text) + ";Initial Catalog=master;Data Source=" + Trim(Text1.Text)
CnNew.Open serverlink
Exit Sub
strErrMag:
Mag = "資料庫連接錯誤，在下列的窗體中請輸入正確的信息！"
MsgBox Mag, vbOKOnly, "錯誤:資料庫連接"
Me.Enabled = False
Load Form2
Form2.Show
End Sub
再建一個form2,form2的代碼如下:
Dim rsNew As ADODB.Recordset
Dim CnNew As ADODB.Connection
Dim wsh As New WshShell
Dim serverlink As String
Private Sub Command1_Click()
Dim Mag As String
On Error GoTo strErrMag
Set CnNew = New ADODB.Connection
Set wsh = New WshShell
serverlink = "Provider=SQLOLEDB.1;Password=" + Trim(Text3.Text) + ";Persist Security Info=True;User ID=" + Trim(Text2.Text) + ";Initial Catalog=master;Data Source=" + Trim(Text1.Text)
CnNew.Open serverlink
MsgBox ("資料庫連接成功！"), vbInformation + vbOKOnly, "提示信息"
Set CnNew = Nothing
wsh.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\ZJRB\SERVERNAME", Trim(Text1)
wsh.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\ZJRB\PWD", Trim(Text3)
wsh.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\ZJRB\USENAME", Trim(Text2)

Form1.Enabled = True
Unload Me
Exit Sub
strErrMag:
Mag = "資料庫連接錯誤，在下列的窗體中請輸入正確的信息！"
MsgBox Mag, vbOKOnly, "錯誤:資料庫連接"
End Sub

試試看吧,這個把SQL的登錄名與密碼放在注冊表中,同樣也可以在注冊表中放軟體的試用期限!

㈥ 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語句,還可編寫出其他方式的查找,這里就不多做介紹了!