ITEM NÃO ENCONTRADO NESTA COLE?ÃO ERRO:3265 NO VB6
Boa tarde pessoal!
Estou tentando um select em uma tabela até ai tudo ok
mas na tabela não existe algumas coluna que o sistema está chamando. (isso ocorre porque tive que criar novas colunas na tabela, mas quem ja instalou o sistema no computador esta com a tabela antiga).
Como posso fazer para ver na tabela se existe a especifica coluna ou não?
estou usando o VB6.
Procurei na internet e não achei nada especifico, estou recorrendo a você para ver se alguém pode me auxiliar.
Grato.
Estou tentando um select em uma tabela até ai tudo ok
mas na tabela não existe algumas coluna que o sistema está chamando. (isso ocorre porque tive que criar novas colunas na tabela, mas quem ja instalou o sistema no computador esta com a tabela antiga).
Como posso fazer para ver na tabela se existe a especifica coluna ou não?
estou usando o VB6.
Procurei na internet e não achei nada especifico, estou recorrendo a você para ver se alguém pode me auxiliar.
Grato.
qual ;é o banco de dados?
Banco de dados é o Access
Existe algumas dicas de como criar campos, tabelas atraves de codigo,
Neste caso basta aproveitar a rotina e usar um if
If campo não existe then Msgbox [Ô]Erro 3265[Ô]
pode até usa um Else e criar o campo ausente.
Neste caso basta aproveitar a rotina e usar um if
If campo não existe then Msgbox [Ô]Erro 3265[Ô]
pode até usa um Else e criar o campo ausente.
Bom Dia Marcelo Treze e Robson!
é Robson resolvi deste foma olha ai verifiquei com comando:
Ele faz um loop, caso não tiver a 1ª coluna quer dizer que não tem nenhuma das outras então o a variavel vVerificaCamp será igual a 3.
Ai fiz em outra tela comando If vVerificaCamp = 3 ele criará as outras colunas na tabela se for 2 criara apenas as 2 ultimas colunas se for 1 criará todas que estão faltando e caso cair no CampoExiste = True quer dizer que ja existe todas colunas e não será criado nada. Funcionou aqui!
Obrigado Galera, e para quem precisar de algo parecido ta ai a dica né!
é Robson resolvi deste foma olha ai verifiquei com comando:
Citação:For Each Campo In rs.Fields
If Campo.Name = [Ô]NomeDaColunaNoBanco[Ô] Then
vVerificaCamp = 1
ElseIf Campo.Name = [Ô]NomeDaColunaNoBanco2[Ô] Then
vVerificaCamp = 2
ElseIf Campo.Name = [Ô]NomeDaColunaNoBanco3[Ô] Then
vVerificaCamp = 3
ElseIf Campo.Name = [Ô]NomeDaColunaNoBanco4[Ô] Then
CampoExiste = True
End If
Next
Ele faz um loop, caso não tiver a 1ª coluna quer dizer que não tem nenhuma das outras então o a variavel vVerificaCamp será igual a 3.
Ai fiz em outra tela comando If vVerificaCamp = 3 ele criará as outras colunas na tabela se for 2 criara apenas as 2 ultimas colunas se for 1 criará todas que estão faltando e caso cair no CampoExiste = True quer dizer que ja existe todas colunas e não será criado nada. Funcionou aqui!
Obrigado Galera, e para quem precisar de algo parecido ta ai a dica né!
Tópico encerrado , respostas não são mais permitidas