vb.net如何把access数据库里的记录查询出来并能显示
vb.net怎么把access数据库里的记录查询出来并能显示？
vb.net怎么把access数据库里的记录查询出来并能显示？
也用ADO.NET吗？
我想用vb.net把access数据库里的记录显示出来，希望能有分页功能，谢谢！
请高手指教，多谢！
------解决方案--------------------
也用ADO.NET吗？ 能呀
------解决方案--------------------
Public mycon As OleDb.OleDbConnection
Public mycom As OleDb.OleDbCommand
Public dw As DataView
Public ds As DataSet
Public myread As OleDb.OleDbDataAdapter
Public mydd As OleDb.OleDbDataReader
mycon = New OleDb.OleDbConnection
mycon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\digao\data\dg.mdb"
mycon.Open()
mycom = New OleDb.OleDbCommand("select * from hs", mycon)
myread = New OleDb.OleDbDataAdapter("select * from hs", mycon)
'Dim ds As New DataSet
myread.Fill(ds)
mydd = mycom.ExecuteReader()
DataGrid1.BackColor = Color.Yellow
'Dim dw As New DataView(ds.Tables(0))
DataGrid1.DataSource = mydd
DataGrid1.DataBind()
------解决方案--------------------
下面的代码是抄袭****里面某个人的，忘记名字了，但是确实很经典，很值得初学的人学习
Imports System.Data.SqlClient
Public Class Form1
Dim constr As String = "User ID=sa;pwd=a;Initial Catalog=zbb;Data Source=(local)" '定义一个变量，连接字符串
Dim sqlstr As String = "" '定义一个变量，SQL语句
Dim mycon As New SqlConnection(constr) '定义一个变量，为一个连接对象,并给定连接字符串。
'上一句等价于以下二句：不过第一行是定义在上面，第二行不是定义应该在下面的模块里
'Dim mycon As New SqlConnection
'mycon.ConnectionString = constr
Dim mycom As New SqlCommand(sqlstr, mycon) '定义一个变量，为命令对象
'上一句等价于以下三句：不过第一行是定义在上面，第二，三行不是定义应该在下面的模块里
'Dim mycom As New SqlCommand
'mycom.Connection.ConnectionString = constr
'mycom.CommandText = sqlstr
Dim myReader As SqlDataReader '定义一个变量，阅读器
Dim i As Integer = 0 '定义一个整形变量
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
sqlstr = "select * from manid"
mycom.CommandText = sqlstr
If mycon.State = 1 Then mycon.Close()
mycom.Connection.ConnectionString = constr '为这个连接字符串重新赋值
mycon.Open() '重新打开这个联接
myReader = mycom.ExecuteReader '把这个命令的连接送入阅读器
Dim k As Integer = 0
While myReader.Read 'while 为遍历集合的每一项，用阅读器的read的方法来读取'定义一个变量的第一项
k = k + 1
ComboBox1.Items.Add(myReader(0)) '第二项这个定义为1，第一项为0
End While
MsgBox("阅读器行数＝" & k)
MsgBox("字段列数＝" & myReader.FieldCount)
MsgBox("已经为列表框一填充完毕！")
' MsgBox(k)
'' k = 0
' Dim kl As String = ""
' 'mycon.Close()
' 'mycon.Open()
' On Error GoTo ss
' 'myReader = mycom.ExecuteReader '把这个命令的连接送入阅读器
' For i = 0 To 10000
' MsgBox(myReader(k))
' k = k + 1
' Next
'ss:
'' MsgBox(k)
'While myReader.Read 'while 为遍历集合的每一项，用阅读器的read的方法来读取'定义一个变量的第一项
' ComboBox1.Items.Add(myReader(0) & "|" & myReader(1) & "|" & myReader(2) & "|" & myReader(3) & "|" & myReader(4) & "|" & myReader(5) & "|" & myReader(6) & "|" & myReader(7) & "|" & myReader(8) & "|" & myReader(9)) '这里我知道阅读器有10列所以我用了阅读器的0-9个项目，由于是遍历集合的每一项所以是9列N行了
' ComboBox2.Items.Add(myReader(0)) '这个只取第一列
vb.net怎么把access数据库里的记录查询出来并能显示？
也用ADO.NET吗？
我想用vb.net把access数据库里的记录显示出来，希望能有分页功能，谢谢！
请高手指教，多谢！
------解决方案--------------------
也用ADO.NET吗？ 能呀
------解决方案--------------------
Public mycon As OleDb.OleDbConnection
Public mycom As OleDb.OleDbCommand
Public dw As DataView
Public ds As DataSet
Public myread As OleDb.OleDbDataAdapter
Public mydd As OleDb.OleDbDataReader
mycon = New OleDb.OleDbConnection
mycon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\digao\data\dg.mdb"
mycon.Open()
mycom = New OleDb.OleDbCommand("select * from hs", mycon)
myread = New OleDb.OleDbDataAdapter("select * from hs", mycon)
'Dim ds As New DataSet
myread.Fill(ds)
mydd = mycom.ExecuteReader()
DataGrid1.BackColor = Color.Yellow
'Dim dw As New DataView(ds.Tables(0))
DataGrid1.DataSource = mydd
DataGrid1.DataBind()
------解决方案--------------------
下面的代码是抄袭****里面某个人的，忘记名字了，但是确实很经典，很值得初学的人学习
Imports System.Data.SqlClient
Public Class Form1
Dim constr As String = "User ID=sa;pwd=a;Initial Catalog=zbb;Data Source=(local)" '定义一个变量，连接字符串
Dim sqlstr As String = "" '定义一个变量，SQL语句
Dim mycon As New SqlConnection(constr) '定义一个变量，为一个连接对象,并给定连接字符串。
'上一句等价于以下二句：不过第一行是定义在上面，第二行不是定义应该在下面的模块里
'Dim mycon As New SqlConnection
'mycon.ConnectionString = constr
Dim mycom As New SqlCommand(sqlstr, mycon) '定义一个变量，为命令对象
'上一句等价于以下三句：不过第一行是定义在上面，第二，三行不是定义应该在下面的模块里
'Dim mycom As New SqlCommand
'mycom.Connection.ConnectionString = constr
'mycom.CommandText = sqlstr
Dim myReader As SqlDataReader '定义一个变量，阅读器
Dim i As Integer = 0 '定义一个整形变量
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
sqlstr = "select * from manid"
mycom.CommandText = sqlstr
If mycon.State = 1 Then mycon.Close()
mycom.Connection.ConnectionString = constr '为这个连接字符串重新赋值
mycon.Open() '重新打开这个联接
myReader = mycom.ExecuteReader '把这个命令的连接送入阅读器
Dim k As Integer = 0
While myReader.Read 'while 为遍历集合的每一项，用阅读器的read的方法来读取'定义一个变量的第一项
k = k + 1
ComboBox1.Items.Add(myReader(0)) '第二项这个定义为1，第一项为0
End While
MsgBox("阅读器行数＝" & k)
MsgBox("字段列数＝" & myReader.FieldCount)
MsgBox("已经为列表框一填充完毕！")
' MsgBox(k)
'' k = 0
' Dim kl As String = ""
' 'mycon.Close()
' 'mycon.Open()
' On Error GoTo ss
' 'myReader = mycom.ExecuteReader '把这个命令的连接送入阅读器
' For i = 0 To 10000
' MsgBox(myReader(k))
' k = k + 1
' Next
'ss:
'' MsgBox(k)
'While myReader.Read 'while 为遍历集合的每一项，用阅读器的read的方法来读取'定义一个变量的第一项
' ComboBox1.Items.Add(myReader(0) & "|" & myReader(1) & "|" & myReader(2) & "|" & myReader(3) & "|" & myReader(4) & "|" & myReader(5) & "|" & myReader(6) & "|" & myReader(7) & "|" & myReader(8) & "|" & myReader(9)) '这里我知道阅读器有10列所以我用了阅读器的0-9个项目，由于是遍历集合的每一项所以是9列N行了
' ComboBox2.Items.Add(myReader(0)) '这个只取第一列