Erro Na Consulta

[fredso82]

Estou tentando acessar uma tabela e está dando o seguinte erro: "Tipo de dados incompatível na expressão de critério". Eu estou trabalhando duas tabelas, Cliente e Televisao. Isso só acontece quando eu tento acessar a tabela Televisão. Alguém sabe porque isso acontece?

DataSet1.Clear()

OleDbDataAdapter1.SelectCommand.CommandText = "SELECT * from Televisao WHERE Codigo =" & codTv

OleDbDataAdapter1.Fill(DataSet1)

Dim horasJogadas As Double = Convert.ToDouble(DataSet1.Tables(0).Rows(0)(0))

horasJogadas += tempoTotal / 60

'atualiza tabela Televisao

OleDbDataAdapter1.UpdateCommand.CommandText = "UPDATE Televisao SET Horas_Jogadas = " & _

"'" & horasJogadas & "' , " & _

"ULtima_Locacao = '" & DateTime.Now.ToString & "'" & _

"Where Codigo ='" & codTv & "';"

OleDbDataAdapter1.UpdateCommand.ExecuteNonQuery()

[Graymalkin]

Assim como strings devem ser delimitadas por ' (aspas simples), valores de data também têm seu delimitador # (alguns chamam isso de "tralha", outros de "jogo-da-velha" e outros chamam de "number"). Outra maneira, que eu particularmente prefiro, é utilizando a função DateValue() *dentro* da SQL (essa função faz parte do mecanismo JET e aceita uma string como parâmetro).

Abraços,

Graymalkin

[fredso82]

Valeu cara, consegui aqui.