none
Verificar existencia de uma tabela VB6 - DAO RRS feed

  • Pergunta

  • Estou trabalhando com VB6:

    Usando DAO

    Amigos, já consegui criar a nova tabela no BD, mas como eu verifico se elas já existe, para poder pular o processo de criação e inserir dados somente.

    Obrigado

    terça-feira, 15 de fevereiro de 2011 13:30

Respostas

  • @efrotao,

    Você pode fazer um For Each para verificar a existência da tabela:

    Dim Existe As Boolean
    Existe = False
    
    For Each Tabela In SeuObjetoDataBase.TableDefs
      If UCase(Tabela.Name) = UCase("SuaTabela") Then
        Existe = True
        Exit For
      End If
    Next
    
    If Not Existe Then
       'Aqui você cria
    End If
    

    []s.

    Alan Cossari.

    Twitter Facebook
    • Sugerido como Resposta Alan Cossari terça-feira, 15 de fevereiro de 2011 16:57
    • Marcado como Resposta Eder CostaModerator sexta-feira, 18 de fevereiro de 2011 14:19
    terça-feira, 15 de fevereiro de 2011 13:36
  • @efrotao,

    Você pode fazer um For Each para verificar a existência da tabela:

    Dim Existe As Boolean
    Existe = False
    
    For Each Tabela In SeuObjetoDataBase.TableDefs
     If UCase(Tabela.Name) = UCase("SuaTabela") Then
      Existe = True
      Exit For
     End If
    Next
    
    If Not Existe Then
      'Aqui você cria
    End If
    

    []s.

    Alan Cossari.

    Twitter Facebook

    Isso aí, Alan!

    Só não esquecer o Dim Tabela as TableDef, ou Dim Tabela as Object.

    Sds.,


    Daniel Ethur Porto Alegre/RS
    terça-feira, 15 de fevereiro de 2011 15:42

Todas as Respostas

  •  

    Estou trabalhando com VB6:

    Amigos, já consegui criar a nova tabela no BD, mas como eu verifico se elas já existe, para poder pular o processo de criação e inserir dados somente.

    Obrigado

    • Mesclado Eder CostaModerator sexta-feira, 18 de fevereiro de 2011 14:18 Trata-se de uma continuidade
    segunda-feira, 14 de fevereiro de 2011 20:05
  • Se fora SQL 2005, veja o link abaixo:

    http://social.msdn.microsoft.com/Forums/en/sqlgetstarted/thread/dc579d3c-9212-4d40-b85f-c52a22c30bd6

    Abraço

    Estevam


    **** Se a reposta foi útil, então não esqueça de marca-lá. ***
    segunda-feira, 14 de fevereiro de 2011 20:35
  • Obrigado pela resposta, Luiz Estevam.

    Desculpe-me. Acontece que eu deixei de informar que estou usando DAO. Pode me dar uma dica?

    terça-feira, 15 de fevereiro de 2011 11:35
  • @efrotao,

    Você pode fazer um For Each para verificar a existência da tabela:

    Dim Existe As Boolean
    Existe = False
    
    For Each Tabela In SeuObjetoDataBase.TableDefs
      If UCase(Tabela.Name) = UCase("SuaTabela") Then
        Existe = True
        Exit For
      End If
    Next
    
    If Not Existe Then
       'Aqui você cria
    End If
    

    []s.

    Alan Cossari.

    Twitter Facebook
    • Sugerido como Resposta Alan Cossari terça-feira, 15 de fevereiro de 2011 16:57
    • Marcado como Resposta Eder CostaModerator sexta-feira, 18 de fevereiro de 2011 14:19
    terça-feira, 15 de fevereiro de 2011 13:36
  • @efrotao,

    Você pode fazer um For Each para verificar a existência da tabela:

    Dim Existe As Boolean
    Existe = False
    
    For Each Tabela In SeuObjetoDataBase.TableDefs
     If UCase(Tabela.Name) = UCase("SuaTabela") Then
      Existe = True
      Exit For
     End If
    Next
    
    If Not Existe Then
      'Aqui você cria
    End If
    

    []s.

    Alan Cossari.

    Twitter Facebook

    Isso aí, Alan!

    Só não esquecer o Dim Tabela as TableDef, ou Dim Tabela as Object.

    Sds.,


    Daniel Ethur Porto Alegre/RS
    terça-feira, 15 de fevereiro de 2011 15:42
  • Valeu amigo!! Deu tudo certo.

    Muito !!obrigado

    terça-feira, 15 de fevereiro de 2011 16:39