Ir para conteúdo
Fórum Script Brasil
  • 0

Instrução Sql


Guest adriano campos

Pergunta

Guest adriano campos

Olá pessoal, fiz uma consulta de atualização em access:

UPDATE DetPrpMatMes SET DetPrpMatMes.MesAno = "mês"

WHERE (((DetPrpMatMes.MesAno) Is Null));

A qual funciona perfeitamente no access!

Ele verifica os campos null e preenche com a palavra mês!

porem eu preciso passa-la para o VB 6.0

E escrevi o seguinte codigo!

Public atualiza As QueryDef

atualiza.Execute "UPDATE DetPrpMatMes SET MesAno = '" & "mês" & "' WHERE MesAno = Is Null"

DtaGerar.Refresh

Só que não aceita! da este erro:

Run timer Error '91'

Object variableor with block variable not ser

Acho que estou escrevendo o codigo para chamar errado!

E chamar a propria consulta do access da certo porem depois eu não consigo alterar a palavra mês, a qual vai variar de acordo com o mês em que o cliente se encontra!

Se puderem me ajudar agradeço!

Abraços!

Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0

Acredito eu que o correto seria algo como:

mês = "12"
DtaGerar.Database.Execute "UPDATE DetPrpMatMes SET MesAno = '" & mês & "' WHERE IsNull(MesAno)"[/code] Abraços, Graymalkin pela descricao do erro parece que o problema é otro. tipo alguma variavel não foi inicializada. talvez ele tivesse que fazer:
[code]Set atualiza = New QueryDef

alem de ele deveria passar a qual conexao a QueryDef tem que estar associada, não??

Link para o comentário
Compartilhar em outros sites

  • 0

pela descricao do erro parece que o problema é otro. tipo alguma variavel não foi inicializada.

talvez ele tivesse que fazer:

Set atualiza = New QueryDef

alem de ele deveria passar a qual conexao a QueryDef tem que estar associada, não??

Exatamente, e foi por isso que eu usei "DtaGerar.Database.Execute".

Abraços,

Graymalkin

Link para o comentário
Compartilhar em outros sites

  • 0
Guest Brigadão mesmo!

Tarde pessoal, seguinte desde já agradeço a atenção dos parceiro do codigo!

Foi o seguinte o erro não erá de variavel, o erro erá da escrita, o vb não tava conseguindo verificar o que tava escrito!

Eu consigo da seguinte forma!

Set atualiza = Workspaces(0).OpenDatabase(App.Path & "\DADOS.MDB")

atualiza.Execute "UPDATE DetPrpMatMes SET MesAno = '" & TxtVerMes.Text & "' WHERE (((DetPrpMatMes.MesAno) Is Null))"

DtaGerar.Refresh

Dai funcionou perfeitinho!

Desde já agradeço aos brothers Graymalkin e kuroi que deram uma atenção especial ai pro caso!

Valeu mesmo!

Abraços!

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...