查表名称
Public Sub GetTableName()
Dim conn As SqlConnection = New SqlConnection(My.Settings.MySchoolConnectionString)
conn.Open()
Dim strSql As String = _
"select name from sysobjects where xtype='u')"
Dim da As New SqlDataAdapter(strSql, conn)
Dim dt As New DataTable
da.Fill(dt)
conn.Close()
DataGridView1.DataSource = dt
End Sub
查字段名称
Public Sub getFieldName()
Dim conn As SqlConnection = New SqlConnection(My.Settings.MySchoolConnectionString)
conn.Open()
Dim strSql As String = _
"select name from syscolumns where id=(select max(id) from sysobjects where xtype='u' and name='表名')"
Dim da As New SqlDataAdapter(strSql, conn)
Dim dt As New DataTable
da.Fill(dt)
conn.Close()
DataGridView1.DataSource = dt
End Sub