[vb6] recuperare proprietà di campi con ADOX

[Marcorgan]

Visto che nell'altro modo mi sono piantato, ho provato a recuperare le informazioni sui campi attraverso ADOX, così facendo..

Public Sub TableProperties(TableName As String)
    Dim oCat As New ADOX.Catalog
    Dim oTable As ADOX.Table
    Dim oColumn As ADOX.Column
    Dim oProp As ADOX.property
    oCat.ActiveConnection = "Driver={MySQL ODBC 3.51 Driver};server=server;uid=root;pwd=;database=" & mydb
    For Each oTable In oCat.Tables
        If oTable.Type = "TABLE" Then
            If UCase(oTable.Name) = UCase(TableName) Then
                For Each oColumn In oTable.Columns
                    MsgBox "Column: " & oColumn.Name
                    For Each oProp In oColumn.Properties 
                        MsgBox "Property:  " & oProp.Name & ",  Value: " & oProp.Value
                    Next
                Next
            End If
        End If
    Next
    Set oProp = Nothing
    Set oColumn = Nothing
    Set oTable = Nothing
    Set oCat = Nothing
End Sub

ho notato però che nel terzo ciclo for (quello in rosso) il programma non ci entra e con altre provate ho visto che oColumn.Properties.Count restituisce 0 per tutti i campi. Perchè ?

Dove ho sbagliato ?

grazie mille di nuovo
Marco

[Marcorgan]

in pratica ora non riesco a ricavare la proprietà AutoIncrement di un campo di una tabella di un db Mysql.

Qualcuno mi sa aiutare ?

[kalosjo]

apri un recordset con questa query:

strq="describe nometabella"
rs.open strq, conn

rs("extra") se restituisce "auto_increment" allora è auto incrementante

Il recordset restituisce questi campi:

field --> è il nome del campo
type --> è il tipo
null --> o vuoto o 'YES'
key --> tipo di chiave
default --> valore di default (null se non impostato)
extra --> altre informazioni

[Marcorgan]

grazie mille! funziona

ma prima che c'era che non andava ?