Problemas com manipulacao de Classes

[sr.silva 1]

Ola Pessoal,

 

Estou criando um cadastro utilizando classes.

Public Function Salvar()		Set RS = Server.CreateObject("ADODB.RecordSet")		sql = "select * from timovelobra where "		if V_IdImovelObra <> "" then			sql = sql & " idimovelobra = " & V_IdImovelObra			RS.open SQL, Conn, 1, 3		else			sql = sql & " 1=1"			RS.open SQL, Conn, 1, 3			RS.Addnew		end if			RS("IdImovel") 	 	 		   = V_IdImovel				   		RS("Escavacao") 	 		   = V_Escavacao   			   				RS.update			Editar(RS("idimovelobra"))				RS.close		set RS = nothing				Salvar = true	End Function

O que acontece e o seguinte?

 

Nessa tabela tenho a chave primaria ( idimovel ) e a estrangeira ( idimovelobra ). Ate o momento tudo ok?

 

O grande problema esta quando o usuario tentar cadastrar o campo (escavacao) como nulo.

 

O que sera que esta errado!!

 

Segue o erro :

 

Provider erro '80020005'Tipo não correspondente./classes/imovel_obra.asp, line 210

Setando a variavel - idmovelobra

 

Public Property Get idimovelobra()	  idimovelobra = V_idimovelobra  end Property  Public Property Let idimovelobra(aux)	V_idimovelobra = aux  end Property

[jrcardozo 4]

já verificou se o campo escavacao está para aceitar null no banco de dados?

 

//EDITADO

 

essa Function está sendo chamada numa Class?

 

não poderia ser pois você não está passando o parametro para a variavel tendo que fazer assim

 

Public Function Salvar(V_Escavacao)

[sr.silva 1]

Sim. Verifiquei com o pessoal aqui , e me disseram que eu tenho que verificar o valor do campo.ou seja, fazer o velho " IF...THEN "Mais, mesmo assim, acho que nao preciso.

[jrcardozo 4]

então vá para o velho IF pois no db deve estar como not null

if len(trim(V_Escavacao))>0 or isnull(V_Escavacao)=false or V_Escavacao<>"" or V_Escavacao<>empty then RS("Escavacao")				 = V_Escavacao end if

[sr.silva 1]

e....nao funcionou!!!! assim

 

mais assim funcionou...

 

if  not isnull(V_Escavacao) and V_Escavacao <> "" then

Mais uma vez, valeu jonathan!!! ;)

[jrcardozo 4]

não seria OR no lugar de AND

if  not isnull(V_Escavacao) OR V_Escavacao <> "" then

ao menos funcionou, acho que não aceitou o isnull(var)=false e sim not isnull(var) o correto