PROBLEMA AO EDITAR REGISTO.
Olá galera.!
Estou fazendo um programinha bem simples para uso próprio, acontece que já tinha tudo prontinho quando me deparei com este erro ao editar dados que é mostrado na imagem, muito estranhamente anteriormente fazia a edição de dados sem problema, agora já não está funcionando!
As instrucções estão em SQL .
Deixo também aqui o código fonte.
Grato desde já pelo vossa atenção.
Até+
Programadorvb6
Imagem do Erro :
Desculpa pergunta, sei que a minha pergunta pode ser meio tosca para o seu nivel em vb6, mas vc ja depurou o codido?
Já compilei o código e não me dá erro, só quando tento editar é que me aparece este erro que aparece na imagem.
VERIFICA ESSSA LINHA AQUI, EU TROQUEI E NÃO APARECEU MAIS O ERRO EU ACHO QUE VC TINHA TROCADO ( ChaveY POR ChaveX) TENTA AI
ou vc não declarou ChaveX
ou vc não declarou ChaveX
Conexao.AbrirRs [Ô]Select Chave From Ficha Where Chave=[ô][Ô] & ChaveY & [Ô][ô][Ô]Conexao.AbrirRs [Ô]Select Chave From Ficha Where Chave=[ô][Ô] & ChaveX & [Ô][ô][Ô]
Olha eu tentei mas o erro preciste.
Pode ter a gentileza de me enviar o ficheiro zip, já modificado ?
Um abraço.
Pode ter a gentileza de me enviar o ficheiro zip, já modificado ?
Um abraço.
Esta deveria ser a tua sql:
Sql = [Ô]UPDATE Ficha Set [Ô]
Sql = Sql & [Ô]Nome=[ô][Ô] & NomeX.Text
Sql = Sql & [Ô][ô],Empresa=[ô][Ô] & EmpresaX.Text
Sql = Sql & [Ô][ô],Ext=[ô][Ô] & ExtX.Text
Sql = Sql & [Ô][ô],Piso=[ô][Ô] & PisoX.Text
Sql = Sql & [Ô][ô],Assistente=[ô][Ô] & SecretariaX.Text
Sql = Sql & [Ô][ô],AExt=[ô][Ô] & Atx.Text
Sql = Sql & [Ô][ô],Foto=[ô][Ô] & FotoX.Text
Sql = Sql & [Ô][ô],Chave=[ô][Ô] & ChaveX.Text
Sql = Sql & [Ô][ô]Where chave=[ô][Ô] & ChaveX.Text & [Ô][ô][Ô]
. . .
Tava pedindo campo Extensão e no banco tem só Ext
outra coina na penultima linha tava ChaveY e passei pra Chave X.Text
Blz . . .
Tópico encerrado , respostas não são mais permitidas