Base de donnée avec ADO en vb

elocrak -  
 amine -
Salut
je suis en stage et je suis en train de faire un projet
Mon pb c que j'ai connecté ma base de donnée (faite sur access 2000) à vb 6.0 avec ADO, mais j'y connais rien !!!
je voudrais savoir comment faire fonctionner ma connection parfaitement, avec les jeu d'enregistrement.

Alors si qqun peut me donner des cours ou des codes ou n'importe quoi qui me ferai mieux comprendre ADO, je serai très ravi!

Merci beaucoup!!!!

19 réponses

  1. SebTheBest
     
    Voila un exemple de connection vers SQL Server...a adapter pour access.

    A+

    Public oConn As ADODB.Connection 'Objet Connection ADO SQL Server
    Public oRec As ADODB.Recordset 'Objet Recordset SQL Server

    'Ouverture connection DB
    strDriver = "{SQL Server}" 'Driver pour l'accès à la database
    Set oConn = New ADODB.Connection
    oConn.Open "Driver=" & strDriver & ";" & _
    "Server=" & strServeur & ";" & _
    "Database=" & strDataBase & ";" & _
    "Uid=" & strUid & ";" & _
    "Pwd=" & strPwd & ";"

    strMyQuery = "SELECT * FROM table"

    Set oRec = oConn.Execute(strMyQuery, adCmdText)

    oRec.MoveFirst

    variable = oRec("nomchamp")

    'Fermeture connection DB
    oConn.Close
    Set oConn = Nothing
    4
    1. Emmanuel panzu
       
      je suis un étudiant, futur administrateur réseau, j'ai quelques diffultés sur la création des interface VB et C++ et les connexion de ces interfaces avec les SGBD, je vous de bien vouloir m'assister
      Ir Emmanuel PANZU NGIMBI
      0
      1. mbarek > Emmanuel panzu
         
        salut
        je te donne les démarches pour effectuer ce travail:
        je peux diviser le probleme en trois partie:
        partie 1: la base de données (merise et access):
        avant de lancer access pour créer des tables, il faut d'avoir une méthode de la conception qui te permet d'eviter plusieurs problemes.
        partie 2: l'interface (vb ou c++):
        apartir de la base de données, tu peut déterimer l'interface à créer ( ce n'est pas le contraire)
        par exemple dans vb ,c'est mieux de nommer les controles de l'inteface à utiliser
        partie 3: modele de liaison:
        ensuite ; il faut choisir un modelel de liaison entre vb et la base ; soit DAO , ADO ou bien ADO.net
        et dans cette partie ; il faut déterminer les opérations;
        lire les données à partir de la base( afficher);
        ou ecrire les données dans la base( modifer , ajouter ou supprimer

        et bon courage
        0
    2. kanak09 Messages postés 12 Statut Membre 1
       
      salut,

      merci pour les infos mais j'ai aussi besoin d'aide.
      Je réalise un formulaire de demande de tâche dans outlook 2007 et j'ai besoin de le lier à une BDD sql server donc ca tombe bien.

      Où écrire ce code, dans visual basic ThisOutlookSession, ou dans "Visualiser le code" = Vbscript ?

      car j'ai essayé dans Visual basic mais il n'y a aucun effet, et dans vbscript j'ai des erreurs aux lignes.

      Merci
      0
  2. joseph2009 Messages postés 119 Date d'inscription   Statut Membre Dernière intervention   1
     
    il suffit juste de installer ado sur l'interface VB et appuyer sur le button droit--> propriéte --> choisi le fournisseur accés sa sera microsoft jet oledb.4.0 parce que la tu travail sur une BDD acess quand tu aura choisi le fournisseur tu indique le chemin de la BDD quand tu aura fini tu passe a l'onlget datasource tu vas trouver deux combo box click sur la premier choisi propriete table et pase a la deuxieme et choisi quel table parce que la chaque ado a besoin d'une table et ensuite teste la question avec un bouton si ta pas compris ce que jé dit dit le a mois a bientot bye
    1
    1. anouer2009
       
      Salut,
      mais comment je fais pour l'instalation d'un ado sur un interface vb.net , je préfére que tu m'envoi la code .
      MERCI
      0
  3. mbarek
     
    SVp angel:
    quel est le rôle de ton code.
    ligne par ligne ok
    ;
    pour la variable v_r peut recevoir une valeur, mais il faut l'afficher.
    par exemple ajouter une label avec le nom lblaff
    et ecrire le code
    dim v_r as string

    v_r=dtChEf.Rows(j)(0).ToString
    lblaff.text=v_r

    exit sub

    pour la ligne exit sub c'est pour décomposer le code en parties pour déterminer l'emplacement de l'erreur
    1
    1. angel
       
      Bonjouur!!
      enfait vs n'avez pas bien saisi ske je veux diir, ou ptét jété pas troo claire!!
      ce que je veux exactement c afficher les informations exportées de la base de donnée access et les afficher dans un fichier texte je n'utilise ni listbox ni datagrid ni rien. j'ai reussi a faire ceçi mais le probléme c ke dans un champs je dois mettre CHQE si c un chéque (dont la condition est: le champs=0 ) et mettre DOMI dans le cas contraire.en plus je dois pas exporter tous les champs.
      voila mon code dont le problém é dont la boucle IF:

      sStr = sStr + dtChEf.Rows(j)(3).ToString + ";"
      'j'ai mis la condition ke vs mavé di hier mé ça na pa marché!
      v_rc = dtChEf.Rows(j)(0).ToString
      If v_rc = "0" Or v_rc = " " Then
      sStr = sStr + "DOMI" + ";"
      Else
      v_re = dtChEf.Rows(j)(6).ToString
      If v_re = "0" Or v_re = " " Then
      sStr = sStr + " CHQE" + ";"
      End If

      End If


      sStr = sStr + dtChEf.Rows(j)(13).ToString + ";"
      sStr = sStr + "MAD" + ";"
      sStr = sStr + dtChEf.Rows(j)(10).ToString + ";"
      sStr = sStr + dtChEf.Rows(j)(12).ToString + ";"
      'là c l a condition ke je mettais hier jlé mis en commentaire
      'If dtChEf.Rows(j)(0) = "0" Or dtChEf.Rows(j)(0) = " " Then
      ' sStr = sStr + dtChEf(j)(6).ToString + ";"
      'Else
      ' If dtChEf.Rows(j)(6) = "0" Or dtChEf.Rows(j)(6) = " " Then
      ' sStr = sStr + dtChEf(j)(0).ToString + ";"
      ' End If

      'End If
      sStr = sStr + dtChEf.Rows(j)(18).ToString + ";"
      sStr = sStr + dtChEf.Rows(j)(13).ToString + ";"
      sStr = sStr + "MAD" + ";"
      sStr = sStr + "Debit" + ";"
      sStr = sStr + dtChEf.Rows(j)(10).ToString + ";"


      sStr = sStr.Substring(0, sStr.Length - 2)
      sWrite.WriteLine(sStr)
      Next
      sWrite.Close()
      fs.Close()
      MessageBox.Show(" exportation Réussit ")

      Mercii encoor une foiis et desolée pour le dérangement
      0
  4. MarsuGL
     
    Je n'ai aps de code sous la main, mais tu trouvera aisément ce qu'il te faut sur le net
    une recherche simple :
    ADO+sample devrais marcher
    J'avais bien envie de te recommander msdn,l'aide microsoft, notre bible a tous (chers microsofteurs) mais c pas toujours super clair, par contre ca te serais quand meme utile en tant que complément de ce que tu trouvera sur le site, pour avoir le détail des methodes par exemple.
    0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. magicsou
     
    Bonjour,
    j ai crée une application VB6 ACCESS via un data control ADODC mon pb c est que je veux faire un textbox pour chercher des enregistrement, pourriez vous m aider svp et merci
    0
    1. mbarek
       
      salut
      tout d'abord vous devez :
      - matriser le code sql
      - déterminir l'emplacement que vous afficher le résultat de la recherche
      on considere la base de données et "collège.mdb"
      la table des données est "eleve" avec les champs suivants: code_eleve, nom et prénom

      la situation problème est de donner le code d"eleve et afficher le nom et le prénom
      moi j'utilise le modéle ADO:

      soit l'interface suivante:
      une zone de texte avec le nom txtCode
      un commande pour effectuer la recherce avec le nom cmdOK
      une labe1 pour afficher le nom trouvé avec le nom lblNom

      une labe2 pour afficher le prénom trouvé avec le nom lblprénom
      e travail à faire est d 'entrer le code d'eleve dans la zone de texte txtcode et afficher le nom sur lblNom et le prénom sur lblPrénom:
      le code est :

      d'abord ajouter la bibliothèque de modéle ADO
      cliquez sur le menu projet
      cliquez suir réference
      cocher microsoft .ado library 2.5"
      le code est
      private sur cmdOk_click()

      'créer une connexion
      dim ct as adodb.connection
      ' créer un jeu d'enregistrement
      dim rc as adodb.recordset
      'créer une instance de ct et rc
      set ct = new conncetion
      set rc =new recordset
      ' déterminer le fournisseur de données
      ct.provider="microsoft.jet.oledb.4.0"
      'ouvrir la base de donnes collège.mdb
      ct.open "collège.mdb"
      ' vous dever enregitrer le projet vb et la base de donnes access eleve.mdb dans meme emplacement
      ' la requete Sql pour faire la recherche
      reqRech="select * from table eleve where code_eleve'" & txtcode.text & "'"
      ' exécuter la requete
      rc.open reqrech,ct

      if rc.recordcount =0 then
      msgbox "eleve introuvable enter le nouveau code"
      exit sub
      end if
      lblnom.caption=rc(1)
      lblprénom.caption=rc(2)

      'fermer le jeu d'enregistrement rc
      rc.close
      'liberer la variable rc
      set rc=nothing
      'fermer la connection
      ct.close
      'liberer la variable ct
      set ct = nothing

      end sub


      s'il y a d'autre problème mon email est mbarek1891@hotmail.com
      0
  7. kimbwe
     
    Je souhaite avoir une documentation sur l'utilisation d'ADO sous Access avec SQL
    0
    1. amine
       
      moi aussi j'ai la même porbléme que toi
      0
  8. isaimen
     
    donner moi un code source pour interface du vb6
    0
    1. dauphin
       
      essai de taper dans le navigateur google pour avoir les code source et interface.Est que ta deja tr
      0
  9. angel
     
    bonjour!
    SVP je veux savoir comment faire pr recupérer les informations d'une base de donnée access par vb.net les afficher puis les enregistrer ds un fichier texte
    envoyez moi le code si c possible c urgent
    mercii d'avance
    0
  10. mbarek
     
    salut
    le principe est simple:
    la solution est divisée en deux parties:
    partie 1:
    d'abord lire les données de la base access avec l'objet DataReader, puis conserver les données recuperer dans une variable
    partie 2
    ajouter le contenu de la varaiable dans le fichier en utilsant la classe de framwork File
    ok
    c'est ça le principe , donc cherche le comment?(le code ) bon courage
    0
    1. flowrs Messages postés 97 Statut Membre 1
       
      Bonjour tt le monde; j'ai besoin de votre aide.

      trés prochainement je dois commencer un projet qui consiste à créer une interface graphique entre entre l'utilisateur et une base de donnée dédiée pour la gestion des stagiaires.

      d'aprés ce forum i faut passer par deux grandes étapes:

      ***créer l'interface graphique ( champs de saisi , les boutons.) avec visual basic
      ***créer la base de données access.

      ma question ; pour extraire et stoquer les données est ce qu'uil faut des requetes SQl? si oui ou les mettres??

      remarque: si ma question est débile c'est parce que je suis débutante
      0
      1. mbarek2005 Messages postés 4 Statut Membre > flowrs Messages postés 97 Statut Membre
         
        salut;
        il existe deux façons pour manipuler les données :
        la façon 1:Récuperer les données de la base et les affichées dans l'interface de vb ou dans une état
        Dans ce cas, il faut utilser les requetes de la sélection paramétrées ou non pour extraire les données de la base, puis il faut déterminer dans le quelle objet, on affiche les données soit dans une zone de texte, dans datagrid ou dans les états à imprimer.
        le comment:par exemple:
        req="select * from table where condition"
        'rs est un jeu d'enregistrement : recordset (l'objet de ado)
        'ct est la varaible de la connection
        rs.open req,ct
        label1.caption=rs(0)
        label2.caption=rs(1)

        rs(0) et rs(1) et le premier champ et le deuxieme

        la façon 2: ecrire sur la base
        l'ecriture sur la base est l'une des manipulation suivantes: ajout, modifier, supprimer
        dans ce cas, tu peux aussi ecrire la requete de type insert , update et delete ; et l'exécuter sur une variable de la connection
        exemple
        req="delete * from table where condition"
        ct.execute req
        donc ici, rien à afficher sur l'interface


        et bon courage
        0
  11. angel
     
    le msg d'erreur suivant apparait lorske j'execute :
    l'opérateur '=' n'est pas défini pour type 'DBNull' et chaîne "0"
    et je pense ke l'erreur reside dans cette partie du code

    If dtChEf.Rows(j)(0).ToString = "0" Or dtChEf.Rows(j)(0).ToString = " " Then
    sStr = sStr + "DOMI" + ";"
    Else
    If dtChEf.Rows(j)(6).ToString = "0" Or dtChEf.Rows(j)(6).ToString = " " Then
    sStr = sStr + " CHQE" + ";"
    End If

    End If
    0
  12. mbarek
     
    salut
    donc tu peut tester le code parie par partie:
    d'abord récupérer la valeur de cette propriété:

    dim v_r as string

    v_r=dtChEf.Rows(j)(0).ToString
    exit sub;

    parce que le code est besoin des commantaires
    0
  13. angel
     
    merci pour votre reponse!!
    g testé votr code ,ya pa d'erreur mé la variable ne stock rien...
    enfait pkoi le exit sub ? é jle mé en kel ligne?
    0
  14. mbarek2005 Messages postés 4 Statut Membre
     
    salut:
    je m'excuse, je ne peux pas apprendre et/ ou comprendre le code.
    et je croix que tu cmplique les choses, parce que je croix que tu n'utilse pas une méthode d'analyse mersise par exemple, et d'outre tu peut faciliter l'extraire des données de la base avec le code sql , seulement utiliser une requete select pour avoir sélectionner un ou plusieurs champs et avec des conditions bien déterminer,
    donc SVP:
    Quelle est la méthode utilisée pour structurer les données,?
    Quelle est la méthode utilisée pour extraire les données de la base?
    0
  15. hana
     
    salut. moi j arrive pas a programé avec vb.j des difféculté de manipulé vb avec ma base de donnéé.svp j attend des repopnses
    0
  16. sample
     
    Hana:
    salut. moi j arrive pas a programé avec vb.j des difféculté de manipulé vb avec ma base de donnéé.svp j attend des repopnses.

    Salut, Tu as essayé l'inverse?
    0
  17. said
     
    tu pourrai me contacter( si tu veux des cours ) sur l email Msst_2005@hotmail.com
    -1
  18. Ra7bibi
     
    code source pour faire un ajout d'enregistrement dans une base de données Acces.merci
    -1
    1. Polux31 Messages postés 7219 Statut Membre 1 204
       
      Bonjour,

      La réponse est :

      - Bonjour,

      - Une phrase est constituée d'un sujet, d'un verbe et d'un complément d'objet.

      - Lire ça avant de poster.

      ;o)
      0
    2. mbarek
       
      salut
      on deux methode pour l'ajout d'un enregistrement soit avec la requete Sql Insert Into ou la méthode Addnew
      donc moi je préfere la deuxième méthode car il est simple (Addnew)

      l'etape 1 pour créer une variable de la connexion et un jeu d'enregistrement est simple
      dim ct as adodb.connection
      dim rc ad adodb.recordset
      set ct = new connection
      set rc =new recodeset

      ct.provider="..........................
      ct.open " le nom de ton base de données .mdb"
      rc.open "nomde latable",ct,ad.... dynamique,....
      rc.addnew
      rc(0)=text1.text
      rc(1)=text2.text


      ..
      ...
      .
      ..
      ' remplir les champs d'enregistrement apartir de controle de l'interface

      rc.update

      rc.close
      ct.close
      0