Verificar existencia de uma tabela VB6 - DAO

Question

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

Answer 1

 

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

Answer 2

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á. ***

Answer 3

Obrigado pela resposta, Luiz Estevam.

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

Answer 4

@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.

Answer 5

@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.

Isso aí, Alan!

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

Sds.,

---

Daniel Ethur Porto Alegre/RS

Answer 6

Valeu amigo!! Deu tudo certo.

Muito !!obrigado