16,549
社区成员
发帖
与我相关
我的任务
分享
Imports System.Data.OleDb
Public Class Form1
Dim dtStr() As String
Dim allNo As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim cstring As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\db.mdb"
Dim con As New OleDb.OleDbConnection(cstring)
Dim sql As String = "select count(sno) from con"
con.Open()
Dim cmd As New OleDb.OleDbCommand(sql, con)
Dim myreader As OleDbDataReader = cmd.ExecuteReader
myreader.read()
allNo = myreader(0)
myreader.Close()
con.Close()
sql = "select id,sno ,sname,sex from con"
con.Open()
Dim cmd1 As New OleDb.OleDbCommand(sql, con)
Dim myreader1 As OleDbDataReader = cmd1.ExecuteReader
ReDim dtStr(allNo - 1)
Dim i As Integer
While myreader1.Read
dtStr(i) = myreader1(0) & "," & myreader1(1) & "," & myreader1(2) & "," & myreader1(3)
ListBox1.Items.Add(myreader1(0))
i += 1
End While
con.Close()
End Sub
Private Sub ListBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.Click
TextBox1.Text = dtStr(ListBox1.SelectedIndex).Split(",")(1)
TextBox2.Text = dtStr(ListBox1.SelectedIndex).Split(",")(2)
TextBox3.Text = dtStr(ListBox1.SelectedIndex).Split(",")(3)
End Sub
End Class