VB中用ADO如何读取数据库中的表名、查询名；更改表名、查询名和更改字段名。

Question

读取数据库系统表sysobjects,select * from sysobjects where xtype='U'
其它的你可以使用存储过程及相关的SQL语句都可以实现！

Answer 1

数据库中的表名:select * from sysobjects where xtype='U' 不过你会发现这里面有一个不是你的用户表，加条件把它去掉。更改表名：没有单独的SQL能实现这个功能，你可以先建一个新表，然后把所有旧表数据库考过去，再把旧表删除。插入字段名：使用ALTER 
            ALTER TABLE 表名 add 新列名 类型

Answer 2

Dim cn As New ADODB.Connection
Dim rsTables As ADODB.Recordset
cn.Open "Data Source=" & SQL_SRV & ";User ID=sa" & ";Initial Catalog=" & sDB.........'你自己打开数据库的连接串了
Set rsTables = cn.OpenSchema(adSchemaTables) '这个记录集包含所有表
    '加到Lvwtables中。
    While Not rsTables.EOF
        
        If UCase(rsTables!TABLE_TYPE) = "TABLE" Then
            lvwTables.ListItems.Add i, "TABLE" & i, rsTables!TABLE_NAME, 3, 3
            i = i + 1
        End If
        
        rsTables.MoveNext
        
    Wend

Answer 3

您也可以用存储过程,视图来操作,主要研究一下下面几个系统表就可以了.
sysobjects '保存各种对象
syscolumns '保存各个表的列的信息
systypes   '保存各种数据类型信息