AJUDA URGENTE MYSQL
For i = 0 To Inicio.Grid1.Rows - 1
If Inicio.Grid1.TextMatrix(i, 0) <> [Ô]Comanda[Ô] Then
SQL = [Ô]INSERT INTO vendas (Documento,Tipo,NComanda,Codigo,Produto,[Ô]
SQL = SQL & [Ô]Valor,Quant,Total,Garcon,Grupo,VRCompra,FormaPG,TotalComanda,[Ô]
SQL = SQL & [Ô]Acress,Desc,ValRec,Data,Hora,Fecha,Usuario) VALUES ([Ô]
SQL = SQL & [Ô][ô][Ô] & NDocC & [Ô][ô],[Ô]
SQL = SQL & [Ô][ô][Ô] & TP & [Ô][ô],[Ô]
SQL = SQL & [Ô][ô][Ô] & Inicio.Grid1.TextMatrix(i, 0) & [Ô][ô],[Ô]
SQL = SQL & [Ô][ô][Ô] & Inicio.Grid1.TextMatrix(i, 1) & [Ô][ô],[Ô]
SQL = SQL & [Ô][ô][Ô] & Inicio.Grid1.TextMatrix(i, 2) & [Ô][ô],[Ô]
SQL = SQL & [Ô][ô][Ô] & MySqlCurrency(CCur(Inicio.Grid1.TextMatrix(i, 3)) * 100) & [Ô][ô],[Ô]
SQL = SQL & [Ô][ô][Ô] & MySqlCurrency(CCur(Inicio.Grid1.TextMatrix(i, 4)) * 100) & [Ô][ô],[Ô]
SQL = SQL & [Ô][ô][Ô] & MySqlCurrency(CCur(Inicio.Grid1.TextMatrix(i, 5)) * 100) & [Ô][ô],[Ô]
SQL = SQL & [Ô][ô][Ô] & Inicio.Grid1.TextMatrix(i, 6) & [Ô][ô],[Ô]
SQL = SQL & [Ô][ô][Ô] & Inicio.Grid1.TextMatrix(i, 7) & [Ô][ô],[Ô]
SQL = SQL & [Ô][ô][Ô] & MySqlCurrency(CCur(Inicio.Grid1.TextMatrix(i, 8)) * 100) & [Ô][ô],[Ô]
SQL = SQL & [Ô][ô][Ô] & Formas & [Ô][ô],[Ô]
SQL = SQL & [Ô][ô][Ô] & MySqlCurrency(CCur(Label1.Caption) * 100) & [Ô][ô],[Ô]
SQL = SQL & [Ô][ô][Ô] & MySqlCurrency(CCur(Acres#) * 100) & [Ô][ô],[Ô]
SQL = SQL & [Ô][ô][Ô] & [Ô]0[Ô] & [Ô][ô],[Ô]
SQL = SQL & [Ô][ô][Ô] & MySqlCurrency(CCur(Text1.Text) * 100) & [Ô][ô],[Ô]
SQL = SQL & [Ô][ô][Ô] & Format(Date, [Ô]yyyy-mm-dd[Ô]) & [Ô][ô],[Ô]
SQL = SQL & [Ô][ô][Ô] & Time & [Ô][ô],[Ô]
SQL = SQL & [Ô][ô][Ô] & NFecha & [Ô][ô],[Ô]
SQL = SQL & [Ô][ô][Ô] & Trim(NUsuario) & [Ô][ô])[Ô]
[ô]TB.Open SQL, DB, adOpenKeyset, adLockOptimistic
DB.Execute SQL
End If
Next i
Qual erro que esta retornando?
Acrescente a linha...
Debug.Print SQL
...antes da linha...
TB.Open SQL, DB, adOpenKeyset, adLockOptimistic
...e copie a QUERY que aparecer no IMMEDIATE WINDOW.
E claro, cole aqui pra nós!
PRONTO TECLA
[ô]Dinheiro, [ô],[ô]750[ô],[ô]0[ô],[ô]0[ô],[ô]750[ô],[ô]2010-03-20[ô],[ô]17:28:42[ô],[ô]1[ô],[ô]GILBERTO JOSE DA SILVA[ô])
Citação::
INSERT INTO vendas (Documento,Tipo,NComanda,Codigo,Produto,Valor,Quant,Total,Garcon,Grupo,VRCompra,FormaPG,TotalComanda,Acress,Desc,ValRec,Data,Hora,Fecha,Usuario) VALUES ([ô]000020[ô],[ô]F[ô],[ô]25[ô],[ô]3[ô],[ô]Cerveja Skol lata 350ml[ô],[ô]250[ô],[ô]300[ô],[ô]750[ô],[ô]Gilberto Jose da Silva[ô],[ô]Bebidas[ô],[ô]125[ô],[ô]Dinheiro, [ô],[ô]750[ô],[ô]0[ô],[ô]0[ô],[ô]750[ô],[ô]2010-03-20[ô],[ô]17:28:42[ô],[ô]1[ô],[ô]GILBERTO JOSE DA SILVA[ô])
PRONTO TECLA
Boa noite.
De uma olhada onede está em vermelho e negrito....
há uma virgula que não devira estar ali....
INSERT INTO vendas (Documento,Tipo,NComanda,Codigo,Produto,Valor,Quant,Total,Garcon,Grupo,VRCompra,FormaPG,TotalComanda,Acress,Desc,ValRec,Data,Hora,Fecha,Usuario) VALUES ([ô]000020[ô],[ô]F[ô],[ô]25[ô],[ô]3[ô],[ô]Cerveja Skol lata 350ml[ô],[ô]250[ô],[ô]300[ô],[ô]750[ô],[ô]Gilberto Jose da Silva[ô],[ô]Bebidas[ô],[ô]125[ô],[txt-color=#e80000][ô]Dinheiro, [ô][/txt-color],[ô]750[ô],[ô]0[ô],[ô]0[ô],[ô]750[ô],[ô]2010-03-20[ô],[ô]17:28:42[ô],[ô]1[ô],[ô]GILBERTO JOSE DA SILVA[ô])
Creio eu que esta virgula está em algum objeto que você usa para referenciar a forma de pagamento, pode ser um ComboBox, na minha opinião. De uma olhada ai e retire ela, ok??
Citação::
:
INSERT INTO vendas (Documento,Tipo,NComanda,Codigo,Produto,Valor,Quant,Total,Garcon,Grupo,VRCompra,FormaPG,TotalComanda,Acress,Desc,ValRec,Data,Hora,Fecha,Usuario) VALUES ([ô]000020[ô],[ô]F[ô],[ô]25[ô],[ô]3[ô],[ô]Cerveja Skol lata 350ml[ô],[ô]250[ô],[ô]300[ô],[ô]750[ô],[ô]Gilberto Jose da Silva[ô],[ô]Bebidas[ô],[ô]125[ô],[ô]Dinheiro, [ô],[ô]750[ô],[ô]0[ô],[ô]0[ô],[ô]750[ô],[ô]2010-03-20[ô],[ô]17:28:42[ô],[ô]1[ô],[ô]GILBERTO JOSE DA SILVA[ô])
PRONTO TECLA
Boa noite.
De uma olhada onede está em vermelho e negrito....
há uma virgula que não devira estar ali....
INSERT INTO vendas (Documento,Tipo,NComanda,Codigo,Produto,Valor,Quant,Total,Garcon,Grupo,VRCompra,FormaPG,TotalComanda,Acress,Desc,ValRec,Data,Hora,Fecha,Usuario) VALUES ([ô]000020[ô],[ô]F[ô],[ô]25[ô],[ô]3[ô],[ô]Cerveja Skol lata 350ml[ô],[ô]250[ô],[ô]300[ô],[ô]750[ô],[ô]Gilberto Jose da Silva[ô],[ô]Bebidas[ô],[ô]125[ô],[txt-color=#e80000][ô]Dinheiro, [ô][/txt-color],[ô]750[ô],[ô]0[ô],[ô]0[ô],[ô]750[ô],[ô]2010-03-20[ô],[ô]17:28:42[ô],[ô]1[ô],[ô]GILBERTO JOSE DA SILVA[ô])
Creio eu que esta virgula está em algum objeto que você usa para referenciar a forma de pagamento, pode ser um ComboBox, na minha opinião. De uma olhada ai e retire ela, ok??
tirei a virguma mais não adiantou nada ainda está dando o mesmo erro
na tabela tem um campo com o nome Desc eu mudei para Desconto.
ai parou de dar o erro.