Usuário com melhor resposta
Verificar existencia de uma tabela VB6 - DAO

Pergunta
-
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.
- 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
-
@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- Marcado como Resposta Eder CostaModerator sexta-feira, 18 de fevereiro de 2011 14:19
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
-
-
-
@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.
- 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
-
@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- Marcado como Resposta Eder CostaModerator sexta-feira, 18 de fevereiro de 2011 14:19
-