vb.netmdb模块_vb模块和类模块区别

在vb.net中如何查询MDB数据库的数据

以下是完整模块

Imports

System.Data

System.IO

System.Data.OleDb

Module

Module1

Public

cn

As

New

Source="

Application.StartupPath

"\mdb数据库名字.mdb")

'定义连接

DataBaseRST

Integer

'用来返回数据库执行结果

Function

DataModify(ByVal

str

String)

Boolean

'进行数据库修改操作

Dim

cmdinsert

OleDbCommand

Try

cmdinsert.CommandText

=

cmdinsert.Connection

If

cn.State

ConnectionState.Closed

Then

cn.Open()

cmdinsert.ExecuteNonQuery()

'用来返回执行的结果

cn.Close()

Return

True

Catch

ex

Exception

MessageBox.Show(Err.Description,

"Error",

MessageBoxButtons.OK,

MessageBoxIcon.Error)

False

End

Search(ByVal

String,

ByVal

DGV

DataGridView)

'查询

str---查询命令,DGV---DataGridView,用来显示数据的控件

tb

DataTable

ap

OleDb.OleDbDataAdapter(str,

cn)

ap.Fill(tb)

DGV.DataSource

'以下是调用方法

DataModify("

insert

into

aa

values

Search("select

bb

from

aa",DataGridView1)'-----------这里是数据表查询操作

vb.net 写入mdb数据库

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

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

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

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

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

Function Connection() As String

'数据库的连接设置配置

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

Text1(i) = Rst.Fields(i)'text1为控件数组

Next

Else

End If

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

vb.net连接access数据库问题

①.,使用ADO connection对象

首先,要建立ADO引用,定义connection这个类,然后实例化对象.

代码完成如下：

objCn.Open?

/span

首先,打开电脑上的ODBC数据源,建立关系.

步骤如下：

①.）,打开电脑上的ODBC数据源

如下图所示：

? ? ? ? ? ?

dim?objCn?As?Connection?

Set?objCn?=?New?Connection?

①.）右击data控件,选择ADODC属性

使用ODBC数据源连接,单击新建

使用连接字符串：单击生成

测试连接

添加引用

右击创建连接,在右击想要连接的属性,之后的操作跟data控件中使用字符串中的操作一致

用vb.net 怎样建立一个mdb数据库及一张表

首先在项目的VB.NET界面,使用菜单【项目】--【添加引用】--【COM】

然后单击【确定】,完成引用.

完整代码如下：

Imports?ADOX

Public?Class?Form1

Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click

Dim?Mycat?As?Catalog?=?New?Catalog()

'以下代码创建一个名为"实验数据表"

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 与ACCESS MDB 数据刷新问题

楼主您好.您的代码缺少一句,所以它没有时时更新.

添加：dbConnection.Close()

您只打开没有关闭.所以第二次打开的还是第一次的数据集.

Function GetMDB_DataSource(ByVal sql As String) As DataTable

Dim DataAdapter As New OleDb.OleDbDataAdapter

Dim dtls As New DataTable

Dim dbConnection As OleDb.OleDbConnection = New OleDb.OleDbConnection(dbConnectionString)

dbConnection.Open()

DataAdapter.SelectCommand = New OleDb.OleDbCommand(sql, dbConnection)

DataAdapter.Fill(dtls)

dbConnection.Close()

Catch Ex As Exception

MsgBox(Err.Description, MsgBoxStyle.Critical, Err.Number)

Return New DataTable

End Try

Return dtls

希望对您有用！

以上就是土嘎嘎小编为大家整理的vb.netmdb模块相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦！！