vb.net遍历SQL中所有用户表

        If sqlcon.State = ConnectionState.Closed Then sqlcon.Open()
        Dim tbl As New DataTable
        Dim cmd As New SqlCommand("select table_name as Name from INFORMATION_SCHEMA.Tables where TABLE_TYPE ='BASE TABLE'", sqlcon)
        tbl.Load(cmd.ExecuteReader(CommandBehavior.CloseConnection))
        UltraGrid1.DataSource = tbl
        If sqlcon.State = ConnectionState.Open Then sqlcon.Close()