Dim con As New ADODB.Connection
Dim sql As String
con.ConnectionString = "DRIVER=Firebird/InterBase(r) driver;DBNAME=G:\SysNaN\DB\BD_DADSO.gdb;UID=SYSDBA;PWD=masterkey"
con.Open
con.Execute "INSERT INTO subos(Cod, codigo, Item, discriminacao, Quant, VlrUni, Idunidade, Ordem, Data," _
& " Cfop, Ncm, Tp, Dep, Vimp, desconto, Mar, VlrTot, VlrLiq) " _
& " VALUES(" & Forms!OrdemItens!N_ORIGINAL & ",'" & Forms!OrdemItens!CodigoS & "','" & Forms!OrdemItens!contp & "','" & StrConv(Forms!OrdemItens!Discriminação, 1) & "'," _
& " '" & Forms!OrdemItens!Quantidade & "','" & Replace(Forms!OrdemItens!Preço, ",", ".") & "','" & Forms!OrdemItens!Idunidade & "','" & Forms!OrdemItens!ORDEM & "','" & Format(Date, "yyyy/mm/dd") & "','" & Forms!OrdemItens!Cfop & "'," _
& " '" & Forms!OrdemItens!NCM & "','" & Forms!OrdemItens!TP & "','" & Forms!OrdemItens!DEP & "','" & Replace(Forms!OrdemItens!valorimp, ",", ".") & "','" & Replace(Forms!OrdemItens!vdescc, ",", ".") & "'," _
& " '" & Forms!OrdemItens!marg & "','" & Replace((Forms!OrdemItens!ValorT), ",", ".") & "'," _
& " '" & Replace(((Forms!OrdemItens!ValorT) - Forms!OrdemItens!vdescc), ",", ".") & "')"
to tentando usar esse codigo no banco de dados do firebird e ta dando esse erro
[ODBC Firebird Driver][Firebird]Dynamaic SQL erro
SQL error cod = - 206
Column unknown
COD
at line 1, column 19
alguem pode me ajudar
Dim sql As String
con.ConnectionString = "DRIVER=Firebird/InterBase(r) driver;DBNAME=G:\SysNaN\DB\BD_DADSO.gdb;UID=SYSDBA;PWD=masterkey"
con.Open
con.Execute "INSERT INTO subos(Cod, codigo, Item, discriminacao, Quant, VlrUni, Idunidade, Ordem, Data," _
& " Cfop, Ncm, Tp, Dep, Vimp, desconto, Mar, VlrTot, VlrLiq) " _
& " VALUES(" & Forms!OrdemItens!N_ORIGINAL & ",'" & Forms!OrdemItens!CodigoS & "','" & Forms!OrdemItens!contp & "','" & StrConv(Forms!OrdemItens!Discriminação, 1) & "'," _
& " '" & Forms!OrdemItens!Quantidade & "','" & Replace(Forms!OrdemItens!Preço, ",", ".") & "','" & Forms!OrdemItens!Idunidade & "','" & Forms!OrdemItens!ORDEM & "','" & Format(Date, "yyyy/mm/dd") & "','" & Forms!OrdemItens!Cfop & "'," _
& " '" & Forms!OrdemItens!NCM & "','" & Forms!OrdemItens!TP & "','" & Forms!OrdemItens!DEP & "','" & Replace(Forms!OrdemItens!valorimp, ",", ".") & "','" & Replace(Forms!OrdemItens!vdescc, ",", ".") & "'," _
& " '" & Forms!OrdemItens!marg & "','" & Replace((Forms!OrdemItens!ValorT), ",", ".") & "'," _
& " '" & Replace(((Forms!OrdemItens!ValorT) - Forms!OrdemItens!vdescc), ",", ".") & "')"
to tentando usar esse codigo no banco de dados do firebird e ta dando esse erro
[ODBC Firebird Driver][Firebird]Dynamaic SQL erro
SQL error cod = - 206
Column unknown
COD
at line 1, column 19
alguem pode me ajudar