comment se connecter et utiliser un recordset sous access!!!!

comment se connecter et utiliser un recordset sous access!!!! - VB/VBA/VBS - Programmation

Marsh Posté le 08-04-2004 à 16:44:34    

Je suis un programmeur en VB6 et j'ai l'habitude d'utiliser des recordset tout en ayant fait au prealable une connection à la base concerné. Je suis en train de travailler avec une camarade de la Filiere de Gestion qui voudrait finaliser son projet sous Access, je dois dans ce projet faire une connection à la base dans laquelle j'ai crée mes formulaires et utiliser ensuite des recordset bref faire des requetes dynamiquement c'est à dire avec le code. J'ai voulue le faire comme avec VB6, j'ai eu beaucoup de difficulté, ainsi j'evoque ce sujet pour que quelqu'un qui sait comme faire ce genre de choses m'aide en prenant comme exemple une table nommée TABLE et la base BD et le Chemin de la base, CHEMINDELABASE, en insistant surtout sur les premiere lignes de code c'est à dire les definition des connections et recordset etles instanciation. Merci d'avance!!!!!

Reply

Marsh Posté le 08-04-2004 à 16:44:34   

Reply

Marsh Posté le 09-04-2004 à 14:19:59    

Il n'y a rien de méchant

Code :
  1. Dim dbMaBase As Database
  2. Dim rsMonRecordSet As Recordset
  3. Dim strCheminBase As String
  4. Dim strSQLSelect As String
  5. strCheminBase = "c:\base.mdb"
  6. Set dbMaBase = OpenDatabase(strCheminBase)
  7. strSQLSelect = "SELECT * FROM MA_TABLE"
  8. Set rsMonRecordSet = dbMaBase.OpenRecordset(strSQLSelect)
  9. Do While Not rsMonRecordSet.EOF
  10.    MsgBox (rsMonRecordSet!mon_champ)
  11.    rsMonRecordSet.Next
  12. Loop

Reply

Marsh Posté le 17-04-2004 à 21:42:24    

j'ai testé et la compilateur ne reconnaissait pas le mot cle database comme type de variable, alors j'ai contourné comme suit :
    dim cn as ADODB.connection
    dim rs as ADODB.recordset
    dim ch as string
    ch="provider=....,data source=.... etc"
    set cn = currentproject().connection
    set rs= new ADODB.recordset
    rs.open "expression SQL",cn,etc
et ca marche. Merci et à plus!!!

Reply

Marsh Posté le 17-04-2004 à 22:12:27    

Tu ne devais pas avoir ajouté de référence a la bibliothèque DAO. A la place tu utilises ADO (ce n'est pas la meme chose, c'est dans les versions les plus récentes d'Access).
Ca marche, tant mieux  :hello:

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed