⑴ 怎麼看VB用哪種方法連接的資料庫
看、、這個後面的 Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\圖書館查詢管理系統.mdb;Persist Security Info=False"
⑵ vb連接sql資料庫方法
Public rs As ADODB.Recordset
Public cnn As ADODB.Connection
Public ServerName As String
'伺服器名
Public DBname As String
'資料庫名
Public UserName As String
'用戶名
Public PassWord As String
'密碼
Set cnn = New ADODB.Connection
With cnn
.connectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" & UserName & ";PWD=" & PassWord & ";Initial Catalog=" & DBname & ";Data Source=" & ServerName
'連接字元串
.CommandTimeout = 10
'連接等待時間
.CursorLocation = adUseClient
'游標類型
.Open
'打開連接
End With
⑶ vb中連接資料庫有幾種方法
SQL大型資料庫，維護起來麻煩，想刪除如果不會刪還刪不掉呢。
用ACCESS，如果覺得安全性能有問題就升級到2007版，如果這個版本還有安全隱患，就找我，找我沒門就上書到微軟。
但是SQL的語句你就學通了，不然不會操作資料庫。
ACCESS的好處就是，移動哪都可以用。當然，SQL也行，但是移的過程中，麻煩。
⑷ VB如何連接資料庫
使用ADODC數據控制項,它與資料庫連接方式很多,並支持SQL結構化查詢語言,能實現動態查詢.但用控制項也要寫一些代碼,以達到應用程序的目的.
資料庫用VB6編程語言，對新手而言，如何用好ADODC控制項和DATAGRID控制項相當重要。具體做法：
新建工程時選數據工程，此時VB6集成調試環境左邊工具箱內已載入了有關資料庫編程必須的控制項。
然後在FORM1窗體中添加ADODC控制項和DATAGRID控制項，將DATAGRID1的屬性DATASOURCE選ADODC1，打開ADODC1控制項屬性頁使用連接字元串，選生成，在提供者選項中根據資料庫結構如*.MDB資料庫則選MICROSOFT jet 4.0 OLE DB Provider或其它連接引擎,然後按要求連接資料庫等。在ADODC1控制項屬性頁使用連接字元串空白文本窗口中就有一長串字元串，注意該字元串可復制到程序代碼用於編程。ADODC1控制項屬性頁的數據源內有命令文本（SQL）編寫窗口可編寫SQL查詢語言。該窗口的SQL語句可復制到程序代碼用於編程。
SQL查詢語言主要結構為：
Select 查詢欄位 from 表名 Where 查詢條件語句 [排序語句或分組語句]
查詢欄位必須分別用（西文）逗號分開或就用一個*號代替，上述查詢中排序語句建議最好應用。
SQL查詢語言如有錯程序運行時告訴你出錯，作相應改動即可。本人一般先按上述連接，SQL用"SELECT * FROM TabelName"作調試，無問題，用一個按鈕孔件將前述需復制的連接字元串和SQL查詢語言先復制於按鈕控制項的CLICK事件中備著，以便放著以後使用。然後刪去ADODC1孔件，再添加ADODC1控制項再添其他內容。
下給出一段數據連接代碼:
Private Sub Form_Load()
Text1 = ""
With Adodc1
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\db1.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select name from b1 order by name"
Adodc1.Refresh
DataGrid1.Refresh
End With
End Sub
SQL查詢語言多寫多用
⑸ vb6.0 連接資料庫共有那幾種方法
1． 定義連接對象
Global DBconnect As New ADODB.Connection
2． 執行連接語句
If DBconnect.State = adStateOpen And Not IsEmpty(adStateOpen) Then DBconnect.Close
l 連接ODBC
DBconnect.ConnectionString = "dsn=DataAliasName;uid=UserID;pwd=Passwd;"
l 直接連接Access為
Dbconnect.Provider = "Microsoft.jet.OLEDB.4.0" // Access 97為3.51
DBconnect.ConnectionString = "FilePathFileName.mdb"
l 連接Oracle
DBconnect.Provider = "MSADORA"
DBconnect.ConnectionString = "user/mypass@servicename
l 連接SQL Server
DBconnect.Provider = "SQLOLEDB.1"
DBconnect.ConnectionString = "DATABASE= ;SERVER= ;UID= ;PWD= ;"
或者可以使用 DBconnect.Open "SERVER" , "USERID" , "PASSWORD"
DBConnect.Open
3． 取查詢結果集
Global RS As New ADODB.Recordset
Global PS As New ADODB.Recordset
If RS.State = adStateOpen And Not IsEmpty(adStateOpen) Then RS.Close
RS.Open SQLStr, DBconnect, adOpenKeyset
4． 執行SQL語句
DBconn.Execute SQLStr
5． 關閉資料庫
DBconnect.Close
⑹ VB如何連接MYSQL資料庫
VB連接MYSQL數據的方法
博客分類：
VB
VBMySQLSQLServerSQLSocket
第一步：上網http://dev.mysql.com/downloads/connector/odbc/下載mysql-connector-odbc-5.1.6-win32.msi
第二步：安裝mysql-connector-odbc-5.1.6-win32.msi
第三步：運行VB並新建一標准EXE工程, 通過菜單工程->引用 打開」引用」對話框, 找到 MicrosoftActiveX Data Objects x.x Library , 其中 x.x 是版本號, 可能會有很多個, 這里我選擇的是2.5
第四步：打開代碼窗口, 在 Form_Load 過程中輸入下面的代碼(具體說明在代碼的注釋中):
Vb代碼
' 定義並創建資料庫連接和訪問對象
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
' 定義資料庫連接字元串變數
Dim strCn As String
' 定義資料庫連接參數變數
Dim db_host As String
Dim db_user As String
Dim db_pass As String
Dim db_data As String
' 定義 SQL 語句變數
Dim sql As String
' 初始化資料庫連接變數
db_host = "localhost"
db_user = "root"
db_pass = ""
db_data = "erqiuda"
' MySQL ODBC 連接參數
'+------------+---------------------+----------------------------------+
'| 參數名 | 默認值 | 說明 |
'+------------+------------------------------------------------------–+
'| user | ODBC (on Windows) | MySQL 用戶名 |
'| server | localhost | MySQL 伺服器地址 |
'| database | | 默認連接資料庫 |
'| option | 0 | 參數用以指定連接的工作方式 |
'| port | 3306 | 連接埠 |
'| stmt | | 一段聲明, 可以在連接資料庫後運行 |
'| password | | MySQL 用戶密碼 |
'| socket | | (略) |
'+------------+---------------------+----------------------------------+
' 詳細查看官方說明
' http://dev.mysql.com/doc/refman/5.0/en/myodbc-configuration-connection-parameters.html
strCn = "DRIVER={MySQL ODBC 5.1 Driver};" & _
"SERVER=" & db_host & ";" & _
"DATABASE=" & db_data & ";" & _
"UID=" & db_user & ";PWD=" & db_pass & ";" & _
"OPTION=3;stmt=SET NAMES GB2312"
' stmt=SET NAMES GB2312
' 這句是設置資料庫編碼方式
' 中文操作系統需要設置成 GB2312
' 這樣中文才不會有問題
' 版本要求 mysql 4.1+
' 連接資料庫
cn.Open strCn
' 設置該屬性, 使 recordcount 和 absolutepage 屬性可用
cn.CursorLocation = adUseClient
' 訪問表users
sql = "select * from users"
rs.Open sql, cn
MsgBox rs.RecordCount
⑺ VB怎麼連接SQL Server資料庫
VB連接資料庫方式主要有兩種，一是通過ODBC介面，ODBC是windows系統里提供的介面，專門連接資料庫的，可以連接多種資料庫，在應用電腦的設置ODBC，也就DSN數據源（下面說到的），連接到伺服器。
第二種就是ADO方式，
VB使用ADO資料庫可以分為有源資料庫和無源資料庫，即是否使用了DSN數據源，如下例：
1、在連接資料庫前首先要在VB菜單中「工程」-「引用」從中選擇 microsoft activeX Data objects 2.6 library和 microsoft activeX Data objects recordset 2.6兩個組件，這是在連接數據前所必做的工作。
2、接下來定義ADO的連接對象，如下所示：
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
第一種方法採用的是無源的資料庫連接方法
conn.ConnectionString = "Driver={sql server};server=JSZX3-11;uid=sa;pwd=;database=wzc"
conn.ConnectionTimeout = 30
conn.Open
rs.Open "select 用戶名,密碼 from login where 用戶名='" & Trim(Combo1.Text) & "' And 密碼='" & Trim(Text1.Text) & "'", conn, adOpenStatic, adLockReadOnly, adCmdText
If rs.EOF = True And rs.BOF Then
m = MsgBox("請重新登錄", vbExclamation)
Text1.Text = ""
Text1.SetFocus
Else
Form1.Hide
End If
rs.Close
這是第二種方法連接資料庫的方法，這一種方法是採用有源的方法與資料庫連接的方法，代碼如下所示：
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "DSN=login;uid=sa;pwd=;"
conn.ConnectionTimeout = 30
conn.Open
rs.Open "select 用戶名 from login", conn, adOpenStatic, adLockReadOnly, adCmdText
Dim i As String
For t = 0 To Val(rs.RecordCount) - 1
i = Trim(rs.Fields("用戶名").Value)
rs.MoveNext
Combo1.AddItem i
Next t
rs.Close
連接資料庫的方法很多很多，只要各位去勇敢的償試一下，就可以感覺資料庫的方法並不是很難，本人以前也很想做這方法的工作，只是學識不深，未能完成胸中大志，如今對這些方法的多少有一些了解，特意為那些初學者以供學習之用。
VB使用ADO資料庫可以分為有源資料庫和無源資料庫，即是否使用了DSN數據源，如下例：
1、在連接資料庫前首先要在VB菜單中「工程」-「引用」從中選擇 microsoft activeX Data objects 2.6 library和 microsoft activeX Data objects recordset 2.6兩個組件，這是在連接數據前所必做的工作。
2、接下來定義ADO的連接對象，如下所示：
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
第一種方法採用的是無源的資料庫連接方法
conn.ConnectionString = "Driver={sql server};server=JSZX3-11;uid=sa;pwd=;database=wzc"
conn.ConnectionTimeout = 30
conn.Open
rs.Open "select 用戶名,密碼 from login where 用戶名='" & Trim(Combo1.Text) & "' And 密碼='" & Trim(Text1.Text) & "'", conn, adOpenStatic, adLockReadOnly, adCmdText
If rs.EOF = True And rs.BOF Then
m = MsgBox("請重新登錄", vbExclamation)
Text1.Text = ""
Text1.SetFocus
Else
Form1.Hide
End If
rs.Close
這是第二種方法連接資料庫的方法，這一種方法是採用有源的方法與資料庫連接的方法，代碼如下所示：
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "DSN=login;uid=sa;pwd=;"
conn.ConnectionTimeout = 30
conn.Open
rs.Open "select 用戶名 from login", conn, adOpenStatic, adLockReadOnly, adCmdText
Dim i As String
For t = 0 To Val(rs.RecordCount) - 1
i = Trim(rs.Fields("用戶名").Value)
rs.MoveNext
Combo1.AddItem i
Next t
rs.Close
連接資料庫的方法很多很多，只要各位去勇敢的償試一下，就可以感覺資料庫的方法並不是很難，本人以前也很想做這方法的工作，只是學識不深，未能完成胸中大志，如今對這些方法的多少有一些了解，特意為那些初學者以供學習之用。
⑻ vb怎樣連接資料庫
Option Explicit
Public appdisk As String
Public conn As New ADODB.Connection
Public Rs As New ADODB.Recordset
Public db As String
Private sSQL As String
Private Sub Form_Load()
Dim i As Integer
On Error GoTo Err
appdisk = Trim(App.Path)
If Right(appdisk, 1) <> "\" Then appdisk = appdisk & "\"
db = appdisk
db = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & db & "alex.mdb"
conn.CursorLocation = adUseClient
conn.Open db
Rs.Open "select * from aaa", conn, adOpenKeyset, adLockPessimistic
If Rs.EOF = False Then
Do Until Rs.EOF
Combo1.AddItem Rs!seqno, i
Rs.MoveNext
i = i + 1
Loop
End If
Rs.MoveFirst
dB_RsToCSVFile Rs, "TT.CSV"
Rs.Close: Set Rs = Nothing
⑼ VB如何連接到資料庫
VB有多種方法連接資料庫,不知道你想要怎麼連? 還有要連接到什麼樣的資料庫?
我這里給你提供個連接到Oracle的連接方法(利用oo4o).
Public OraDbSession As Object
Public OraDb As Object
Public myRs As Object
'連接資料庫(用戶名和密碼,資料庫名)
Function OraConn(UserID As String, Password As String, SouceName As String) As Boolean
On Error GoTo OraConn_Err
Set OraDbSession = CreateObject("OracleInProcServer.XOraSession")
Set OraDb = OraDbSession.dbopendatabase(SouceName, UserID & "/" & Password, 0)
OraConn = True
Exit Function
OraConn_Err:
OraConn = False
MsgBox Error
End Function
'檢索(Select...)
Function BookFound() As Boolean
Dim SQL As String
SQL = "SELECT bookid FROM BOOK"
On Error GoTo BookFound_Err
'這里是調用上面那個函數
If Not OraConn("用戶名", "密碼", "資料庫名") Then
BookFound = False
Exit Function
Else
Set myRs = OraDb.dbcreatedynaset(SQL, 0)
End If
Do While Not myds.EOF
MsgBox myds.fields(0).Value
myds.MoveNext
Loop
myds.Close
Exit Function
BookFound_Err:
MsgBox Error
End Function
'更新/刪除/寫數據
Public Sub DateUp()
Dim sql As String
sql = "insert..."
'這里是調用上面那個函數
If OraConn("用戶名", "密碼", "資料庫名") Then
OraDb.executesql (sql)
End If
End Sub
⑽ 怎麼把VB 和資料庫連接起來
ado
//使用ADO控制項集動態打開ACCESS資料庫列程
//本方法主要面向客戶選擇目標ACCESS資料庫
//取代彈出的ConnectionString的設置對話框
//註：ADOTable和ADOQuery控制項的連接字串不同
//著名關心CSDN結貼率愛國人士-實用庫Tip No 1 - 2003-9-25
function FileName_DataBasePassWord(FileName:string; DataBasePassWord:string=''):string;
begin
FileName_DataBasePassWord:='Provider=Microsoft.Jet.OLEDB.4.0;'+
'User ID=Admin;Data Source='+
form1.OpenDialog1.FileName+ //資料庫文件路徑
';Mode=Share Deny None;Extended Properties="";'+
'Jet OLEDB:System database="";'+
'Jet OLEDB:Registry Path="";'+
'Jet OLEDB:Database Password='+
DataBasePassWord+ //資料庫密碼
';Jet OLEDB:Engine Type=5;'+
'Jet OLEDB:Database Locking Mode=1;'+
'Jet OLEDB:Global Partial Bulk Ops=2;'+
'Jet OLEDB:Global Bulk Transactions=1;'+
'Jet OLEDB:New Database Password="";'+
'Jet OLEDB:Create System Database=False;'+
'Jet OLEDB:Encrypt Database=False;'+
'Jet OLEDB:Don''t Copy Locale on Compact=False;'+
'Jet OLEDB:Compact Without Replica Repair=False;'+
'Jet OLEDB:SFP=False';
end;
procere TForm1.DynamicOpenAdoAccess_BtnClick(Sender: TObject);
begin
form1.OpenDialog1.Filter:='Text files (*.mdb)|*.MDB';
form1.OpenDialog1.DefaultExt:='MDB';
form1.OpenDialog1.InitialDir:=application.GetNamePath;
form1.OpenDialog1.Title:='指定Access資料庫Mdb文件的位置';
if form1.OpenDialog1.Execute then
begin
form1.ADOConnection1.LoginPrompt:=false;
//帶密碼資料庫的使用
//form1.ADOConnection1.ConnectionString:=FileName_DataBasePassWord(form1.OpenDialog1.FileName,'ghyghost');
//不帶密碼數據的使用
form1.ADOConnection1.ConnectionString:=FileName_DataBasePassWord(form1.OpenDialog1.FileName);
form1.ADOConnection1.Open;
form1.ADOQuery1.open; //ADOQuery1's SQL Properties is 'select * from [tablename]'
end;
end;