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连接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读取数据库的介绍就聊到这里吧，感谢你花时间阅读本站内容 ， 更多关于vb读取数据库数据、vb.net读取数据库的信息别忘了在本站进行查找喔 。
推荐阅读
- 身份证15位转18位excel，身份证15位转18位查询系统
- 直播间评估什么意思呀，直播效果评估报告
- 新媒体如何讲公司，企业新媒体营销如何去做
- php数据更新的方法 php数据更新的方法是什么
- 云南移动路由器怎么登录，移动公司路由器怎么登录
- 超级变态网络游戏，超级变态网络游戏
- 养成游戏恋爱养成记怎么玩视频，恋爱养成游戏门户
- 字符串的输入函数c语言 输入字符串 c语言
- linux命令ts的简单介绍