當前位置:首頁 » 編程語言 » sql和vb的鏈接
擴展閱讀
webinf下怎麼引入js 2023-08-31 21:54:13
堡壘機怎麼打開web 2023-08-31 21:54:11

sql和vb的鏈接

發布時間: 2022-11-02 19:27:47

『壹』 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

用adodc和datagrid控制項

『叄』 vb怎樣連接SQL

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

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

『肆』 如何用vb鏈接sql的資料庫

這段代碼寫在模塊中,可以連接一個資料庫

Public
DBConnct
As
New
ADODB.Connection
'連接資料庫

Public
Function
Connt()
As
Boolean
'資料庫連接函數
Dim
splstr
As
String
'App.Path
&
"\db\123.mdb為資料庫路徑
splstr
=
"Provider=Microsoft.Jet.OLEDB.4.0;Data
Source="
& App.Path
&
"\db\123.mdb"
& ";Persist
Security
Info=False"
DBConnct.Open
splstr
'連接資料庫
Connt
=
True
End
Function

『伍』 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如何連接

dim
cn
as
adodb.connection
dim
rs
as
adodb.recordset
set
cn=new
adodb.connection
cn.open
"資料庫連接套接字"
set
rs=new
adodb.recordset
rs.open
"select
sp
from
b1
where
sno='"+tbox1.text"'",cn,4,2
if
tbox2.text=rs.fields("sp")
then
'登錄成功
……
else
'密碼錯誤
……
end
if
set
rs=nothing
set
cn=nothing

『柒』 如何將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

問題補充:
「我想知道相對地址連接~~是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

在窗體上添加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

『拾』 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