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 怎么操作数据库

如果楼主熟悉VB6，可以直接在项目中添加ADODB的Com引用，这样你就可以像VB6那样操作数据库了！

另外

.NET

Framework中连接数据库要用到ADO.NET。如果要操作Access数据库，要用到System.Data.OleDb命名空间下的许多类。

比如按楼主所说，“我想在textbox1中显示表一中【一些数据】字段下的第一个内容”：

'首先导入命名空间

Imports

System.Data

Imports

System.Data.OleDb

'然后在某一个事件处理程序中写：

Dim

conn

As

New

OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data

Source=数据库.accdb;Jet

OLEDB:Database

Password=MyDbPassword")

Dim

command

As

New

OleDbCommand("Select

*

From

数据表",

conn)

conn.Open()

'打开数据库连接

Dim

reader

As

OleDbDataReader

=

command.ExecuteReader()

'执行SQL语句，返回OleDbDataReader

对象

Do

While

reader.Read()

'读取一条数据

textbox1.Text

+=

reader("一些数据")

VbCrLf

Loop

reader.Close()

'关闭OleDbDataReader

conn.Close()

'关闭连接

vb.net listview 显示access数据库内容

'ListView1.SmallIcons = ImageList1.Object '把ImageList1图标列表控件绑定到 ListView1列表控件中来。

ListView1.ListItems.Clear '清空列表

ListView1.ColumnHeaders.Clear '清空列表头

ListView1.View = lvwReport '设置列表显示方式

ListView1.GridLines = True '显示网络线

ListView1.LabelEdit = lvwManual '禁止标签编辑

ListView1.FullRowSelect = True '选择整行

ListView1.ColumnHeaders.Add , , "ID", 500 '给列表中添加列名

ListView1.ColumnHeaders.Add , , "本地 IP", 1500

ListView1.ColumnHeaders.Add , , "本地端口", 1200

ListView1.ColumnHeaders.Add , , "协议", 550

ListView1.ColumnHeaders.Add , , "远程 IP", 1500

ListView1.ColumnHeaders.Add , , "远程端口", 900

ListView1.ColumnHeaders.Add , , "当前状态", 900

ListView1.ColumnHeaders.Add , , "连接时间", 900

VB Net 如何在控件中显示数据库中的数据？

//用ADO.net中的Connection进行OLE连接到Access文件，连接字符串例子：

connstr="PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source=DB文件路径;Jet OLEDB:Database password=密码"

//再发送Command命令SQL，

Select * from Student_Perfomance where Stu_No='取到的学号'

//再用DataReader取出数据，设置到窗体的控件上。

网站栏目：包含vb.net显示数据库的词条
分享路径：http://cdweb.net/article/doegijj.html