Database - ADO - ODBC Leggere il contenuto di tabe

Dim rsSchema As Recordset
Set rsSchema = New Recordset

On Error GoTo GetDB_Err

' campi del recordset in sola lettura RsSchema

'Print rsSchema.Fields(0).Name

'TABLE_CATALOG

'Print rsSchema.Fields(1).Name

'TABLE_SCHEMA

'Print rsSchema.Fields(2).Name

'TABLE_NAME

'Print rsSchema.Fields(3).Name

'TABLE_TYPE

'Print rsSchema.Fields(4).Name

'TABLE_GUID

'Print rsSchema.Fields(5).Name

'Description

'Print rsSchema.Fields(6).Name

'TABLE_PROPID

'Print rsSchema.Fields(7).Name

'DATE_CREATED

'Print rsSchema.Fields(8).Name

'DATE_MODIFIED


' valori del primo recordset del Recordset RsSchema

'Print rsSchema.Fields(0)

'Null

'Print rsSchema.Fields(1)

'Null

'Print rsSchema.Fields(2)

'Celiachia Notizie

'Print rsSchema.Fields(3)

'View

'Print rsSchema.Fields(4)

'Null

'Print rsSchema.Fields(5)

'TIPO <> "C" ; CELIACHIA NOTIZIE =FALSO; INVIO POSTA = VERO

'Print rsSchema.Fields(6)

'Null

'Print rsSchema.Fields(7)

'21/06/1999 21.47.08

'Print rsSchema.Fields(8)

'27/03/2002 14.44.22



Set rsSchema = DbAzienda.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "VIEW"))

If rsSchema.RecordCount > 0 Then
ReDim MArray(rsSchema.RecordCount)
End If
Dim i As Long
i = 0

Do While Not rsSchema.EOF
List1.AddItem rsSchema.Fields(2)
If Not IsNull(rsSchema!Description) Then
MArray(i) = rsSchema!Description
Else
MArray(i) = " "
End If

rsSchema.MoveNext
Loop

Exit Sub
GetDB_Err:
If Err.Number = -2147467259 Then
MsgBox "Inserire un NomeServer valido.", vbOKOnly

End If