vb中如何連接資料庫

『壹』 VB與各資料庫的幾種連接方式

－、用DAO控制項連接資料庫1.與Access2000資料庫連接Private Sub Command1_Click()'也可直接在控制項屬性中設置以下各項但在控制項屬性中不能寫入密碼'只有在數據數沒有密碼的情況下可以省略Data1.RefreshData1.Connect = "Access 2000;"Data1.DatabaseName = App. Path + "/chncmadb.mdb"'資料庫沒有密碼此句可省Data1.Connect = ";pwd=123456"'Data1.RecordSource = "耕地資源管理單元屬性數據表2004" Data1.RecordSource = "select * from耕地資源管理單元屬性數據表2004"Data1.Refresh』move後才能正確顯示記錄個數End Sub2.與沒有密碼的DBF文件資料庫連接Private Sub Command2_Click()Data1.Connect = "dBASE III;"Data1.DatabaseName = App. Path' Data1.RecordSource ="DBF"Data1.RecordSource = "select * from dbf"Data1.Refresh』move後才能正確顯示記錄個數End Sub3.與沒有密碼的Excel文件資料庫連接Private Sub Command3_Click()Data1.Connect = "Excel 8.0;"Data1.DatabaseName = App.Path & "/EXcel.xls"Data1.RecordSource = "select * from [EXcel.xls]"Data1.Refresh』move後才能正確顯示記錄個End Sub 二、用DAO代碼連接資料庫'在使用DAO對象前應選定Visual Basic菜單下的[工程]中的引用了菜單中的[Microsoft DAO 3.6 Object Library]選項，或其它版本1.DAO代碼與Access資料庫連接Private Sub Command1_Click()Dim Db As DatabaseDim Rs As Recordset'以共享、讀寫方式打開'如果無密碼最後一個參數可以不要Set Db= OpenDatabase(App.Path & "/chncmadb.mdb", False, False, ";pwd=123456")'不需要move來更新記錄個數 'Set Rs = Db.OpenRecordset("耕地資源管理單元屬性數據表2004") '需要move來更新記錄個數Set Rs = Db.OpenRecordset("select * from [耕地資源管理單元屬性數據表2004]")If Rs.RecordCount > 0 Then Rs.MoveLast Rs.MoveFirstEnd IfEnd Sub 2.DAO代碼與沒有密碼的DBF文件資料庫連接Private Sub Command2_Click()Dim Db As DatabaseDim Rs As Recordset'以共享、讀寫方式打開Set Db = OpenDatabase(App.Path, False, False, "dbase III;") '不需要move來更新記錄個數'Set Rs = Db.OpenRecordset("DBF")』需要move來更新記錄個數Set Rs = Db.OpenRecordset("select * from [DBF]") If Rs.RecordCount > 0 Then Rs.MoveLast Rs.MoveFirstEnd IfEnd sub 3. 'DAO代碼與沒有密碼的Excel文件資料庫連接Private Sub Command3_Click()Dim Db As DatabaseDim Rs As Recordset'以共享、讀寫方式打開'如果無密碼最後一個參數可以不要Set Db = OpenDatabase(App.Path & "/EXcel.xls", False, False, "Excel 8.0;")'不需要move來更新記錄個數 ' Set Rs = Db.OpenRecordset("EXcel.xls") '表格中的工作目錄sheet '需要move來更新記錄個數Set Rs = Db.OpenRecordset("select * from [EXcel.xls]") '表格中的工作目錄sheet'If Rs.RecordCount > 0 Then Rs.MoveLast Rs.MoveFirstEnd IfEnd Sub 三、用ADO控制項連接資料庫'也可直接在控制項屬性中設置以下各項1.ADO控制項與Access2000資料庫連接Private Sub Command1_Click() '連接有密碼的Access資料庫 'Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/chncmadb1.mdb;Jet OLEDB:DataBase PASSWORD=123456" '連接沒有密碼的Access資料庫 Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/chncmadb.mdb;Persist Security Info=False" 'Adodc1.RecordSource = "[耕地資源管理單元屬性數據表2004]" Adodc1.RecordSource = "select * from [耕地資源管理單元屬性數據表2004]" Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.RefreshEnd Sub 2.'ADO控制項與DBF表連接Private Sub Command2_Click() 'Adodc1.ConnectionString = "Provider=MSDAsql.1;Persist Security Info=False;Data Source=dBASE Files;DBQ=" & App.Path & ";SourceType=DBF;" 'Adodc1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=DSN=Visual FoxPro Tables;UID=;SourceDB=」& app.path &」;SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;" 'Adodc1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=DSN=dBASE Files;DBQ=」& app.path &」;;DefaultDir=」& app.path &」;DriverId=533;MaxBufferSize=2048;PageTimeout=5;" '能使表名長度不受限制 Adodc1.ConnectionString = "Provider=MSDASQL.1;Driver=Microsoft Visual Foxpro Driver;SourceDB=" & App.Path & ";SourceType=DBF;Locale Identifier=2052" 'Adodc1.RecordSource = "[DBF1]" Adodc1.RecordSource = "select * from DBF1" Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.RefreshEnd Sub 3.'ADO控制項與Excel表連接Private Sub Command3_Click() '下面一句測試未能通過 'Adodc1.ConnectionString = "Data Provider=MSDASQL.1;driver=Microsoft Excel Driver *.xls);DBQ=" & App.Path & "/EXcel.xls" 'Adodc1.ConnectionString="Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=DSN=Excel Files;DBQ=" & App.Path & "/EXcel.xls;DefaultDir=」&app.path &」;DriverId=790;MaxBufferSize=2048;PageTimeout=5;" Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "/EXcel.xls;Extended Properties='Excel 8.0;HDR=Yes'" 'Adodc1.RecordSource = "[EXcel.xls]" Adodc1.RecordSource = "select * from [EXcel.xls]" Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.RefreshEnd Sub 4.'ADO控制項與Oracle資料庫連接Private Sub Command4_Click() 'Adodc1.ConnectionString = "Provider=MSDAORA.1;Password=chncmadb;User ID=chncmadb;Data Source=towebserver;Persist Security Info=True"Adodc1.ConnectionString="Provider=OraOLEDB.Oracle.1;Password=chncmadb;Persist Security Info=True;User ID=chncmadb;Data Source=towebserver" 'Adodc1.RecordSource = "T320481TR012004" '表名不能加方括弧 Adodc1.RecordSource = "select * from T320481TR012004" Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.RefreshEnd Sub 5.'ADO控制項與SQLserver資料庫連接'未測試Private Sub Command5_Click() Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Password=111;Persist Security Info=True;User ID=111;Initial Catalog=111;Data Source=111" 'Adodc1.RecordSource = "T320481TR012004" Adodc1.RecordSource = "select * from T320481TR012004" Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.RefreshEnd Sub 四、用ADO代碼連接資料庫'在使用ADO對象前應選定Visual Basic菜單下的[工程]中的引用了菜單中的[Microsoft.ActiveX Data Object 2.5 Library]選項，或其它版本1.'ADO代碼與Access2000資料庫連接Private Sub Command1_Click() Dim AdoCnn As ADODB.Connection Dim AdoRs As ADODB.Recordset Set AdoCnn = New ADODB.Connection Set AdoRs = New ADODB.Recordset AdoCnn.CursorLocation = adUseClient '.open後面的字元串可以參考ADO控制項連接.ConnectionString後面的的字元串 AdoCnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/chncmadb1.mdb;Jet OLEDB:DataBase PASSWORD=123456"AdoRs.Open "select * from [耕地資源管理單元屬性數據表2004]", AdoCnn, adOpenDynamic, adLockPessimistic, adCmdText Set DataGrid1.DataSource = AdoRs Set AdoRs = Nothing Set AdoCnn = NothingEnd Sub 2.'ADO代碼與DBF表連接Private Sub Command2_Click() Dim AdoCnn As ADODB.Connection Dim AdoRs As ADODB.Recordset Set AdoCnn = New ADODB.Connection Set AdoRs = New ADODB.Recordset AdoCnn.CursorLocation = adUseClient '.open後面的字元串可以參考ADO控制項連接.ConnectionString後面的的字元串 AdoCnn.Open "Provider=MSDASQL.1;Driver=Microsoft Visual Foxpro Driver;SourceDB=" & App.Path & ";SourceType=DBF;Locale Identifier=2052"AdoRs.Open "select * from [DBF1]", AdoCnn, adOpenDynamic, adLockPessimistic, adCmdText Set DataGrid1.DataSource = AdoRs Set AdoRs = Nothing Set AdoCnn = NothingEnd Sub3.'ADO代碼與Excel表連接Private Sub Command3_Click() Dim AdoCnn As ADODB.Connection Dim AdoRs As ADODB.Recordset Set AdoCnn = New ADODB.Connection Set AdoRs = New ADODB.Recordset AdoCnn.CursorLocation = adUseClient '.open後面的字元串可以參考ADO控制項連接.ConnectionString後面的的字元串 AdoCnn.Open"Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "/EXcel.xls;Extended Properties='Excel 8.0;HDR=Yes'"AdoRs.Open "select * from [EXcel.xls]", AdoCnn, adOpenDynamic, adLockPessimistic, adCmdText Set DataGrid1.DataSource = AdoRs Set AdoRs = Nothing Set AdoCnn = NothingEnd Sub 4.'ADO代碼與Oracle資料庫連接Private Sub Command4_Click() Dim AdoCnn As ADODB.Connection Dim AdoRs As ADODB.Recordset Set AdoCnn = New ADODB.Connection Set AdoRs = New ADODB.Recordset AdoCnn.CursorLocation = adUseClient '.open後面的字元串可以參考ADO控制項連接.ConnectionString後面的的字元串 AdoCnn.Open "Provider=OraOLEDB.Oracle.1;Password=chncmadb;Persist Security Info=True;User ID=chncmadb;Data Source=towebserver"AdoRs.Open "select * from T320481TR012004", AdoCnn, adOpenDynamic, adLockPessimistic, adCmdText Set DataGrid1.DataSource = AdoRs Set AdoRs = Nothing Set AdoCnn = NothingEnd Sub 5.'ADO代碼與SQLserver資料庫連接'未測試Private Sub Command5_Click() Dim AdoCnn As ADODB.Connection Dim AdoRs As ADODB.Recordset Set AdoCnn = New ADODB.Connection Set AdoRs = New ADODB.Recordset AdoCnn.CursorLocation = adUseClient '.open後面的字元串可以參考ADO控制項連接.ConnectionString後面的的字元串 AdoCnn.Open "Provider=SQLOLEDB.1;Password=111;Persist Security Info=True;User ID=111;Initial Catalog=111;Data Source=111"AdoRs.Open "select * from T320481TR012004", AdoCnn, adOpenDynamic, adLockPessimistic, adCmdText Set DataGrid1.DataSource = AdoRs Set AdoRs = Nothing Set AdoCnn = NothingEnd Sub

『貳』 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查詢語言多寫多用

『叄』 vb中怎樣連接資料庫

可以用ODBC數據源，添加一個SQL的。然後用VB裡面的ADO部件和datagrid部件連接。先在拖出的adodc部件右鍵設置屬性，連接資料庫。再將datagrid連接到adodc就可以看到數據了。

『肆』 如何用VB語言去連接Access資料庫啊我的程序就是連不上啊各位請指教！

這不是一兩句的事兒，如果你真的想要做出自己的連接資料庫的程序的話，
要靜下心來多看看書，多實踐一下，不是很難，但要一點點兒積累。
在
VB
6.0
中要實現與資料庫的連接大概有三條途徑：
1、通過DATA控制項
2、通過ADODB控制項
3、採用ADO對象，用代碼的方式，編程訪問
三種方式的功能逐漸增強，
但須要了解的知識也越來越多。

『伍』 vb中怎樣連接資料庫

什麼資料庫？？？
'** ----- 資料庫連接字元串模板 ---------------------------------------
'** ACCESS資料庫
'** iConcStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _
'** "Password=""密碼"";Data Source=資料庫名"
'**
'** SQL資料庫
'** iConcStr = "Provider=SQLOLEDB.1;Persist Security Info=True;" & _
'** "User ID=用戶名;Password=密碼;Initial Catalog=資料庫名;Data Source=SQL伺服器名"

『陸』 具體解釋VB中連接access資料庫的幾種方法

在VB中，連接ACCESS資料庫的方法主要有以下三種

• 使用ADO對象，通過編寫代碼訪問資料庫

Connection 對象

ODBC數據源

• 使用ADO Data控制項高速創建資料庫連接

有三種連接方法

Data Link文件

使用ODBC數據源名稱

使用連接字元串

• 使用數據環境設計器創建資料庫連接

首先加入環境引用。

然後找到數據源進行連接

不管是哪一種連接，都是先有一個路徑，通向要連接的數據源，和數據源建立關系，在連接。就好比從北京到上海，能夠做汽車，能夠做火車，還能夠做飛機，汽車走快速，火車走鐵路，飛機走航線，過程不一樣，但結果是一樣的，都是到達上海目的地。

『柒』 vb如何連接sql資料庫

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

『捌』 vb怎麼連接資料庫寫入數據

'在使用前需要先安裝MySql的驅動，進行正確配置
'注意：必須給出正確的伺服器名、資料庫名、表名、資料庫連接的用戶名、密碼
Option Explicit
Dim Cnn As ADODB.Connection '定義ADO連接對象
Dim Records As ADODB.Recordset '定義ADO記錄集對象
'連接到資料庫
Function CnnOpen(ByVal ServerName As String, ByVal DBName As String, ByVal TblName As String, ByVal User As String, ByVal PWD As String) '伺服器名或IP、資料庫名、登錄用戶、密碼
Dim CnnStr As String '定義連接字元串
Set Cnn = CreateObject("ADODB.Connection") '創建ADO連接對象
Cnn.CommandTimeout = 15 '設置超時時間
CnnStr = "DRIVER={MySql ODBC 5.1 Driver};SERVER=" & ServerName & ";Database=" & DBName & ";Uid=" & User & ";Pwd=" & PWD & ";Stmt=set names GBK" '
Cnn.ConnectionString = CnnStr
Cnn.Open
End Function
'關閉連接
Function CnnClose()
If Cnn.State = 1 Then
Cnn.Close
End If
End Function
'把Excel寫入MySql中的資料庫
Function InsertToMySql(ByVal SheetName As String, ByVal TblName As String)
Dim SqlStr As String
Dim i, j As Integer
Dim Columns, Rows As Integer
Columns = VBAProject.func_public.GetTotalColumns(SheetName)
Rows = VBAProject.func_public.GetTotalRows(SheetName)
Set Records = CreateObject("ADODB.recordset")
'取得結果集並插入數據到資料庫
Set Records = CreateObject("ADODB.Recordset")
'以下語句提供了插入思路，我只是把單條記錄的插入方式改為循環，以把所有的記錄添加到表中
'rs.Open "insert into newtable values('" & ActiveSheet.Cells(i, 1).Value & "'," & "'" & ActiveSheet.Cells(i, 2).Value & "')", cnn, 0
For i = 2 To Rows
SqlStr = "INSERT INTO " & TblName & " values('" & Sheets(SheetName).Cells(i, 1).Value & "'" '注意：" values('"，字母「v」之前是有空格的！！！
For j = 2 To Columns
SqlStr = SqlStr & ",'" & Sheets(SheetName).Cells(i, j).Value & "'"
Next
SqlStr = SqlStr & ")"
Set Records = Cnn.Execute(SqlStr) 'rs.Open SqlStr, cnn, 0 不能用這條語句實現！！！
Next
MsgBox "Insert!", vbOKOnly, "Excel To MySql"
End Function
'清除對象
Function ClearObj()
Set Cnn = Nothing
Set Records = Nothing
End Function

『玖』 vb中如何設計登錄界面怎麼連接資料庫

（1）新建資料庫並命名為denglu，在該資料庫中新建表User1,表包含的列為「ID,username,pwd」。

（2）設計登錄界面Frmlogin，以及登錄成功後要顯示的界面Form2,並連接到資料庫，使包含在資料庫中的合法用戶能成功登錄該程序，而不合法用戶則無法進入程序。