vb.net2008中怎样调用资源文件中的MDB数据库在此本人使用ADO对象访问ACCESS数据库vb.net訪問mdb ， 但ADO对象在使用前vb.net訪問mdb你先要进行添加，启动VB6后，单击菜单“工程-引用”，打开引用对话框，选择“Microsoft ActiveX Data Objects 2.0 Library” ， 将其勾选，（以2.0版本为例，实际可以选择系统中的最高版本如本人的就是2.6版本），然后在当前目录下建立一个名为“学生”的ACCESS数据库，其中表名为“表”,字段共有vb.net訪問mdb：学号，姓名，年龄 ， 性别四个字段，接下来就是设计界面了(自己设计)
现在介绍如何使用代码访问ACCESS数据库vb.net訪問mdb：
在代码窗口中编写一个返回字符型的函数
Function Connection() As String
'数据库的连接设置配置
Connection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="App.Path"\学生.mdb"
End Function
该函数用于连接数据库用
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创建一个ADO数据库连接对象
Dim Rst As New ADODB.Recordset为创建一个ADO数据库记录对象
select * from 表 是SQL查询语言，这里为数据源，意思就是打开数据库“学生”中的表“表”
下面是将数据库表中的字段值显示出来的一个过程
Sub View()
Dim i As Integer
For i = 0 To 2
Text1(i) = Rst.Fields(i)'text1为控件数组
Next
If (Rst.Fields(3) = True) Then
Text1(3) = "男"
Else
Text1(3) = "女"
End If
End Sub
要访问ACCESS数据库就这样可以实现，访问SQL也差不多 ， 稍有不同，回答完毕，如还有问题请继续和我联系，本人是专使用VB SQL/Delphi SQL开发数据库管理系统的程序员 。
用vb.net 怎样建立一个mdb数据库及一张表首先在项目的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
【vb.net訪問mdb vbnet adodb】'创建空的access数据库文件--数据库文件.mdb，密码为123
Dim Mycat As Catalog = New Catalog()
Mycat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source= 数据库文件.mdb;Jet OLEDB:Database Password=123")
'以下代码创建一个名为“实验数据表”
Dim MyTable As ADOX.Table = New ADOX.Table'定义新表
MyTable.Name = "实验数据表"'表命名
'给表“实验数据表” 创建一个字符串字段，字段名“姓名”
MyTable.Columns.Append("姓名", , ADOX.DataTypeEnum.adWChar)
'给表“实验数据表” 创建一个整数字段，字段名“学号”
MyTable.Columns.Append("学号", ADOX.DataTypeEnum.adInteger)'追加一个数字型字段
'给字段“学号”创建一个主键“PimaryKey_Field”
MyTable.Keys.Append("学号", ADOX.KeyTypeEnum.adKeyPrimary, "学号")
Mycat.Tables.Append(MyTable) '把所有的新字段追加到表
MyTable = Nothing
Mycat = Nothing
End Sub
End Class
vb.net 写入mdb数据库1、首先，你得做一个oledbconnection对象，这个对象有个连接字符串的属性，你需要设置
2、做一个oledbcommand对象，这个对象有个操作字符串（SQL语句）需要设置
3、打开oledbconnection对象
4、执行oledbcommand对象
5、关闭oledbconnection对象
程序结束，希望对你有帮助
VB.NET访问ACCESS数据库 ， 查询时，提示dr = cmd.ExecuteReader()至少一个参数没被指定值看起来,应该是"select ip from test where 设备="ComboBox1.Text""这里出错了
你试试:
"select ip from test where 设备='"ComboBox1.Text"'"
这样应该不会提示这个错误了,但TextBox1当中可能不会显示任何内容
因为你的ComboBox1.Text 的内容应该是空的
在vb.net中如何查询MDB数据库的数据以下是完整模块
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数据库名字.mdb")
'定义连接
Public
DataBaseRST
As
Integer
'用来返回数据库执行结果
Public
Function
DataModify(ByVal
str
As
String)
As
Boolean
'进行数据库修改操作
Dim
cmdinsert
As
New
OleDbCommand
Try
cmdinsert.CommandText
=
str
cmdinsert.Connection
=
cn
If
cn.State
=
ConnectionState.Closed
Then
cn.Open()
DataBaseRST
=
cmdinsert.ExecuteNonQuery()
'用来返回执行的结果
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，用来显示数据的控件
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
'以下是调用方法
DataModify("
insert
into
aa
values
('1','2')")'-------这里是数据库更新操作
Search("select
bb
from
aa",DataGridView1)'-----------这里是数据表查询操作
vb.net訪問mdb的介绍就聊到这里吧，感谢你花时间阅读本站内容 ， 更多关于vbnet adodb、vb.net訪問mdb的信息别忘了在本站进行查找喔 。
推荐阅读
- 鸿蒙os30界面图，鸿蒙os20界面
- 公众号如何引流淘宝粉的简单介绍
- 有线电视遥控板怎么对码，有线电视遥控器对接视频
- oracle死锁怎么用 oracle解决死锁
- 关于手机有什么新闻可以看直播的信息
- erp系统概念股，erp系统的概念
- ios原声壁纸荷花，ios壁纸 原生 无损
- c语言函数乘法口诀 c语言乘法函数怎么写
- 贵州如何做网络推广运营，贵州网络推广步骤