[Resolvido]Atualizar registro no Firebird

alguem tem um codigo pra atualizar registro no firebird

Ola, via ODBC
http://www.firebirdsql.org/en/report-odbc-201012/
Abraço

com esse codigo eu consigo adicionar os registro, mas nao to conseguindo atulizar registro ja salvo no banco firebird

Sub Cfirebird()
Dim con As ADODB.Connection
Dim strSQL As String
Set con = New ADODB.Connection

'Objeto utilizado para se comunicar com a tabela Produto
Dim rsu, rst As ADODB.Recordset
Set rsu = New ADODB.Recordset
Set rst = New ADODB.Recordset
con.Open "DRIVER=Firebird/InterBase(r) driver;DBNAME=G:\SysNaN\DB\BD_DADSO.gdb;UID=SYSDBA;PWD=masterkey"
'rs.Find strSQL, 0, adSearchForward, 1
rsu.Open "SELECT * FROM fornecedor", con, adOpenKeyset, adLockReadOnly
con.Execute "INSERT INTO FORNECEDOR(cod,nome,fone,cnpj,insc,endereco,bairro,complemento," _
& " numero,cep,cidade,UF,IBGE,EMAIL) Values (" & Forms!FORNECEDOR!CODIGO & ",'" & TiraSinal(RemoveAcento(Trim(StrConv(Forms!FORNECEDOR!FORNECEDOR, vbUpperCase)))) & "'," _
& "'" & Forms!FORNECEDOR!FONE & "','" & TiraSinal(RemoveAcento(Trim(Forms!FORNECEDOR!CNPJ))) & "','" & TiraSinal(RemoveAcento(Trim(Forms!FORNECEDOR!INSC))) & "','" & TiraSinal(RemoveAcento(Trim(StrConv(Forms!FORNECEDOR!ENDERECO, vbUpperCase)))) & "'," _
& "'" & TiraSinal(RemoveAcento(Trim(StrConv(Forms!FORNECEDOR!BAIRRO, vbUpperCase)))) & "'," _
& "'" & TiraSinal(RemoveAcento(Trim(StrConv(Forms!FORNECEDOR!complemento, vbUpperCase)))) & "','" & Forms!FORNECEDOR!numero & "'," _
& "'" & TiraSinal(RemoveAcento(Trim(Forms!FORNECEDOR!CEP))) & "','" & TiraSinal(RemoveAcento(Trim(StrConv(Forms!FORNECEDOR!CIDADE, vbUpperCase)))) & "'," _
& "'" & StrConv(Forms!FORNECEDOR!UF, vbUpperCase) & "','" & Forms!FORNECEDOR!IBGE & "','" & Forms!FORNECEDOR!Email_Cli & "')"
rsu.Close
Set rs = Nothing
End Sub

Olá, não é minha especialidade.
Mas você esta abrir Read Only

rsu.Open "SELECT * FROM fornecedor", con, adOpenKeyset, adLockReadOnly

Abraço

mas esse e pra adicionar o registro agora quero atulizar dados ja adicionados no firebird

Olá, como já referi não é minha especialidade.

Veja se este exemplo apesar de ser em VB ajuda:
http://www.macoratti.net/vb_fireb.htm (ver em: Editando dados no Firebird com o VB)

Caso não consiga, deixe retorno a ver se outro colega pode ajudar.
Abraço

Deu certo agora mas preciso colocar mas dados pra atualizar, consegui so um

sql = "update FORNECEDOR set nome='" & Forms!FORNECEDOR!FORNECEDOR & "'" & " Where cod='" & Forms!FORNECEDOR!CODIGO & "'"

agora preciso colocar junto a esse codigo acima os seguintes

fone,cnpj,insc,endereco,bairro,complemento numero,cep,cidade,UF,IBGE,EMAIL

que estao no codigo abaixo que uso pra adicionar

con.Execute "INSERT INTO FORNECEDOR(cod,nome,fone,cnpj,insc,endereco,bairro,complemento," _
& " numero,cep,cidade,UF,IBGE,EMAIL) Values (" & Forms!FORNECEDOR!CODIGO & ",'" & TiraSinal(RemoveAcento(Trim(StrConv(Forms!FORNECEDOR!FORNECEDOR, vbUpperCase)))) & "'," _
& "'" & Forms!FORNECEDOR!FONE & "','" & TiraSinal(RemoveAcento(Trim(Forms!FORNECEDOR!CNPJ))) & "','" & TiraSinal(RemoveAcento(Trim(Forms!FORNECEDOR!INSC))) & "','" & TiraSinal(RemoveAcento(Trim(StrConv(Forms!FORNECEDOR!ENDERECO, vbUpperCase)))) & "'," _
& "'" & TiraSinal(RemoveAcento(Trim(StrConv(Forms!FORNECEDOR!BAIRRO, vbUpperCase)))) & "'," _
& "'" & TiraSinal(RemoveAcento(Trim(StrConv(Forms!FORNECEDOR!complemento, vbUpperCase)))) & "','" & Forms!FORNECEDOR!numero & "'," _
& "'" & TiraSinal(RemoveAcento(Trim(Forms!FORNECEDOR!CEP))) & "','" & TiraSinal(RemoveAcento(Trim(StrConv(Forms!FORNECEDOR!CIDADE, vbUpperCase)))) & "'," _
& "'" & StrConv(Forms!FORNECEDOR!UF, vbUpperCase) & "','" & Forms!FORNECEDOR!IBGE & "','" & Forms!FORNECEDOR!Email_Cli & "')"

Olá, verifique bem a sua consulta.
Tente criar uma consulta apenas SELECT para ver se os dados estão todos ok, se está algum campo vazio que seja necessário.
Se estiver tudo ok, pode efectuar uma consulta INSERT com a origem consulta criada.
Verifique também se não é o tipo de dados (string, numeric,...)
Abraço

Olá NADIRONUNES,
Comos está a situação, se está resolvido não se esqueça de dar o tópico como resolvido, veja link abaixo:
https://www.maximoaccess.com/t860-resolucao-de-topicos
Abraço

obrigado a todos