vb.net mysql 记录数_VB.net 对access数据库进行打开、查找、填充DataTable数据集、返回查找到的记录总数...

Imports

System.Data

Imports

System.Data.OleDb

Imports

System.Collections.Generic

Imports

System.Text

Imports

System.Data.SqlClient

Public Class Form1

Dim mydatatable

As New DataTable '建立表

Dim

MyDataAdapter As New OleDbDataAdapter '数据源连接器

Private

Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles

Button1.Click '读取数据库

Dim

lujing_access As String = "D:\backup\桌面\vs2008\data.mdb"

'数据库路径

Dim sqlstr

As String = "Select

* from 变电站信息 where ( 变电站名字

like '%变%')"

Call

readout_access(sqlstr, lujing_access, mydatatable,

MyDataAdapter)

DataGridView1.DataSource =

mydatatable

End

Sub

Privat