在列表框中显示 Table 个名称 (VB)
Displaying Table names in a listbox (VB)
您好,我想知道如何在列表框中显示 table 名称的语法?
我将 visual studio (vb) 与 LocalDB 一起使用,并尝试使用 windows 表单创建一个程序,该程序可以在我的数据库中创建 table 并显示列表框(或任何类似列表框的东西)table 的名称
这取决于您使用的 Sql 服务器版本。这应该适用于 2005 和更新版本。
Private ConLocal As String = "Your connection string"
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim sql = "Select TABLE_NAME
FROM INFORMATION_SCHEMA.TABLES
WHERE TABLE_TYPE = 'BASE TABLE';"
Dim dt As New DataTable
Using cn As New SqlConnection(ConLocal),
cmd As New SqlCommand(sql, cn)
cn.Open()
Using reader = cmd.ExecuteReader
dt.Load(reader)
End Using
End Using
For Each row As DataRow In dt.Rows
ListBox1.Items.Add(row(0))
Next
End Sub
您好,我想知道如何在列表框中显示 table 名称的语法?
我将 visual studio (vb) 与 LocalDB 一起使用,并尝试使用 windows 表单创建一个程序,该程序可以在我的数据库中创建 table 并显示列表框(或任何类似列表框的东西)table 的名称
这取决于您使用的 Sql 服务器版本。这应该适用于 2005 和更新版本。
Private ConLocal As String = "Your connection string"
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim sql = "Select TABLE_NAME
FROM INFORMATION_SCHEMA.TABLES
WHERE TABLE_TYPE = 'BASE TABLE';"
Dim dt As New DataTable
Using cn As New SqlConnection(ConLocal),
cmd As New SqlCommand(sql, cn)
cn.Open()
Using reader = cmd.ExecuteReader
dt.Load(reader)
End Using
End Using
For Each row As DataRow In dt.Rows
ListBox1.Items.Add(row(0))
Next
End Sub