建站
咨詢
售后
建站咨詢
新聞中心
vb.net 寫入mdb數(shù)據(jù)庫
1、首先，你得做一個oledbconnection對象，這個對象有個連接字符串的屬性，你需要設(shè)置
大城ssl適用于網(wǎng)站、小程序/APP、API接口等需要進(jìn)行數(shù)據(jù)傳輸應(yīng)用場景，ssl證書未來市場廣闊！成為成都創(chuàng)新互聯(lián)的ssl證書銷售渠道，可以享受市場價格4-6折優(yōu)惠！如果有意向歡迎電話聯(lián)系或者加微信：18982081108（備注：SSL證書合作）期待與您的合作！
2、做一個oledbcommand對象，這個對象有個操作字符串（SQL語句）需要設(shè)置
3、打開oledbconnection對象
4、執(zhí)行oledbcommand對象
5、關(guān)閉oledbconnection對象
程序結(jié)束，希望對你有幫助
在vb.net中如何查詢MDB數(shù)據(jù)庫的數(shù)據(jù)
以下是完整模塊
Imports
System.Data
Imports
System.IO
Imports
System.Data.OleDb
Module
Module1
Public
cn
As
New
OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
Source="
Application.StartupPath
"\mdb數(shù)據(jù)庫名字.mdb")
'定義連接
Public
DataBaseRST
As
Integer
'用來返回數(shù)據(jù)庫執(zhí)行結(jié)果
Public
Function
DataModify(ByVal
str
As
String)
As
Boolean
'進(jìn)行數(shù)據(jù)庫修改操作
Dim
cmdinsert
As
New
OleDbCommand
Try
cmdinsert.CommandText
=
str
cmdinsert.Connection
=
cn
If
cn.State
=
ConnectionState.Closed
Then
cn.Open()
DataBaseRST
=
cmdinsert.ExecuteNonQuery()
'用來返回執(zhí)行的結(jié)果
cn.Close()
Return
True
Catch
ex
As
Exception
MessageBox.Show(Err.Description,
"Error",
MessageBoxButtons.OK,
MessageBoxIcon.Error)
Return
False
End
Try
End
Function
Public
Function
Search(ByVal
str
As
String,
ByVal
DGV
As
DataGridView)
As
Boolean
'查詢
str---查詢命令，DGV---DataGridView，用來顯示數(shù)據(jù)的控件
Dim
tb
As
New
DataTable
Try
Dim
ap
As
New
OleDb.OleDbDataAdapter(str,
cn)
ap.Fill(tb)
DGV.DataSource
=
tb
Return
True
Catch
ex
As
Exception
MessageBox.Show(Err.Description,
"Error",
MessageBoxButtons.OK,
MessageBoxIcon.Error)
Return
False
End
Try
End
Function
End
Module
'以下是調(diào)用方法
DataModify("
insert
into
aa
values
('1','2')")'-------這里是數(shù)據(jù)庫更新操作
Search("select
bb
from
aa",DataGridView1)'-----------這里是數(shù)據(jù)表查詢操作
用vb.net 怎樣建立一個mdb數(shù)據(jù)庫及一張表
首先在項目的VB.NET界面，使用菜單【項目】--【添加引用】--【COM】
選擇 ?Microsoft ADO Ext. 2.x for DDL and Security
然后單擊【確定】，完成引用。
完整代碼如下：
Imports?ADOX
Public?Class?Form1
Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click
'創(chuàng)建空的access數(shù)據(jù)庫文件--數(shù)據(jù)庫文件.mdb，密碼為123
Dim?Mycat?As?Catalog?=?New?Catalog()
Mycat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Jet?OLEDB:Engine?Type=5;Data?Source=?數(shù)據(jù)庫文件.mdb;Jet?OLEDB:Database?Password=123")
'以下代碼創(chuàng)建一個名為“實驗數(shù)據(jù)表”
Dim?MyTable?As?ADOX.Table?=?New?ADOX.Table?????????'定義新表
MyTable.Name?=?"實驗數(shù)據(jù)表"????'表命名
'給表“實驗數(shù)據(jù)表”?創(chuàng)建一個字符串字段，字段名“姓名”
MyTable.Columns.Append("姓名",?,?ADOX.DataTypeEnum.adWChar)
'給表“實驗數(shù)據(jù)表”?創(chuàng)建一個整數(shù)字段，字段名“學(xué)號”
MyTable.Columns.Append("學(xué)號",?ADOX.DataTypeEnum.adInteger)????'追加一個數(shù)字型字段
'給字段“學(xué)號”創(chuàng)建一個主鍵“PimaryKey_Field”????????
MyTable.Keys.Append("學(xué)號",?ADOX.KeyTypeEnum.adKeyPrimary,?"學(xué)號")
Mycat.Tables.Append(MyTable)?'把所有的新字段追加到表
MyTable?=?Nothing
Mycat?=?Nothing
End?Sub
End?Class
vb.net2008中怎樣調(diào)用資源文件中的MDB數(shù)據(jù)庫
在此本人使用ADO對象訪問ACCESS數(shù)據(jù)庫，但ADO對象在使用前你先要進(jìn)行添加，啟動VB6后，單擊菜單“工程-引用”，打開引用對話框，選擇“Microsoft ActiveX Data Objects 2.0 Library”，將其勾選，（以2.0版本為例，實際可以選擇系統(tǒng)中的最高版本如本人的就是2.6版本），然后在當(dāng)前目錄下建立一個名為“學(xué)生”的ACCESS數(shù)據(jù)庫，其中表名為“表”,字段共有：學(xué)號，姓名，年齡，性別四個字段，接下來就是設(shè)計界面了(自己設(shè)計)
現(xiàn)在介紹如何使用代碼訪問ACCESS數(shù)據(jù)庫：
在代碼窗口中編寫一個返回字符型的函數(shù)
Function Connection() As String
'數(shù)據(jù)庫的連接設(shè)置配置
Connection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" App.Path + "\學(xué)生.mdb"
End Function
該函數(shù)用于連接數(shù)據(jù)庫用
Private Form_Load()
Dim cnn As New ADODB.Connection
Dim Rst As New ADODB.Recordset
cnn.Open Connection
Set Rst = New ADODB.Recordset
Rst.Open "select * from 表", cnn, adOpenKeyset, adLockOptimistic
End Sub
注：
Dim cnn As New ADODB.Connection創(chuàng)建一個ADO數(shù)據(jù)庫連接對象
Dim Rst As New ADODB.Recordset為創(chuàng)建一個ADO數(shù)據(jù)庫記錄對象
select * from 表 是SQL查詢語言，這里為數(shù)據(jù)源，意思就是打開數(shù)據(jù)庫“學(xué)生”中的表“表”
下面是將數(shù)據(jù)庫表中的字段值顯示出來的一個過程
Sub View()
Dim i As Integer
For i = 0 To 2
Text1(i) = Rst.Fields(i)'text1為控件數(shù)組
Next
If (Rst.Fields(3) = True) Then
Text1(3) = "男"
Else
Text1(3) = "女"
End If
End Sub
要訪問ACCESS數(shù)據(jù)庫就這樣可以實現(xiàn)，訪問SQL也差不多，稍有不同，回答完畢，如還有問題請繼續(xù)和我聯(lián)系，本人是專使用VB+SQL/Delphi+SQL開發(fā)數(shù)據(jù)庫管理系統(tǒng)的程序員。
新聞名稱：vb.netmdb的簡單介紹
URL標(biāo)題：http://fisionsoft.com.cn/article/dojhghs.html
