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

以下是完整模块

创新互联是一家专业提供克拉玛依区企业网站建设,专注与成都做网站、成都网站制作、H5响应式网站、小程序制作等业务。10年已为克拉玛依区众多企业、政府机构等服务。创新互联专业网站设计公司优惠进行中。

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 API程序接口网站

一、软件准备：Apache（2.0.52）： PHP（4.3.9）： MySQL（4.1.7）： Zend Optimizer（2.5.5）： phpMyAdmin（2.6.0）： 二、安装 PHP ：（1）、下载后得到 php-4.3.9-Win32.zip ，解压至 C:\PHP（这个路径可以随意，不过下面要是用到这个路径，请相应修改）；（2）、进入 C:\PHP ，将 php.ini-dist 复制一份放到 C:\WINNT（ Windows 2003 下为 C:\Windows ）内，改名为 php.ini ，然后用记事本打开，利用记事本的查找功能搜索 extension_dir = "./" ，并将其路径指到你的 PHP 目录下的 extensions 目录，比如：extension_dir = "C:\PHP\extensions" ；再搜索 register_globals = Off ，将 Off 改成 On ；如果你想让 PHP 支持更多功能模块，请按照下面的步骤去做，如果不想的话，直接保存关闭 php.ini 即可.PHP 支持的模块很多，搜索：;Windows Extensions;Note that MySQL and ODBC support is now built in, so no dll is needed for it.;下面所列的就是 PHP 预支持的扩展模块，默认情况下都用分号在前面注释掉了，如果你想 PHP 支持某个模块，请将前面的“;”去掉即可。如果安装完毕后测试时，弹出不支持 xxx.dll 模块的话，直接将前面分号再加上去，保存后重启 Web 服务器就可以了。（3）、把 C:\PHP\php4ts.dll 和 C:\PHP\dlls 目录下的所有文件复制粘贴到 C:\WINNT\system32\（ Windows 2003 下为 C:\Windows\system32 ）内；（4）、配置 IIS 使其支持 PHP ：首先必须确定系统中已经正确安装 IIS ，如果没有安装，需要先安装 IIS ，安装步骤如下：a Windows 2000 下的 IIS 安装：用 Administrator 帐号登陆系统，将 Windows 2000 安装光盘插入光盘驱动器，进入“控制面板”点击“添加/删除程序”，再点击左侧的“添加/删除 Windows 组件”，在弹出的窗口中选择“Internet 信息服务（IIS）”，点下面的“详细信息”按钮，选择组件，以下组件是必须的：“Internet 服务管理器”、“World Wide Web 服务器”和“公用文件”，确定安装。安装完毕后，在“控制面板”的“管理工具”里打开“服务”，检查“IIS Admin Service”和“World Wide Web Publishing Service”两项服务，如果没有启动，将其启动即可。b Windows 2003 下的 IIS 安装：由于 Windows 2003 的 IIS 6.0 集成在应用程序服务器中，因此安装应用程序服务器就会默认安装 IIS 6.0 ，在“开始”菜单中点击“配置您的服务器”，在打开的“配置您的服务器向导”里左侧选择“应用程序服务器（IIS，ASP.NET）”，单击“下一步”出现“应用程序服务器选项”，你可以选择和应用程序服务器一起安装的组件，默认全选即可，单击“下一步”，出现“选择总结界面”，提示了本次安装中的选项，配置程序将自动按照“选择总结”中的选项进行安装和配置。打开浏览器，输入：，看到成功页面后进行下面的操作：PHP 支持 CGI 和 ISAPI 两种安装模式，推荐使用 ISAPI 模式。a、CGI 模式安装步骤：在“控制面板”的“管理工具”中选择“Internet 服务管理器”，打开 IIS 后停止服务，然后在左侧“默认Web站点”上单击右键选择“属性”，在打开的“默认 Web 站点属性”窗口的“主目录”标签里找到并点击“配置”按钮，在弹出的“应用程序配置”窗口中找到并点击“添加”按钮，在弹出的窗口中新增一个扩展名映射，扩展名为 .php ，单击“浏

VB.NET连接ACCESS数据库，读取查询并显示

给你写个例子，不明白，再问！！

'引入OLEDB命令空间

Imports System.Data.OleDb

Public Class Form1

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

'定义一个OLEDB连接并实例化它

Dim con As New OleDbConnection

'定义一个OLEDB命令并实例化他

Dim cmd As New OleDbCommand

'定义一个OLEDBReader方法来读取数据库

Dim dr As OleDbDataReader

'初始化con的连接属性，使用OLEDB模式，数据源为：你指定下路径，我的是在D盘

con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\dataSample.mdb"

'打开OLEDB数据连接

con.Open()

'初始化OLEDB命令的连接属性为con,这个需要你理解下

cmd.Connection = con

'初始化OLEDB命令的语句 就是查询 什么字段从什么表 条件是ID等于你在t1中输入的内容

cmd.CommandText = "select keyss from table1 where ID=" t1.Text ""

'执行OLEDB命令以ExecuteReader()方式，并返回一个OLEDBReader，赋值给dr

dr = cmd.ExecuteReader()

'判断下dr中是否有数据。如果有就把第一个值赋值给t2的值

If dr.Read() Then

t2.Text = dr(0)

End If

'完成后关闭dr.con等释放资源

dr.Close()

con.Close()

End Sub

End Class

如何在vb,net 窗体中实现查询功能

N=length(R);

scatter(C(:,1),C(:,2));

hold on

plot([C(R(1),1),C(R(N),1)],[C(R(1),2),C(R(N),2)])

hold on

for ii=2:N

plot([C(R(ii-1),1),C(R(ii),1)],[C(R(ii-1),2),C(R(ii),2)])

hold on

end

名称栏目：vb.net接口查询 vbnet数据库查询
文章URL：http://lswzjz.com/article/doohchh.html