Ⅰ VB如何連接ACCESS資料庫
由於VB本身並不帶有可以訪問資料庫的類,所以我們需要引用一個包含能訪問資料庫的類來使用資料庫.這里我們採用ADODB,相比DAO和能訪 問資料庫的API來說,它比DAO更靈活,更強大;而比起API,它更簡單易用,更適合初學者.而Access資料庫比起sql,也相對簡單了很多,且能 夠滿足中小型應用程序的需要,所以我們在使用資料庫時,選擇了Access. 就像使用文本文件來存儲數據一樣,我們需要先設計好數據結構,只不過在設計Access資料庫的結構時,我們需要用到其它的程序來進行詳細的規劃.建議採用的程序是office中的Access或VB自帶的VISDATA. 當資料庫設計好了以後,我們可以開始資料庫編程了. 首先,我們需要引用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就可以了 打開方法對應了幾個常數,具體哪幾個可以從對象瀏覽器里看。 對應數值的意義: 1 只讀 2 獨占 3 可寫 4 自已可寫,別人可讀。 Connection.open 連接代碼,伺服器用戶名,密碼。
Ⅱ VB怎麼連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控制項再添其他內容。
Ⅲ VB如何連接ACCESS資料庫
由於VB本身並不帶有可以訪問資料庫的類,所以我們需要引用一個包含能訪問資料庫的類來使用資料庫.這里我們採用ADODB,相比DAO和能訪問資料庫的API來說,它比DAO更靈活,更強大;而比起API,它更簡單易用,更適合初學者.而Access資料庫比起SQL,也相對簡單了很多,且能夠滿足中小型應用程序的需要,所以我們在使用資料庫時,選擇了Access. 就像使用文本文件來存儲數據一樣,我們需要先設計好數據結構,只不過在設計Access資料庫的結構時,我們需要用到其它的程序來進行詳細的規劃.建議採用的程序是office中的Access或VB自帶的VISDATA. 當資料庫設計好了以後,我們可以開始資料庫編程了. 首先,我們需要引用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(密碼)就沒有值存在,還有可能出錯. 後面的條件,可以用=、>、 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就可以了 打開方法對應了幾個常數,具體哪幾個可以從對象瀏覽器里看。 對應數值的意義: 1 只讀 2 獨占 3 可寫 4 自已可寫,別人可讀。 Connection.open 連接代碼,伺服器用戶名,密碼。
Ⅳ VB怎麼連接訪問Access資料庫
使用Visual Basic作為前端開發語言，與SQL Server介面有幾種常用的方法，即：
①數據訪問對象/Jet
②為ODBC API編程
③使用SQL Server的Visual Basic庫(VBSQL)為DB庫的API編程
④RDO 遠程數據對象(RemoteData Objects)
⑤ADO 數據對象(Active Data Objects)
1、數據訪問對象/Jet
VB支持Data Access Objects(DAOs)的子集。DAO的方法雖然不是性能最好的管理客戶機—伺服器之間的對話方式，但它的確有許多優點。DAO/Jet是為了實現從VB訪問Access資料庫而開發的程序介面對象。使用DAOs訪問SQL Server的過程如下：應用程序准備好語句並送至Jet，Jet引擎(MASJT200.DLL)優化查詢，載入驅動程序管理器並與之通訊，驅動程序管理器(ODBC.DLL)通過調用驅動器(SQLSRVR.DLL)的函數，實現連接到數據源，翻譯並向SQL Server提交SQL語句且返回結果。下面是一個用DAOs訪問SQL Server的VB實例。
注釋：Form Declarations
Dim mydb As Database
Dim mydynaset As Dynaset オ
Private Sub Form_Load()
Set mydb = OpenDatabase("", False, False, "ODBC; DSN=Myserver; WSID=LCL; DATABASE = sales")
Set mydynaset = mydb CreateDynaset("Select*from Customers") オ
End Sub ァ
上述例子是以非獨占、非只讀方式打開sales資料庫，並檢索Customers表中的所有欄位。OpenDatabase函數的最後一個參數是ODBC連接字元串參數，它指明了Microsoft Access連接到SQL Server所需要知道的一些內容。其中「DSN」為數據源名，「WSID」為工作站名，「DATABASE」為所要訪問的資料庫名。
2、利用ODBC API編程
ODBC(Open Database Connectivity)的思想是訪問異種資料庫的一種可移植的方式。與數據資源對話的公用函數組裝在一個稱為驅動程序管理器(ODBC.DLL)的動態連接中。應用程序調用驅動程序管理器中的函數，而驅動程序管理器反過來通過驅動器(SQLSRVR.DLL)把它們送到伺服器中。
下面的代碼使用上面一些函數先登錄到一個伺服器資料庫，並為隨後的工作設置了語句句柄。
Global giHEnv As Long
Global giHDB As Long
Global giHStmt As Long
Dim myResult As integer
Dim myConnection As Srting
Dim myBuff As String*256
Dim myBufflen As Integer
If SQLAllocEnv(giHEnv)<>SQL_SUCCESS Then
MsgBox"Allocation couldn注釋：t happen!"
End If
If SQLAllocConnect(giHEnv,giHDB)<>SQL_SUCCESS Then
MsgBox "SQL Server couldn注釋：t connect!"
End If
myConnection="DSN=myServer;UID=LCL;PWD=;APP=ODBCTest;WSID=LCL;DATABASE=sales"
myResult=SQLDriverConnect(giHDB,Test,form1.hWnd,myConnection.len(myConnection),myBuff,256,myBufflen,SQL_DRIVER_COMPLETE_REQUIED)
myResult=SQLAllocStmt(giHDS,giHStmt)
myResult=SQLFreeStmt(giHStmt,SQL_COLSE)
rsSQL="Select * from Customers Where City = "Hunan""
myResult = SQLExecDirect(giHStmt,rsSQL,Len(rsSQL))
3、使用VBSQL對DB庫API編程
DB庫是SQL Server的本地API，SQL Server的Visual Basic庫(VBSQL)為Visual Basic程序員提供API。從一定意義上說，VBSQL是連接Visual Basic程序到SQL Server的性能最好最直接的方式。VBSQL包含以下三個文件：
VBSQL.VBX： 包含庫函數，具有訪問重要的消息和處理錯誤的能力
Ⅳ 如何進行VB與資料庫ACCESS的連接
VB與資料庫連接可以使用資料庫控制項進行,也可以引用ADO對象,資料庫控制項的使用比較簡單,下面我就介紹使用ADO對象進行連接,首先打開"工程-引用",選擇其中的Microsoft ActiveX Data Objects 2.0 Library(2.0以上版本都可以):
ACCESS資料庫名為"學生.mdb"其中有張資料庫表名為"表",下面就介紹如何使用代碼進行連接到資料庫"學生",代碼如下:
Function Connection() As String
'資料庫的連接字元設置
Connection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path + "\學生.mdb"
End Function
資料庫"學生.mdb"在當前目錄下,故使用APP.Path
Private Sub Form_Load()
Dim mr As New ADODB.Recordset
Dim cnn As New ADODB.Connection
Dim Sql As String
Sql="select * from 表"
cnn.Open Connection '使用cnn對象打開資料庫連接
mr.Open Sql, cnn, adOpenKeyset, adLockOptimistic
'打開資料庫記錄
If mr.eof then
msgbox "資料庫表為空!"
else
msgbox "資料庫表不為空!"
end if
set mr=nothing
'關閉記錄對象
set cnn=nothing
'關閉連接對象
End Sub
OK,程序到此,已經能成功地訪問資料庫了,並能打開資料庫中的表
Ⅵ access與VB怎麼樣進行連接
現在VB連接資料庫也沒那麼復雜了。
使用ADODB,就可以連接。
Set
Ac
=
New
ADODB.Connection
Set
Rs
=
New
ADODB.Recordset
Ac.Open
"driver={Microsoft
Access
Driver
(*.mdb)};dbq="
&
App.Path
&
"\DB1.mdb"
這就連接了，像ASP一樣使用adodb.recordset來控制數據。
rs.open
"select
*
from
admin",ac,1,1
while
not
rs.eof
...
rs.movenext
wend
rs.close
也可以使用ADODC和DATAGRID控制項綁定，來顯示數據.
dbConnectStr
=
"Driver={Microsoft
Access
Driver
(*.mdb)};Dbq=ok.mdb;DefaultDir="
&
App.Path
&
"\"
&
";"
dbStr
=
"SELECT
*
FROM
admin"
Adodc.ConnectionString
=
dbConnectStr
Adodc.RecordSource
=
dbStr
Adodc.Refresh
Set
gridData.DataSource
=
Adodc.Recordset
gridData.ClearFields
gridData.ReBind
Ⅶ VB如何連接Access資料庫
如下代碼參考一下，不知能有幫助否。
PrivateSubCommand1_Click()
DimMyconAsADODB.Connection'定義一個連接對象，用這個對象來和資料庫建立通訊聯系。
DimMyrtAsADODB.Recordset'定義一個記錄集對象，將來從資料庫取得一條一條的記錄後，放入這個對象裡面。
DimMystrAsString'定義一個字元串變數，用來存放和資料庫連接時一些必要的參數。
SetMycon=NewADODB.Connection'建立一個新的連接對象。
SetMyrt=NewADODB.Recordset'建立一個新的記錄集對象。
Myrt.CursorLocation=adUseClient'定義記錄集的游標類型，你要是才接觸這方面的內容的話，這里沒沒必要做深入研究，知道記錄集有2種游標類型，一種是伺服器端游標，一種是客戶端游標，這里採用的是客戶端游標，2種類型各有特點，就你這如果要連接一個用戶密碼表的話，設客戶端游標就可以了。
Mystr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=d:\db1.mdb"'設置用來和資料庫進行連接的一些必要參數，Access資料庫採用Microsoft.Jet.OLEDB.4.0驅動，如果是其它類型的資料庫的話這句就不一樣了，如果你要調試這段代碼的話，把d:\db1.mdb這個改一下。
Mycon.OpenMystr'用定義好的連接對象以前面設置的參數打開資料庫，後面對資料庫的操作就操作這個連接對象就行了。
Myrt.Open"select*from表名",Mycon,3,1'記錄集對象執行打開操作，從資料庫中的一個表中取得記錄，在這里Mycon就代表資料庫了。"select*from表名"這句意思是從一個表中取得所有記錄。你具體試驗時把表名修改一下。
'在這里就從資料庫的一個表中取得有用的數據了，你可以通過對Myrt記錄集的操作取得自己需要的數據。比如如果是一個用戶密碼表的話，如果這個表有2個欄位，一個用戶名欄位，一個密碼欄位。那麼用Myrt("用戶名")就能取得當前記錄這個欄位的數據。如果這個表有10條記錄的話，可以用Myrt.movenext來移動記錄集指針。
'如果你界面上放置一個DataGrid控制項的話，用下面這句就能看到Myrt記錄集對象從資料庫中取得的內容了。
SetDataGrid1.DataSource=Myrt
EndSub
你問題補充里的代碼沒有連接資料庫的代碼，這個按鈕是驗證身份登錄的代碼，在這之前就應該和資料庫連接了，因為連接資料庫的代碼必定會有資料庫的路徑、名稱等信息。如：D:\db1.mdb。
Ⅷ 如何用VB語言去連接Access資料庫啊我的程序就是連不上啊各位請指教！
這不是一兩句的事兒，如果你真的想要做出自己的連接資料庫的程序的話，
要靜下心來多看看書，多實踐一下，不是很難，但要一點點兒積累。
在
VB
6.0
中要實現與資料庫的連接大概有三條途徑：
1、通過DATA控制項
2、通過ADODB控制項
3、採用ADO對象，用代碼的方式，編程訪問
三種方式的功能逐漸增強，
但須要了解的知識也越來越多。
Ⅸ VB如何連接access資料庫
'ADO控制項，驗證登錄用戶名和密碼
Private Sub Command1_Click()
Dim sql
sql = "SELECT * FROM [users] WHERE 用戶名='" & Text1.Text & "' and 密碼='" & Text2.Text & "'"
With Adodc1
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;"
.CommandType = adCmdText
.RecordSource = sql
.Refresh
If .Recordset.RecordCount <> 0 Then
MsgBox "登錄成功"
Else
MsgBox "登錄失敗"
End If
End With
End Sub
'利用ADOX創建資料庫
Private Sub Command2_Click()
'ADOX
'=====
'引用：Microsoft ADO Ext. 2.8 for DDL and Security
'C:\Program Files\Common Files\System\ado\msadox.dll
Dim catNewDB As ADOX.Catalog
Set catNewDB = New ADOX.Catalog
Dim strDBPath As String
strDBPath = "c:\1.mdb"
Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath
catNewDB.Create strConn
catNewDB.ActiveConnection = strConn
Dim tbl As ADOX.Table
Set tbl = New ADOX.Table
With tbl
.Name = "users"
Set .ParentCatalog = catNewDB
' Create fields and append them to the
' Columns collection of the new Table object.
With .Columns
.Append "編號", adInteger
' Make the ContactId field auto-incrementing.
.Item("編號").Properties("AutoIncrement") = True
.Append "用戶名", adVarWChar
.Append "密碼", adVarWChar
End With
End With
catNewDB.Tables.Append tbl
Set catNewDB = Nothing
End Sub
Ⅹ VB連接ACCESS資料庫
(1)建立Access資料庫
(2)引用Ado Data控制項和數據感知控制項DataGrid
(3)分別設置Ado Data控制項的ConnectionString、Command-
Type、RecordSource三個重要的屬性以及DataGrid控制項的Data-
Source屬性
在設置Ado Data控制項的ConnectionString屬性的最後,將
出現「測試連接」的按扭,通過單擊此按扭可以清楚的了解到數
據庫連接成功與否,非常簡單方便。具體程序的編寫格式為:
資料庫畫面名稱.Adodc1.Recordset.AddNew
資料庫畫面名稱.Adodc1.Recordset.Fields("日期")=Date
資料庫畫面名稱.Adodc1.Recordset.Fields("時間")=Forma
(Now,"h:mm:ss")
資料庫畫面名稱.Adodc1.Recordset.Fields("參數名稱")=接
收到的參量數據
資料庫畫面名稱.Adodc1.Recordset.Update
資料庫的設計需要特別注意的是:
1.在Access資料庫定義的各個參數的名稱、類型、出現的
順序以及格式都必須與代碼中的「參數名稱「完全一致。
2.設置Ado Data控制項的ConnectionString屬性的時候,必須
選擇正確的資料庫所在路徑。
----引自《基於VB的燃料電池發動機監控系統設計》
這樣吧，我這里有個視頻是專門講資料庫的，看完後你就會了！
http://video.sina.com.cn/v/b/29731712-1676700661.html