[VB6] Verificare se esiste una tabella in un db

[scarob]

Come faccio a verificare se in un db access esiste una certa tabella di nome ad esempio tab1?

[Joe Taras]

Originariamente inviato da scarob
Come faccio a verificare se in un db access esiste una certa tabella di nome ad esempio tab1?

Se provi a eseguire una query sql if exists (select * from tab1)
con sql server potevi interrogare la tabella sysobjects

[avatar]

Originariamente inviato da scarob
Come faccio a verificare se in un db access esiste una certa tabella di nome ad esempio tab1?

Public Function TblExist(ByVal TblName As String, _
                        Optional ClmName As String = vbNullString) 
'Status of connection'
  If m_FlgConnected = True Then

    Set hRs = m_Connection.OpenSchema(adSchemaTables)
  
'Table exist?'
    hRs.MoveFirst
    Do While Not hRs.EOF
      For i = 0 To hRs.Fields.Count - 1
        If hRs.Fields(i).Name = "TABLE_NAME" Then
          If hRs.Fields(i).Value = TblName Then Flag = True: Exit Do
        End If
      Next
      If Flag = True Then Exit Do
      hRs.MoveNext
    Loop
  End If
  If Flag = False Then GoTo TABLE_NO_FOUND
  Set hRs = Nothing
'Column exist?'
  If Flag = True And ClmName <> vbNullString Then
    Flag = False
    If m_SqlQuery("SELECT top 1 TblClient.* FROM " & TblName) Then
      For i = 0 To m_RecordSet.Fields.Count - 1
        If m_RecordSet.Fields(i).Name = ClmName Then Flag = True: Exit For
      Next
    End If
  End If
  If Flag = False Then GoTo COLUMN_NO_FOUND 

per darti l'idea di come potresti fare

[scarob]

Speravo in qulcosa di più immediato... altre idee?

[Brainjar]

' Nel progetto importi  'ADO Ext 2.X for DDL & Securety'

...... 
Public cn As ADODB.Connection
Public ct As ADOx.Catalog
......

' Da qualche parte hai aperto la connessione al DB   cn
Set ct = New ADOx.Catalog
ct.ActiveConnection = cn

On Error Resume Next '<----- Questa è obbligatoria per il trap dell'errore 
                       
If IsNull(ct.Tables("NomeDellaTabellaCheCerchi")) Then 
    ' Fai quello che devi fare se non c'è
    MsgBox "not found"
End If

' Rimetti la tua gestion degli errori 
On Error ...

Ciao,

[avatar]

Originariamente inviato da scarob
Speravo in qulcosa di più immediato... altre idee?

+ immediato di una decina di righe di codice? :master:
o di una funzione da chimare? :master::master:

[Brainjar]

Pensare che gli avevi anche detto :

per darti l'idea di come potresti fare

Ciao

[avatar]

[scarob]

scusate.. non volevo offendere nessuno dicendo:

speravo in qualcosa di più immediato.

Mi chiedevo solo se non esistesse una funzione che risolvesse il problema.

Grazie a tutti lo stesso, e scusate ancora.

[avatar]

Originariamente inviato da scarob
scusate.. non volevo offendere nessuno dicendo:

speravo in qualcosa di più immediato.

Mi chiedevo solo se non esistesse una funzione che risolvesse il problema.

Grazie a tutti lo stesso, e scusate ancora.

Purtroppo devi fartela tu una funzione di controllo.