求教：建立数据库连接后，如何得到数据库中的表和视图

Question

想做成通用的
至少包括sql server,sybase ,access

Answer 1

定义一个记录集呀。
Dim rsjl As New ADODB.Recordset
 rsjl.CursorLocation = adUseClient
 rsjl.Open "select * from 表名或者视图名", conn, adOpenKeyset, adLockOptimistic, adCmdText

Answer 2

'工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）    Dim CN   As New ADODB.Connection                '定义数据库的连接
    Dim Rs   As New ADODB.Recordset
    CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;"    CN.Open
    Rs.CursorLocation = adUseClient
    Rs.Open "select * from 表或视图名", CN, adOpenDynamic, adLockOptimistic

Answer 3

access的：工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）    Dim CN   As New ADODB.Connection                '定义数据库的连接
    Dim Rs   As New ADODB.Recordset    CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\NWIND.MDB;Persist Security Info=False"
    CN.Open    Rs.CursorLocation = adUseClient
    Rs.Open "select * from employees", CN, adOpenDynamic, adLockBatchOptimistic

Answer 4

SQL SERVER 2000
我的连接如下：
    Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim sql As String
       
     cn.Open "driver={SQL Server};server=127.0.0.1;uid=sa;pwd=;database=dbname"
    
     Set rs = New ADODB.Recordset
    
     sql = "select * from yourtable"
    
     rs.Open sql, cn, adOpenStatic, adLockBatchOptimistic
    
     MsgBox rs.Fields(0).Value
  
在引用中加ADO2.6

Answer 5

你是要得到数据中的所有表和视图吗?
SQLServer:sp_tables
自己看看sp_tables的写法吧
其他的数据库我不知道

Answer 6

通用得吗？可以啊，直接用  OpenSchema

Answer 7

select * from sysobjects where xtype='U' or xtype='V'