vb.net读写mdb VBNET编程宝典

vb.net 写入mdb数据库

1、首先，你得做一个oledbconnection对象，这个对象有个连接字符串的属性，你需要设置

创新互联建站自2013年创立以来，先为自贡等服务建站，自贡等地企业，进行企业商务咨询服务。为自贡企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。

2、做一个oledbcommand对象，这个对象有个操作字符串（SQL语句）需要设置

3、打开oledbconnection对象

4、执行oledbcommand对象

5、关闭oledbconnection对象

程序结束，希望对你有帮助

VB.NET2012数据无法写入到MDB文件中

在资源文件管理器中，找到数据库，属性管理器中出现属性，选择不复制，或当文件最新时才复制

vb.net2008中怎样调用资源文件中的MDB数据库

在此本人使用ADO对象访问ACCESS数据库，但ADO对象在使用前你先要进行添加，启动VB6后，单击菜单“工程-引用”，打开引用对话框，选择“Microsoft ActiveX Data Objects 2.0 Library”，将其勾选，（以2.0版本为例，实际可以选择系统中的最高版本如本人的就是2.6版本），然后在当前目录下建立一个名为“学生”的ACCESS数据库，其中表名为“表”,字段共有：学号，姓名，年龄，性别四个字段，接下来就是设计界面了(自己设计)

现在介绍如何使用代码访问ACCESS数据库：

在代码窗口中编写一个返回字符型的函数

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为控件数组

If (Rst.Fields(3) = True) Then

Text1(3) = "男"

Else

Text1(3) = "女"

End If

End Sub

要访问ACCESS数据库就这样可以实现，访问SQL也差不多，稍有不同，回答完毕，如还有问题请继续和我联系，本人是专使用VB+SQL/Delphi+SQL开发数据库管理系统的程序员。

怎样用VB.NET读access里面的具体数据？

imports system.data

imports system.data.oledb

private sub from_load(......)

dim myconnection as new oledbconnection _ ("provider=microsoft.jet.oledb.4.0;data source=AdminDB.mdb")

dim mydataset as new dataset()

dim myadapter as oledbdataadapter

myconnection.open()

myadapter=new oledbdataadapter("select * from AdminDB",myconnection)

myadapter.fill(mydataset,"AdminDB")

dim a as string

a=mydataset.tables("AdminDB").rows(0).item(1) '(读取第1行第2列数据)

myconnection.close()

end sub

vb.net读取Access数据库的方法

建立数据集，绑定到窗口。不会的话，把要用的表从数据集拖到窗口，再删除就行了

提取方法

数据及名称.表格名称.rows（2）.item(3).tostring 就是了