Insertion de donné dans une bd oracle avec vb

Bonjour a vous tous j'ai un probleme d'insertion de donnée dans ma base de donnée oracle
Voici la synthaxe que j'utilise pour me connecter a ma base de donnée qui est situé sur un serveur :
Dim cn as new ADODB.Connection
Dim cn as new ADODB.Connection
Set cn = New ADODB.Connection
Set rspersonne = New ADODB.Recordset
rspersonne.Open "select * from Personne", cn

cn.Open "PROVIDER = MSDAORA; Data Source =Nom_bd ;User ID = mon_id; Password = Mon_motpass"
Dans ma base j'ai une table personne avec les champs:Code_Pers,Nom_Pers,Preno_Pers et Adresse.
j'utilise la synthaxe suivante pour remplir les champ de ma table:
rspersonne.AddNew
rspersonne.Fields(0) = txtnumcib
rspersonne.Fields(1) = txtnom
rspersonne.Fields(2) = txtprenom
rspersonne.Fields(3) = txtadresse
rspersonne.Update

Mais sa ne fonctionne il ce produit une eurreur a chaque fois.
Comment donc faire pour enregistrez mes donnée?
Configuration: Windows XP
Internet Explorer 6.0

4 réponses

  1. Bonjoru touzack,

    Ok si ceci est ton code pourquoi déclare tu 2 fois la même chose
    Dim cn as new ADODB.Connection
    Dim cn as new ADODB.Connection

    Ensuite tu Set ton recordset mais tu ne la jamais dimensioner

    Dim rspersonne as new ADODB.Recordset

    ensuite tu dois spécifier quel parametre tu veux du textbox

    rspersonne.AddNew
    rspersonne.Fields(0) = txtnumcib.text
    rspersonne.Fields(1) = txtnom.text
    rspersonne.Fields(2) = txtprenom.text
    rspersonne.Fields(3) = txtadresse.text
    rspersonne.Update

    Aussi si tu nous donnais le message d'Erreur que tu recois ca pourrais aider
    1. Bonjour a vous tous j'ai un probleme d'insertion de donnée dans ma base de donnée oracle
      Voici la synthaxe que j'utilise pour me connecter a ma base de donnée qui est situé sur un serveur :
      Dim cn as new ADODB.Connection
      Dim cn as new ADODB.Connection
      Set cn = New ADODB.Connection
      Set rspersonne = New ADODB.Recordset
      rspersonne.Open "select * from Personne", cn

      cn.Open "PROVIDER = MSDAORA; Data Source =Nom_bd ;User ID = mon_id; Password = Mon_motpass"
      Dans ma base j'ai une table personne avec les champs:Code_Pers,Nom_Pers,Preno_Pers et Adresse.
      j'utilise la synthaxe suivante pour remplir les champ de ma table:
      rspersonne.AddNew
      rspersonne.Fields(0) = txtnumcib
      rspersonne.Fields(1) = txtnom
      rspersonne.Fields(2) = txtprenom
      rspersonne.Fields(3) = txtadresse
      rspersonne.Update

      Mais sa ne fonctionne il ce produit une eurreur a chaque fois.
      Comment donc faire pour enregistrez mes donnée dans ma base ?
      je ne sais plus quoi faire je suis pourtant bien connecter a la base .
      1. Essaye de te connecter à la base avant de faire ta requête.
        et la fonction de connection a comme parametre :
        *nom du machine ou la base de donnée est existe
        *le login
        *mot de passe
        cette fonction va te faire connecter au serveur aprés tu dois selectionné votre base de donné
        ensuite tapez votre requête.
        1. Essaye de te connecter à la base avant de faire ta requête.
          Quelle est l'erreur affichée??