Erro Linha .execute "update Do Comando Sql.

[patrickcassol]

alguém pode me ajudar com esse erro nesta linha do comando .Execute

Quando eu clico no botao salvar que seria o comando update:

Cn.Execute "update Produtos set NomedoProduto = '" & Text(1) & "', NíveldeEstoque = '" & Text(2) & "', UnidadesemEstoque = '" & Text(3) & "', PreçoUnitario = '" & Text(4) & "', DescriçaodoProduto = '" & Text(5).Text & "' where codigo = '" & chave & "'"

erro = tipos de dados imcompativeis na expreessao do criterio.

agradeço a atenção !!

[patrickcassol]

Alguém pode me ajudar com esse erro nesta linha do comando .Execute

Quando eu clico no botao salvar que seria o comando update:

Cn.Execute "update Produtos set NomedoProduto = '" & Text(1) & "', NíveldeEstoque = '" & Text(2) & "', UnidadesemEstoque = '" & Text(3) & "', PreçoUnitario = '" & Text(4) & "', DescriçaodoProduto = '" & Text(5).Text & "' where codigo = '" & chave & "'"

erro = tipos de dados imcompativeis na expreessao do criterio.

agradeço a atenção !!

[Graymalkin]

Você colocou aspas simples para todos os campos... seriam todos eles do tipo texto? Porque se o campo for numérico você não precisa de aspas.

Abraços,

Graymalkin

PS: Movendo para o local correto (Visual Basic).

[patrickcassol]

São todos do tipo texto.

[Graymalkin]

Até mesmo o código, preço unitário e nível de estoque?

Graymalkin

[patrickcassol]

Sim amigo .. obrigado pela atenção . .todos estao como texto no banco de dados ... não consigo arrumar o erro .. me ajude ..

talvez seja a acentuação no níveldeestoque ? mesmo assim não deu certo : (

Editado Março 20, 2007 por patrickcassol

[Graymalkin]

Sim amigo .. obrigado pela atenção . .todos estao como texto no banco de dados ... não consigo arrumar o erro .. me ajude ..

Então não consigo imaginar o que está errado... esse erro só ocorre quando você se atribuir ou comparar diferentes tipos de dados. Faça o seguinte, guarde a SQL em uma string e mostre-a na tela (ou melhor ainda na janela de depuração):

s = "update Produtos set NomedoProduto = '" & Text(1) & "', NíveldeEstoque = '" & Text(2) & "', UnidadesemEstoque = '" & Text(3) & "', PreçoUnitario = '" & Text(4) & "', DescriçaodoProduto = '" & Text(5).Text & "' where codigo = '" & chave & "'"

Debug.Print s

Copie o que está nesta janela e cole aqui para eu dar uma olhada. Além disso, faça também o seguinte:

set rs = Cn.Execute("SELECT * FROM Produtos")

for each f in rs.fields
    debug.print f.Name, f.Type
next f

Novamente copie o que está na janela de depuração e cole aqui no post para eu ver.

Abraços,

Graymalkin

[patrickcassol]

Achei o problema ..

estava no where codigo = " & chave &"

tinha que ser em aspas sómente ..

vlw abraço !

[Graymalkin]

Achei o problema ..

estava no where codigo = " & chave &"

tinha que ser em aspas sómente ..

vlw abraço !

Então esse daí *não* é texto... <_<

Abraços,

Graymalkin