Question

用vb.net怎么连接数据库?a列显示在ListBox1,b列显示在ListBox2中?求代码，实

用vb.net怎么连接数据库?a列显示在ListBox1,b列显示在ListBox2中?求代码，实例





Answer 1

Public Class Form1
Private Function BindData(ByVal str As String) As DataTable
Dim conn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=F:\project\office\test.accdb")
Dim mtab As New DataTable
Dim adp As New OleDb.OleDbDataAdapter(str, conn)
mtab.Clear()
conn.Open()
adp.Fill(mtab)
conn.Close()
Return mtab
End Function
Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
Dim t As New DataTable
t = BindData("select * from Maintab")
ListBox1.DataSource = t
ListBox2.DataSource = t
ListBox1.DisplayMember = "a"
ListBox2.DisplayMember = "b"
End Sub
End Class

Answer 2

能

追问

怎么写