Euclides Filizola

Bom dia a todos. Eu sou novo em vba e então gostaria que alguém pudesse me ajudar. Eu estou tentando fazer uma coisa "simples". É o seguinte: eu possuo um formulário que liga a uma tabela no proprio access. O que acontece é que, eu tenho um botão salvar, que ao clicar nele, salva as informações que foram dadas no formulario, em uma tabela dentro do proprio arquivo chamada 'cadastro'. O que eu queria fazer era simples, no evento clicar, ou seja, quando ele fosse salvar o que tinha no formulario, antes de salvar, ele pegar o campo chamado "ERRO" e adicionar uma string. por exemplo " OK + String" e fizesse um update no campo erro da tabela cadastro. Eu andei pesquisando na internet, vi um pessoal utilizando resultsets e dao, mas eu não consegui fazer . andei pesquisando na internet e me passaram algumas sintaxes e comandos. então me passaram essa seguinte dica: Private Sub SeucmdSalvar_Click() DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE SuaTabelaCadrastro Set [SuaTabelaCadrastro].[SeuCampoERRO] = " & Me.SeuCampoERRO_noForm & " WHERE [SuaTabelaCadrastro].[CampoChavePrimaria] = " & Me.CampoChavePrimaria_noForm & "" DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 DoCmd.SetWarnings True End Sub então eu tentei fazer no meu dessa forma: Private Sub Comando782_Click() DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE FRENTE Set [FRENTE].[ERRO] = " & Me.Error_noForm & " WHERE [FRENTE].[CHAVE] = " & Me.CHAVE_noForm & "" DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 DoCmd.SetWarnings True On Error GoTo Err_Comando782_Click DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 Exit_Comando782_Click: Exit Sub Err_Comando782_Click: MsgBox Err.Description Resume Exit_Comando782_Click End Sub mas ae da erro... e então eu tentei mudar um pouco o código desta forma: Private Sub Comando782_Click() Dim CampoErro As String Set CampoErro = Me.Error.Value DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE FRENTE Set [FRENTE].[ERRO] = " & CampoErro & " WHERE [FRENTE].[CHAVE] = " & Me.Chave & "" DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 DoCmd.SetWarnings True On Error GoTo Err_Comando782_Click DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 Exit_Comando782_Click: Exit Sub Err_Comando782_Click: MsgBox Err.Description Resume Exit_Comando782_Click End Sub mas da erro também ... :( tentem me entender: eu já tenho um formulario pronto, com uma tabela pronta. o que eu quero fazer é muito simples, no evento do botão salvar, além de ele fazer o normal que é "salvar", ele vá até o campo ERRO e adicione uma string fixa qualquer. porque eu preciso saber se a pessoa alterou os dados. Da para me entendeR? Eu agradeço a todos que tentarem me ajudar. abraços.

pessoal. resolvi o problema. aqui está o código que eu alterei, ou seja, o problema foi resolvido. public void adicionarDados(ArrayList<String> nomes, Connection conn) { String query; ResultSet rs = null; try { conn = ConexaoPostgreSQL.getConexao(); query = "INSERT INTO sppweb.produtor(nome_produtor,cpf) VALUES(?,?)"; PreparedStatement stmt = conn.prepareStatement(query); for (int i = 0; i < nomes.size(); i++) { stmt.setString(1, nomes.get(i)); stmt.executeUpdate(); } stmt.close(); conn.close(); } catch (SQLException sqlex) { sqlex.printStackTrace(); } grato pela atenção de vocês. !

Boa tarde pessoal, gostaria que alguém pudesse me ajudar se for possível. Eu tenho o seguinte método: public void adicionarDados(ArrayList<String> nomes, Connection conn) { String query; ResultSet rs = null; try { conn = ConexaoPostgreSQL.getConexao(); query = "INSERT INTO sppweb.produtor(nome_produtor) VALUES(?)"; PreparedStatement stmt = conn.prepareStatement(query); for (int i = 0; i < nomes.size(); i++) { stmt.setString(1, nomes.get(i)); rs = stmt.executeQuery(); while(rs.next()){ rs.getString(1); } } stmt.close(); rs.close(); conn.close(); } catch (SQLException sqlex) { sqlex.printStackTrace(); } } e recebo a seguinte exceção: org.postgresql.util.PSQLException: Nenhum resultado foi retornado pela consulta. dados inseridos com sucesso at org.postgresql.jdbc2.AbstractJdbc2Statement.executeQuery(AbstractJdbc2Statement.java:255) at br.gov.adagri.ConexaoPostgreSQL.adicionarDados(ConexaoPostgreSQL.java:78) at br.gov.adagri.ComparacaoDB.main(ComparacaoDB.java:26) alguém poderia me ajudar ? grato.