如何在复合框中填写SQL Server所给出的Pubs数据库的表单名

Question

SQL语句是这样的"Select * from sysobjects where Type='U'",这将从选择的数据库中给出所需的表名称,接下来应该怎么写呢,谢谢

Answer 1

列出MDB档当中所有table的名称
 
Dim cnn1 As ADODB.Connection
Dim rstSchema As ADODB.Recordset
Dim strCnn As String
Set cnn1 = New ADODB.Connection
strCnn = "driver={SQL Server};server=srv;" & _
"uid=sa;pwd=;database=pubs"
cnn1.Open strCnn
Set rstSchema = cnn1.OpenSchema(adSchemaTables)
Do Until rstSchema.EOF
Debug.Print "Table name: " & _
rstSchema!TABLE_NAME & vbCr & _
"Table type: " & rstSchema!TABLE_TYPE & vbCr 
rstSchema.MoveNext Loop
rstSchema.Close
cnn1.Close

Answer 2

Private Sub Form_Load()Dim adoCN   As New ADODB.Connection                '定义数据库的连接存放数据和代码
Dim Rs   As New ADODB.Recordset
             
   str1 = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=pubs;User Id=sa;Password=sa;"
   adoCN.Open str1
    Rs.Open "select  name  from  sysobjects  where  xtype='u'", adoCN, adOpenDynamic, adLockOptimistic
     
   Do Until Rs.EOF
        Combo1.AddItem Rs.Fields("name")
        Rs.MoveNext
   Loop
   Rs.Close
     
   adoCN.CloseEnd Sub