Início![[Resolvido]Atualizar registro no Firebird Empty](https://2img.net/i/empty.gif)
NADIRONUNES 14/5/2015, 20:17alguem tem um codigo pra atualizar registro no firebird
2 participantes
[Resolvido]Atualizar registro no Firebird
NADIRONUNES- Super Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 578
Registrado : 30/08/2010
Alvaro Teixeira- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7995
Registrado : 15/03/2013
Ola, via ODBC
http://www.firebirdsql.org/en/report-odbc-201012/
Abraço
http://www.firebirdsql.org/en/report-odbc-201012/
Abraço
NADIRONUNES- Super Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 578
Registrado : 30/08/2010
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
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
Alvaro Teixeira- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7995
Registrado : 15/03/2013
Olá, não é minha especialidade.
Mas você esta abrir Read Only
rsu.Open "SELECT * FROM fornecedor", con, adOpenKeyset, adLockReadOnly
Abraço
Mas você esta abrir Read Only
rsu.Open "SELECT * FROM fornecedor", con, adOpenKeyset, adLockReadOnly
Abraço
NADIRONUNES- Super Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 578
Registrado : 30/08/2010
mas esse e pra adicionar o registro agora quero atulizar dados ja adicionados no firebird
Alvaro Teixeira- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7995
Registrado : 15/03/2013
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
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
NADIRONUNES- Super Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 578
Registrado : 30/08/2010
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 & "')"
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 & "')"
Alvaro Teixeira- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7995
Registrado : 15/03/2013
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
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
Alvaro Teixeira- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7995
Registrado : 15/03/2013
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
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
NADIRONUNES- Super Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 578
Registrado : 30/08/2010
obrigado a todos
Conteúdo patrocinado