Jump to content
Fórum Script Brasil
  • 0

Instrução Sql


Guest adriano campos
 Share

Question

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 to comment
Share on other sites

4 answers to this question

Recommended Posts

  • 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 to comment
Share on other 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 to comment
Share on other 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 to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      151k
    • Total Posts
      649.1k
×
×
  • Create New...