Discussion :

[valmelissa]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[nico84]

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 après pas mal de tatonnements

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

[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?

[nico84]

Bonjour,

Arrives-tu à lire avec ma méthode ?

[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

[nico84]

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

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

Regarde du coté de tes références VB ou de ton fichier tnsname.ora ?

[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.

[nico84]

Il se peut aussi que ton insert ne respecte pas les règles d'intégrité Oracle

[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?

[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