Instrução Sql

[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!

[Graymalkin]

Acredito eu que o correto seria algo como:

mês = "12"
DtaGerar.Database.Execute "UPDATE DetPrpMatMes SET MesAno = '" & mês & "' WHERE IsNull(MesAno)"

Abraços,

Graymalkin

[kuroi]

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??

[Graymalkin]

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

[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!