怎么才能知道连接好的数据库中的表有几长？

Question

有一问题不懂，请问该怎么处理啊 ？我用的是vb6
怎么才能知道连接好的数据库中的表有几长啊？还有怎样才能取得他们的表的名字？能给个具体的小程序吗？在线等，谢谢！

Answer 1

Private Sub Command1_Click()
    Dim intIndex                        As Integer
    Dim objCon                          As ADODB.Connection
    Dim objRst                          As ADODB.Recordset
      
    ' 產生一個新Connection物件，並設定objCon作為存取的物件變數。
    Set objCon = New ADODB.Connection
    
    ' 使用Open方法連接，並設定相關參數。
    objCon.Open gstrConn_NWind
    
    ' 找出資料表名稱。
    Set objRst = objCon.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "Table"))
    
    ' 列舉名稱、型態、修改日期資料。
    If objRst.RecordCount <> 0 Then
        intIndex = 1
        Do Until objRst.EOF
            lvw1.ListItems.Add intIndex, , objRst.Fields("TABLE_NAME")
            lvw1.ListItems(intIndex).SubItems(1) = objRst.Fields("TABLE_TYPE")
            lvw1.ListItems(intIndex).SubItems(2) = Format(objRst.Fields("DATE_MODIFIED"), "yyyy/mm/dd")
            intIndex = intIndex + 1
            objRst.MoveNext
        Loop
    End If
    
    objRst.Close
    objCon.Close
    Set objRst = Nothing
    Set objCon = Nothing
End Sub

Answer 2

''获得字段类型
Private Sub Command14_Click()
Dim i As Long, ii As Long
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
db.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & "data source=" & App.Path & "\dev.mdb"
db.Open
rs.Open "select * from S2", db
ii = rs.Fields.Count
For i = 0 To ii - 1
    Debug.Print rs.Fields(i).Type  '类型
Next i
End Sub

Answer 3

如果想简单的一点的话，你可以使用adox。

Answer 4

利用ADO中的.Fields属性可以得到

Answer 5

除了fileds属性，还可以看看Properties属性