Question

用vb.net 将数据库表名添加到ListBox1

ACCESS数据库已连接变量oleDbConnection1
strsql = "SELECT NAME FROM MSysObjects WHERE Flags=0 AND Type=1"
ListBox 控件ListBox1

哪位大侠帮助写一下将strsql获取的表名添加与ListBox1，谢谢。

Answer 1

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=e:\database\database1.mdb"
Dim con As New OleDb.OleDbConnection(cstring)

Dim sql As String = "select 姓名 from 学生信息表"
con.Open()
Dim cmd As New OleDb.OleDbCommand(sql, con)
Dim myreader As OleDbDataReader = cmd.ExecuteReader

Do While myreader.Read
ListBox1.Items.Add(myreader(0))
Loop

End Sub

Answer 2

我有一个SQL数据库DATA，成功连接到它后。我想用一个LISTBOX列出DATA里面的所有表的名字。请问可以怎样做到？ 连数据库会了吧？连上后用下面的语句