problème update de table VBA vers table oracle

Version imprimable

Bonjour
j'ai une difficulté je n'arrive pas à la déceler.
la version de oracle que j'utilise est la 10g
j'ai effectué ma connexion ODBC avec le driver, maintenant
j'ai une table liée (agis_insured) dans access et je voudrais enregistrer des données dans cette table liée à travers une autre table (client). mais ça bloque au niveau de la mise à jour. je ne sais pas vraiment ce qui bloque.
je joins le code en bas, aidez moi SVP merci
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 Dim Bds As Database Dim rs As Recordset DoCmd.RunSQL "UPDATE cod_res_num INNER JOIN client ON cod_res_num.Accountt = client.OWNER_NUMM SET cod_res_num.statut_compte = -1, client.statut_compte=-1 WHERE (((client.OWNER_NUMM) Like [cod_res_num].[Accountt]));" DoCmd.SetWarnings False Set Bds = CurrentDb Set rs = Bds.OpenRecordset("AGIS_INSURED", dbOpenDynaset) rs.MoveFirst While Not rs.EOF rs.AddNew rs("BRANCHH") = 15 rs("INSUREDD") = txtnumcompte.Value rs("INS_SUB_TYPEE") = 2 rs("TITLEE") = txttitre.Value rs("NAMEE") = Nz(txtnom, "") rs("T_O_B") = Null rs("D_O_B") = txtdatenais.Value rs("NATIONALITY") = txtnationa.Value rs("ACTIVEE") = 1 rs("PAYMENTT") = 1 rs("COL_REF") = Null rs("ADDRESSS") = txtadresse.Value rs("COUNTRYY") = txtpays.Value rs("REGIONN") = Null rs("CITYY") = txtville.Value rs("STREETT") = txtrue.Value rs("BLOCKK") = txtimmeuble.Value rs("PBOXX") = txtbp.Value rs("D_O_B") = txtdatenais.Value rs.Update " ça bloque à ce niveau" Wend rs.Requery rs.Close Set rs = Nothing Set db = Nothing
merci

bonsoir,

As-tu bien les droits d'écriture et tout ? Arrives-tu à lire des infos sur la base

Voici pour info la méthode que j'utilise avec succès 8-) après pas mal de tatonnements :roll:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim connect As ADODB.Connection 'crée connection vers base oracle
Dim Cmd As ADODB.Command 'effectue commande sur la base
Dim rso As ADODB.Recordset, rsp As ADODB.Recordset 'recordset pour base Oracle
 
  'initialisations pour requetes sur la base
  Set connect = New ADODB.Connection
  connect.Open "MaBase", "MonLogin", "MonPasword"
  connect.CursorLocation = adUseClient
  Set Cmd = New ADODB.Command
  Cmd.CommandType = adCmdText
  Set Cmd.ActiveConnection = connect
 
  'exemple de lecture
  Cmd.CommandText = "select cd_ofs, cd_gamme, n_lien from ofs where id_ofs=12"
  Set rso = Cmd.Execute
  If not rso.EOF Then  MsgBox "L'OF 12 utilise la gamme " & rso!cd_gamme
 
  'exemple d'écriture
  Cmd.CommandText = "INSERT INTO heure (cd_gamme, temps) VALUES (" & rso!cd_gamme & ", 2);"
  Cmd.Execute

27/10/2009, 09h55
valmelissa

Bonjour

Merci de me répondre nico
j'ai effectivement tous les droits puisque j'arrive à inserer des enregistrement par pl/sql.
je vais faire comme toi, et je te tiens au courant.
27/10/2009, 11h31
valmelissa

je reviens sur mon problème, j'ai essayé avec ta méthode nico84 mais j'avais l'erreur" l'appel a echoué"
j'ai recrée un ODBC avec pour pilote oracle for ora92
j'ai liée la table maintenant j'ai cette erreur
ODBC : Échec d’une insertion dans la table liée <table>. (Erreur 3155)
et même je n'arrive plus à modifier quoi que ce soit dans la table liée en direct. Est ce un problème de droit. si oui pourquoi j'arrive à inserer dans pl/sql avec mon profil mais je ne puis le faire dans access?
quelqu'un a-t-il une idée?
27/10/2009, 13h09
nico84

Bonjour,

Arrives-tu à lire avec ma méthode ?
28/10/2009, 17h01
valmelissa

oui j'arrive à lire avec ta méthode mais ce n'est pas là où ça bloque le fait est que même lorsque j'ouvre la date et que je veux y insérer des données, ça ne prend pas ça me dit ECHEC DE CONNEXION A LA TABLE LIEE.
je me demande bien où se situe le problème, l'administrateur de notre base de données m'a pourtant assuré que j'avais des droits de création dans la base. je prends toute suggestion
28/10/2009, 18h57
nico84

A l'époque de mémoire j'avais testé 4 protocles ADO, DAO, ADODB et OO4O 8O

Je n'avais réussi à écrire qu'avec ADODB et je suis donc resté avec cette méthode... Pour info j'utilise Access 2000 :oops:

Regarde du coté de tes références VB ou de ton fichier tnsname.ora ?
29/10/2009, 09h43
valmelissa

salut
moi j'utilise access 2003.
je vais encore chercher. je vais essayer de créer un etable vide dans oracle je vais la lier dans access et voir si je peux ajouter des enregistrements.
merci.
29/10/2009, 10h41
nico84

Il se peut aussi que ton insert ne respecte pas les règles d'intégrité Oracle :calim2:
29/10/2009, 10h45
valmelissa

comment est ce que je vais donc pour que mon insert respecte les règles d'integrité de oracle? y'a-til un code à écrire?
29/10/2009, 12h39
nico84

Et non, il faut aller voir dans les contraintes Oracle, par exemple tables liées entre elles, champ obligatoire... comme dans Access !

Le plus simple est de faire la même écriture directement dans Oracle et de voir si elle est acceptée ;)