[VB6] Controllo esistenza tabella

[buburp]

Come faccio a controllare che una tabella è già presente in un database Access?
Io aggiro il problema creandola e verificando poi se viene originato un errore, ma suppongo che esista un metodo migliore.

[LMondi]

Con questa routine d'esempio, puoi verificare tutte le Tbl che compondono un DB. Estrai la parte che ti é utile:

Private Sub Command1_Click()
    Dim conn As ADODB.Connection
    Dim rsSchema As ADODB.Recordset
     
    Set conn = New Connection
    conn.Provider = "Microsoft.Jet.OLEDB.4.0"
    conn.Open App.Path & "\NomeTuoDB.mdb"

    Set rsSchema = conn.OpenSchema(adSchemaTables)
    
    List1.Clear
    
    Do While Not rsSchema.EOF
        List1.AddItem rsSchema("TABLE_TYPE") & "  :  " & rsSchema("TABLE_NAME")
        Debug.Print rsSchema("TABLE_TYPE") & "  :  " & rsSchema("TABLE_NAME")
        rsSchema.MoveNext
    Loop
        
    Set rsSchema = Nothing
    conn.Close
    Set conn = Nothing
End Sub

[tas]

Che libreria usi per accedere ai dati? ADO? DAO?

[buburp]

Uso ADO.
Spulciando la documentazione online ho visto che si può fare così:

Set DBScr = New ADOX.Catalog
DBScr.ActiveConnection = strAccess & "database.mdb"
For Each Tabella In DBScr.Tables
   If Tabella.Type = "TABLE" Then
      If Tabella.Name = "MiaTabella" Then Exit For
   End If
Next
Set DBScr = Nothing

ma mi chiedo se sia proprio necessario elencarle.

[tas]

No, dovrebbe essere possibile trovare la tabella in questo modo:

Dim t As Table
Set t = DBScr.Tables("NomeTabella")

Non ho potuto provare ma credo che se la tabella "NomeTabella" non esiste VB genera un errore, da intercettare opportunamente con un bel On Error Resume Next.
Ciao

[buburp]

Bravo, Tas!