Vb6 Com Sql

[Vraptor]

Boa Tarde pessoal

Sou novato no asssunto e meus neuronios estao fritando.

On Error goto Erro

'Criando a tabela

oCo.Execute ("Create Table Vendas (Codigo int primary key, CodCliente int(4) foreign key references Clientes(Codigo), CodLivro int(4) foreign key references Livros(Codigo), Quantidade int(10), preço money(20), DataVenda datetime(10))")

...

...

adicionando dados

oCo.Execute ("Insert Into Vendas (Codigo,CodCliente,CodLivro,preço,Quantidade,DataVenda) values (" + TxtCodigo.Text + ",'" + CStr(nCodCliente) + "','" + CStr(nCodLivro) + "','" + CCur(TxtPreco.Text) + "','" + TxtQuantidade.Text + "'," + TxtData.Text + ")")

MsgBox "Inserçao Efetuada !"

Erro:

oCo.RollbackTrans

MontarDescricaoDoErro

MsgBox sErro, vbExclamation, "Erro"

Quando confirmo p/ adicionar os dados, o VB emite a Menssagem de Erro 13

já fiz varias alteraçoes na linha em que adiciona os dados e a unica mudança que tive foi Erro 6.

alguém poderia me dar uma dica ??

Abraços...

[Graymalkin]

O erro 13 é de "tipo errado", ou seja, você está utilizando algum tipo no lugar de outro (ou tentanto fazer uma conversão errônea). Já o erro 6 é de overflow, ou seja, algum dos valores ultrapassa o limite do tipo (ou também pode ser uma conversão errônea). Separe cada um dos elementos que compõem a query e verifique se cada um deles é realmente o esperado (possivelmente em algum deles você obterá um dos erros acima e poderá verificar qual é o problema).

Abraços,

Graymalkin