① vb.net連接access資料庫問題
1,使用ADO connection對象
首先,要建立ADO引用,定義connection這個類,然後實例化對象。
代碼完成如下:
<spanstyle="font-size:18px;">DimobjCnAsNewConnection,objRsAsNewRecordset
objCn.ConnectionString="Provider=Microsoft.Jet.OLEDB.3.51;"&"DataSource="&App.Path&"實例01.mdb"
objCn.Open
</span>
2,使用ODBC數據源
首先,打開電腦上的ODBC數據源,建立關系。
步驟如下:
1),打開電腦上的ODBC數據源
如下圖所示:
右擊創建連接,在右擊想要連接的屬性,之後的操作跟data控制項中使用字元串中的操作一致
② VB如何調用Access資料庫
首先,我們需要引用ADO.具體的方法是,在"工程" -- "引用" 中,找到"Microsoft ActiveX Data Object *.* Library",這里的"*.*"是指的時ADO的版本號,一般來說,應用程序或ActiveX控制項都具有向下兼容性,所以我們盡可能選擇比較新的版本.以確保程序在能識別舊版本Access的同時,也能識別較新版本的Access.
然後我們需要在程序中創建一個對象.就好比我們在窗體上添加一個FileBox才能看到文件名一樣,只有創建了ADO對象,我們才能夠訪問資料庫.常用的對象有兩個,Connection和Recordset.
創建這兩個對象的具體方法是:
1.在引用後,使用New關鍵字,如
Private Conn As New ADODB.Connection
Private Reco As New ADODB.Recordset
2.在沒引用時,用CreateObject創建對象:
Dim Conn,Reco
Set Conn = CreateObject("ADODB.Connection")
Set Reco = CreateObject("ADODB.Recordset")
創建了對象之後,下一步我們要做的就是打開資料庫了.
先看下面的代碼,可以成功的打開資料庫.
Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Main.mdb"
這句代碼打開了D盤中的Main.mdb這個資料庫.
Connection.Open方法的第一個參數是連接代碼,它將傳遞給系統的資料庫引擎.前半部分"Provider= Microsoft.Jet.OLEDB.4.0",它表示了資料庫的類型.不同的資料庫可能會不同.後半句"Source=d:\main.mdb"它表示了資料庫所在的絕對路徑.
打開資料庫之後,還要打開表.假如資料庫中有一個表,表名為"Users",欄位有兩個,一個為用戶名,一個為密碼.那麼看以下代碼.
1.想返回"Users"中,[用戶名]為"去年煙花"的[密碼]
Recordset.open "Select 密碼 From Users Where 用戶名='去年煙花'",Connection,1,1
之後我們就可以把用戶輸入的密碼進行比較,看是否允許登錄.
If Recordset.eof and Recordset.bof then
Msgbox "用戶不存在!",16
Else
If PassWord =Recordset("密碼").value then
msgbox "登錄成功!",64
Else
msgbox "密碼錯誤!",32
End If
End If
Recordset.Close
2.假設Admin已經成功登錄系統,我們想把所有的用戶名和密碼都顯示出來
Recordset.open "Select * From Users",Connection,1,1
這時,表已經被打開,我們就用以下代碼把它顯示出來.
Do whlie Not Recordset.eof
Print "用戶名: " & Recordset("用戶名").value & "密碼: " & Recordset("密碼").value
Recordset.MoveNext
Loop
Recordset.Close
由以上代碼示例可以看出,打開表時,可以只打開其中的一個欄位,也可以打開所有.第一個參數是sql語句.
Select [欄位名] From 表名 [Where 條件]
這里的條件可以省略.且欄位名也可以用"*"來代替所有欄位.
需要注意的是,如果你用(1)中的方法打開,那麼(2)後面顯示的代碼就不能再用在(1)中.因為(1)里並沒有打開[用戶名]欄位,所以這一句Recordset("密碼")就沒有值存在,還有可能出錯.
後面的條件,可以用"="、">"、"<"等運算符.比如 "Where ID > 32".(這里假設[ID]為數字型.)
這是打開的部分.第二個很重要的部分就是查詢記錄.
資料庫它並不是把所有記錄全部放到一個變數中備用的.而是以"當前記錄"的形式來返回一個值.所以我們想從中找到有用的信息,就必須要對信息進行定位/篩選.
定位:
移動到下一條 Recordset.MoveNext
移動到上一條 Recordset.MovePrevious
移動到最後一條 Recordset.MoveLast
移動到第一條 Recordset.MoveFrist
移動到某一條 Recordset.Move Number
篩選:
Recordset.Find "條件"
如:[用方法(2)打開表之後]
Private Sub Command1_Click()
Recordset.Find "用戶名=" & "text1.text"
If Recordset.Eof <> True Then
Msgbox "該用戶的密碼是:" & Recordset("密碼").value,64
Else
Msgbox "未找到該用戶的資料!",16
End If
End Sub
MoveNext 只有當Eof不為True時,才可用,否則發生錯誤.而MovePrevious剛是Bof不為True時....
而只要Eof 和 Bof中有一個不為真時,也就是說只要有一條記錄時,它就可以使用.
Find 方法中的條件和Open時的第一個參數中的條件表述方法是完全一致的.當在已打開的記錄集中,找不到該記錄時,Eof為True.找到則當前的值就是符合條件的記錄.
第三個部分就是添加/修改記錄.
修改記錄很簡單,先按以上的方法找到相關記錄之後,給記錄賦值就可以了.
比如:[(修改密碼)按方法(1)打開表之後]
Recordset("密碼").value = "123456"
Recordset.Updata
需要注意的就是,在修改完成後,要調用Updata方法,這樣修改才能生效.
而添加記錄則可以用以下代碼來實現:
Recordset.addnew
Recordset("用戶名").value = "Admin"
Recordset("密碼").value = "Admin"
Recordset.Updata
這里,先要調用Addnew方法,增加一條新記錄,然後對這個新記錄中的各欄位賦值,最後再調用Updata方法.
到這里就差不多了,最後說一下上面提到的幾個方法.
Recordset.Open SQL語句,數據源,游標類型,打開方法
SQL語句不用說了,就是Select那啥的,目的就是按要求從表中返回數據
數據源就是一個打開之後的Connection對象.
去他媽的游標類型,填1就可以了 [偷笑ing]
打開方法對應了幾個常數,具體哪幾個可以從對象瀏覽器里看.
對應數值的意義:
1 只讀 2 獨占 3 可寫 4 自已可寫,別人可讀
Connection.open 連接代碼,伺服器用戶名,密碼
這里的連接代碼就不在多說了,伺服器用戶名,密碼只有在連接遠程資料庫時才用到.
③ 如何把Access與VB連接起來
在VB中,連接ACCESS資料庫的方法主要有下面三種
a.Data Link文件
b.使用ODBC數據源名稱
c.使用連接字元串
使用數據環境設計器創建資料庫連接,首先添加環境引用。然後找到數據源進行連接。
Data 控制項連接中,ODBC數據源的連接和使用字元串的連接 與直接使用ODBC數據源連接中,不同是,直接使用ODBC數據源設置好路徑後,再用connection對象連接即可;Data控制項則不用Connection 對象,有控制項,設置好路徑了,就直接連到啦。
數據環境設計器和ADO 對象,都用到了connection連接。不同的是,數據環境設計器中,connection連接途徑是和data控制項中字元串的連接步驟一致。
總結不同:ADO對象連接需要編寫代碼,其他的不用編寫代碼。
下面詳細介紹每一種連接方法的詳細步驟:
1.使用ADO connection對象
首先,要建立ADO引用,定義connection這個類,然後實例化對象。
代碼完成如下:
④ VB程序如何遠程調用ACCESS資料庫
第一步:你要知道那台電腦的計算機名或者ip地址;
第二步:共享資料庫所在的文件夾,要將共享許可權設置為能夠讀寫的許可權;
第三步:在你的電腦上運行一下那個共享路徑:\\計算機名\
共享文件夾
,看能不能打開,如果能
打開,說明共享成功,才能調用代碼連接,如果需要用戶名和密碼你要輸入那台電腦的一組用戶名和密碼;
第四步:在第三步成功的情況下,調用以下代碼:
dim
資料庫路徑
as
string
dim
資料庫密碼
as
string
資料庫路徑="\\計算機名\共享文件夾\資料庫.mdb"
資料庫密碼=你的資料庫密碼(如果沒設密碼,就為空)
adodc1.ConnectionString="provider=Microsoft.Jet.OLEDB.4.0;Data
source
="
_
&
資料庫路徑0
&
";Jet
OLEDB:Database
Password="
&
資料庫密碼
adodc1.recordsource="select
*
from
user"
adodc1.Refresh
⑤ vb 6.0 如何連接access accdb 資料庫呢
首先要在工程的引用中選上Microsoft ActiveX Data Objects 2.5 Library
然後在事件中就可以定義相關的變數進行連接了
下面的例子可能對您有用:
Private Sub Command1_Click()
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Conn.Open connstring ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & 「資料庫的路徑和名字」 & ";Persist Security Info=True;Jet OLEDB:Database Password= & "資料庫密碼"
sql = "Select * From 「 & 」表名" & where ID=20"
Rs.Open sql, Conn, 1, 3
If NOT rs.eof then
m_date= rs("日期型欄位的名字")
m_data= rs("數值型欄位的名字")
end if
上面的例子實現了查詢
如果是要添加,刪除,更新等操作,只要編寫相應的SQL語句,再用
Conn.Execute SQL 就可以了,如:
添加的:
SQL="Insert Into [UserInfo](User,Password) Values('aaaa','1234')"
Conn.Execute SQL '執行後,就添加了一條記錄
刪除:
SQL="Delete From [UserInfo] Where User='aaaa'"
Conn.Execute SQL '刪除用戶名為aaaa的用戶記錄
更新:
SQL="Update [UserInfo] Set Password='abcdefg' Where User='aaaa'"
Conn.Execute SQL '執行後,修改用戶aaaa的密碼為abcdefg
以上只是示例,在實際使用過程中,可以將一些內容用控制項輸入等方式進行,這樣就有很大的靈活性了
⑥ vb連接ACCESS資料庫實例
對於沒有VB運行庫的機器,必須注冊VB運行庫,程序中的代碼不需要改動。 ----------------------------------- 鏈接資料庫的方法比較多,看你採用什麼方法鏈接了,: 1、用ADO鏈接;2、用Data數據控制項鏈接;3、用ADODB數據控制項鏈接;還有資料庫文件是Access 1997?Access 2000?Access 2003?有沒有加密?等等等等問題,首先確定這些問題,才能..... 下面給你一個用ADO的代碼鏈接的實例:(ACCESS 2003) 首先在工程中點擊【工程】-【引用】,在打開的對話框選擇Microsoft AxtiveX Data Objects 2.8 Library 勾選,然後定義二個對象: Dim conn As New ADODB.Connection, rs As New ADODB.Recordset 其中conn是資料庫鏈接對象,rs是數據記錄集對象 那麼,下面就是利用SQL語句鏈接資料庫了: conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\library\1.mdb;Jet OLEDB:Database Password=" strSQL = "SELECT * FROM 資料庫中的表" rs.Open strSQL, conn, 3, 3 至此資料庫已經鏈接成功,並且已經載入了記錄集,下面你就可以進行數據操作了,注意,在資料庫操作完成後,千萬別忘記關閉記錄集和資料庫鏈接對象: rs.Close conn.Close
⑦ VB 連接ACCESS資料庫,如何使用相對路徑
用MICROSOFT
jet
4.0
OLE
DB
Provider引擎連接ACCESS資料庫,方法如下:
新建工程時選數據工程,此時VB6集成調試環境左邊工具箱內已載入了有關資料庫編程必須的控制項。
然後在FORM1窗體中添加ADODC控制項和DATAGRID控制項,將DATAGRID1的屬性DATASOURCE選ADODC1,打開ADODC1控制項屬性頁使用連接字元串,選生成,在提供者選項中ACCESS資料庫選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控制項再添其他內容。