UPDATE VBA - ERROS
Bom dia pessoal.
Tenho um Grande problema.
Estou precisando alterar diversos dados de meu banco access, em um processo de [Ô]Edição[Ô] onde chamo os dados em text box por uma pesquisa para visualizar e alterar o que for preciso, em seguida salvar novamente para substituir.
está dando bastante problemas para tal atividade. tentei usando:
DoCmd.RunSQL
con.execute
e NADA!
Acredito que estou abrindo o banco de uma forma errada: Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:...
Ou abrindo a sub com as DIMS erradas ......Me ajudem por favor.
Tenho um Grande problema.
Estou precisando alterar diversos dados de meu banco access, em um processo de [Ô]Edição[Ô] onde chamo os dados em text box por uma pesquisa para visualizar e alterar o que for preciso, em seguida salvar novamente para substituir.
está dando bastante problemas para tal atividade. tentei usando:
DoCmd.RunSQL
con.execute
e NADA!
Acredito que estou abrindo o banco de uma forma errada: Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:...
Ou abrindo a sub com as DIMS erradas ......Me ajudem por favor.
colega posta seu código e se estiver dando erro posta qual o erro, e onde acontece
Olá Amigo, obrigado pela resposta. O código é grande....rrrssss..... Segue:
Dim DB As ADODB.Connection
Dim RS As ADODB.Recordset
Dim SQL As String
Set DB = New ADODB.Connection
DB.Open [Ô]Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\DB.accdb;[Ô]
Set RS = New ADODB.Recordset
Set RS.ActiveConnection = DB
RS.Open [Ô]candidato[Ô], DB, adOpenKeyset, adLockOptimistic, adCmdTable
cont = [Ô]UPDATE candidato SET candidato.recruiter_by = [ô][Ô] & recruiter & [Ô][ô], candidato.date_open = [ô][Ô] & dt_abertura & [Ô][ô], candidato.process_name = [ô][Ô] & process & [Ô][ô], candidato.full_name = [ô][Ô] & nome & [Ô][ô], candidato.phone = [ô][Ô] & phone & [Ô][ô], candidato.mobile = [ô][Ô] & mobile & [Ô][ô], candidato.company = [ô][Ô] & comp & [Ô][ô], candidato.role = [ô][Ô] & role & [Ô][ô][Ô]
cont = cont & [Ô], candidato.source = [ô][Ô] & ssource & [Ô][ô], candidato.sub_source = [ô][Ô] & subs & [Ô][ô], candidato.approached = [ô][Ô] & appro & [Ô][ô], candidato.scheduled = [ô][Ô] & sche & [Ô][ô], candidato.HR_interview = [ô][Ô] & HR & [Ô][ô], candidato.T_interview = [ô][Ô] & T_interview & [Ô][ô], candidato.date_forward = [ô][Ô] & dt_for & [Ô][ô], candidato.status = [ô][Ô] & sstatus & [Ô][ô], candidato.total_exp = [ô][Ô] & t_exp & [Ô][ô], candidato.relevant_exp = [ô][Ô] & r_exp & [Ô][ô], candidato.return_negative = [ô][Ô] & nnegative & [Ô][ô], candidato.interview_comments = [ô][Ô] & ccomments & [Ô][ô], candidato.[band] = [ô][Ô] & band & [Ô][ô], candidato.primary_skill = [ô][Ô] & skill & [Ô][ô], candidato.salary = [ô][Ô] & salary & [Ô][ô], candidato.offer_date = [ô][Ô] & offer & [Ô][ô], candidato.abort = [ô][Ô] & abort & [Ô][ô], candidato.DOJ = [ô][Ô] & doj & [Ô][ô], candidato.id_curr = [ô][Ô] & ID_cur & [Ô][ô], candidato.id_job = [ô][Ô] & ID_job & [Ô][ô], candidato.id_manager = [ô][Ô] & ID_manager & [Ô][ô], candidato.id_recruiter = [ô][Ô] & ID_recruiter & [Ô][ô], candidato.[user] = [ô][Ô] & usuario & [Ô][ô], candidato.date_user = [ô][Ô] & nau & [Ô][ô][Ô]
cont = cont & [Ô] WHERE (((candidato.ID)=[Ô] & IDI & [Ô]))[Ô]
DoCmd.RunSQL (cont)
Set RS = Nothing
Set DB = Nothing
Dim DB As ADODB.Connection
Dim RS As ADODB.Recordset
Dim SQL As String
Set DB = New ADODB.Connection
DB.Open [Ô]Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\DB.accdb;[Ô]
Set RS = New ADODB.Recordset
Set RS.ActiveConnection = DB
RS.Open [Ô]candidato[Ô], DB, adOpenKeyset, adLockOptimistic, adCmdTable
cont = [Ô]UPDATE candidato SET candidato.recruiter_by = [ô][Ô] & recruiter & [Ô][ô], candidato.date_open = [ô][Ô] & dt_abertura & [Ô][ô], candidato.process_name = [ô][Ô] & process & [Ô][ô], candidato.full_name = [ô][Ô] & nome & [Ô][ô], candidato.phone = [ô][Ô] & phone & [Ô][ô], candidato.mobile = [ô][Ô] & mobile & [Ô][ô], candidato.company = [ô][Ô] & comp & [Ô][ô], candidato.role = [ô][Ô] & role & [Ô][ô][Ô]
cont = cont & [Ô], candidato.source = [ô][Ô] & ssource & [Ô][ô], candidato.sub_source = [ô][Ô] & subs & [Ô][ô], candidato.approached = [ô][Ô] & appro & [Ô][ô], candidato.scheduled = [ô][Ô] & sche & [Ô][ô], candidato.HR_interview = [ô][Ô] & HR & [Ô][ô], candidato.T_interview = [ô][Ô] & T_interview & [Ô][ô], candidato.date_forward = [ô][Ô] & dt_for & [Ô][ô], candidato.status = [ô][Ô] & sstatus & [Ô][ô], candidato.total_exp = [ô][Ô] & t_exp & [Ô][ô], candidato.relevant_exp = [ô][Ô] & r_exp & [Ô][ô], candidato.return_negative = [ô][Ô] & nnegative & [Ô][ô], candidato.interview_comments = [ô][Ô] & ccomments & [Ô][ô], candidato.[band] = [ô][Ô] & band & [Ô][ô], candidato.primary_skill = [ô][Ô] & skill & [Ô][ô], candidato.salary = [ô][Ô] & salary & [Ô][ô], candidato.offer_date = [ô][Ô] & offer & [Ô][ô], candidato.abort = [ô][Ô] & abort & [Ô][ô], candidato.DOJ = [ô][Ô] & doj & [Ô][ô], candidato.id_curr = [ô][Ô] & ID_cur & [Ô][ô], candidato.id_job = [ô][Ô] & ID_job & [Ô][ô], candidato.id_manager = [ô][Ô] & ID_manager & [Ô][ô], candidato.id_recruiter = [ô][Ô] & ID_recruiter & [Ô][ô], candidato.[user] = [ô][Ô] & usuario & [Ô][ô], candidato.date_user = [ô][Ô] & nau & [Ô][ô][Ô]
cont = cont & [Ô] WHERE (((candidato.ID)=[Ô] & IDI & [Ô]))[Ô]
DoCmd.RunSQL (cont)
Set RS = Nothing
Set DB = Nothing
TENTA ISTO
Dim DB As ADODB.Connection
Dim RS As ADODB.Recordset
Dim SQL As String
Set DB = New ADODB.Connection
DB.Open [Ô]Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\DB.accdb;[Ô]
Set RS = New ADODB.Recordset
Set RS.ActiveConnection = DB
cont = [Ô]UPDATE candidato SET candidato.recruiter_by = [ô][Ô] & recruiter & [Ô][ô], candidato.date_open = [ô][Ô] & dt_abertura & [Ô][ô], candidato.process_name = [ô][Ô] & process & [Ô][ô], candidato.full_name = [ô][Ô] & nome & [Ô][ô], candidato.phone = [ô][Ô] & phone & [Ô][ô], candidato.mobile = [ô][Ô] & mobile & [Ô][ô], candidato.company = [ô][Ô] & comp & [Ô][ô], candidato.role = [ô][Ô] & role & [Ô][ô][Ô]
cont = cont & [Ô], candidato.source = [ô][Ô] & ssource & [Ô][ô], candidato.sub_source = [ô][Ô] & subs & [Ô][ô], candidato.approached = [ô][Ô] & appro & [Ô][ô], candidato.scheduled = [ô][Ô] & sche & [Ô][ô], candidato.HR_interview = [ô][Ô] & HR & [Ô][ô], candidato.T_interview = [ô][Ô] & T_interview & [Ô][ô], candidato.date_forward = [ô][Ô] & dt_for & [Ô][ô], candidato.status = [ô][Ô] & sstatus & [Ô][ô], candidato.total_exp = [ô][Ô] & t_exp & [Ô][ô], candidato.relevant_exp = [ô][Ô] & r_exp & [Ô][ô], candidato.return_negative = [ô][Ô] & nnegative & [Ô][ô], candidato.interview_comments = [ô][Ô] & ccomments & [Ô][ô], candidato.[band] = [ô][Ô] & band & [Ô][ô], candidato.primary_skill = [ô][Ô] & skill & [Ô][ô], candidato.salary = [ô][Ô] & salary & [Ô][ô], candidato.offer_date = [ô][Ô] & offer & [Ô][ô], candidato.abort = [ô][Ô] & abort & [Ô][ô], candidato.DOJ = [ô][Ô] & doj & [Ô][ô], candidato.id_curr = [ô][Ô] & ID_cur & [Ô][ô], candidato.id_job = [ô][Ô] & ID_job & [Ô][ô], candidato.id_manager = [ô][Ô] & ID_manager & [Ô][ô], candidato.id_recruiter = [ô][Ô] & ID_recruiter & [Ô][ô], candidato.[user] = [ô][Ô] & usuario & [Ô][ô], candidato.date_user = [ô][Ô] & nau & [Ô][ô][Ô]
cont = cont & [Ô] WHERE (((candidato.ID)=[Ô] & IDI & [Ô]))[Ô]
RS.Open cont, DB, dOpenDynamic, adLockOptimistic
Set RS = Nothing
Set DB = Nothing
Dim DB As ADODB.Connection
Dim RS As ADODB.Recordset
Dim SQL As String
Set DB = New ADODB.Connection
DB.Open [Ô]Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\DB.accdb;[Ô]
Set RS = New ADODB.Recordset
Set RS.ActiveConnection = DB
cont = [Ô]UPDATE candidato SET candidato.recruiter_by = [ô][Ô] & recruiter & [Ô][ô], candidato.date_open = [ô][Ô] & dt_abertura & [Ô][ô], candidato.process_name = [ô][Ô] & process & [Ô][ô], candidato.full_name = [ô][Ô] & nome & [Ô][ô], candidato.phone = [ô][Ô] & phone & [Ô][ô], candidato.mobile = [ô][Ô] & mobile & [Ô][ô], candidato.company = [ô][Ô] & comp & [Ô][ô], candidato.role = [ô][Ô] & role & [Ô][ô][Ô]
cont = cont & [Ô], candidato.source = [ô][Ô] & ssource & [Ô][ô], candidato.sub_source = [ô][Ô] & subs & [Ô][ô], candidato.approached = [ô][Ô] & appro & [Ô][ô], candidato.scheduled = [ô][Ô] & sche & [Ô][ô], candidato.HR_interview = [ô][Ô] & HR & [Ô][ô], candidato.T_interview = [ô][Ô] & T_interview & [Ô][ô], candidato.date_forward = [ô][Ô] & dt_for & [Ô][ô], candidato.status = [ô][Ô] & sstatus & [Ô][ô], candidato.total_exp = [ô][Ô] & t_exp & [Ô][ô], candidato.relevant_exp = [ô][Ô] & r_exp & [Ô][ô], candidato.return_negative = [ô][Ô] & nnegative & [Ô][ô], candidato.interview_comments = [ô][Ô] & ccomments & [Ô][ô], candidato.[band] = [ô][Ô] & band & [Ô][ô], candidato.primary_skill = [ô][Ô] & skill & [Ô][ô], candidato.salary = [ô][Ô] & salary & [Ô][ô], candidato.offer_date = [ô][Ô] & offer & [Ô][ô], candidato.abort = [ô][Ô] & abort & [Ô][ô], candidato.DOJ = [ô][Ô] & doj & [Ô][ô], candidato.id_curr = [ô][Ô] & ID_cur & [Ô][ô], candidato.id_job = [ô][Ô] & ID_job & [Ô][ô], candidato.id_manager = [ô][Ô] & ID_manager & [Ô][ô], candidato.id_recruiter = [ô][Ô] & ID_recruiter & [Ô][ô], candidato.[user] = [ô][Ô] & usuario & [Ô][ô], candidato.date_user = [ô][Ô] & nau & [Ô][ô][Ô]
cont = cont & [Ô] WHERE (((candidato.ID)=[Ô] & IDI & [Ô]))[Ô]
RS.Open cont, DB, dOpenDynamic, adLockOptimistic
Set RS = Nothing
Set DB = Nothing
Cara!!!!! VALEUUUUU!!!!! Grande abraço e Obrigado pela ajuda!
Tópico encerrado , respostas não são mais permitidas