Quel méthode de connexion pour une base access ?Résolu

Question

Bonjour

Je me remet a programme en VB 6 après avoir arrêté quelques temps.

Je dois faire un programme avec une base access pour gèrer le personnel d'une entreprise soit environs 400 salariés.

Il y a aurra donc tout type de requete, des résultats dans des tableaux, combo, ...

Qu'elle est la meilleur méthode de connexion ?

Car j'ai pris plusieurs source tratant des *.mdb mais il y a plusieurs méthode de tratitement et je ne sais pas les différences ni celle qu'il est préférable d'utiliser.

Merci de m'indiquer des éléments qui pourrait m'aider.

mortalino · Accepted Answer

Salut,

Je te conseille ces deux tuto :

http://www.vbfrance.com/tutoriaux/CONNEXION-BDD-PARTIR-VISUAL-BASIC-AVEC-ADO_434.aspx

http://www.vbfrance.com/tutoriaux/VB6-ACCES-BASE-DONNEES-ACCESS-ADO_160.aspx

@++

  --Mortalino-- 
Le Mystérieux Chevalier "Provençal, le Gaulois"
N'oubliez pas de lire le règlement !

tof008 · Answer

Moi je te conseille même le deuxième c'est le mien looool!
Perso, je penche pour l'ADO, reputé plus rapide et plus stable! (je vais encore me faire taper sur les doigts par les defenseurs du DAO!!!!)
(Si la réponse vous convient, appuyez sur réponse acceptée...)

Il y a plusieurs facon d'être con ,mais un con choisit toujours la pire<>

gon_ak · Answer

Moi je travaille sur une base Access et tof008 à raison c'est plus rapide et plus stable!!!

Robinwood01 · Answer

Merci je n'ai plus qu'à mis mettre. Avec le .net c'est pareil ? Car je voudrais prochainement mis mettre ...

mortalino · Answer

tof008, j'ai récupéré ton tuto il y a qques semaines mais je ne m'y suis pas encore mis. Je code encore en DAO !!  lol

Mais va bien falloir s'y mettre à l'ADO...

++

Mortalino

Robinwood01 · Answer

Comment faire ce code en ADO ?

Je n'y arrive pas.

        Dim A As Access.Application
        Set A = CreateObject("Access.Application")
        A.OpenCurrentDatabase App.Path & "\base\public.mdb", , "test"
        Dim dbs As DAO.Database
        Dim n As Integer
        Dim i As Integer
        Dim C As Container
        Set dbs = A.CurrentDb        Set C dbs.Containers("Reports") 'ou Set C dbs.Containers(4)
            n = C.Documents.Count
            For i = 0 To n - 1
                MsgBox dbs.Containers("Reports")(i).Name
            Next i

De même pour celui la :

A.DoCmd.OutputTo acOutputReport, "état", "SnapshotFormat(*.snp)", App.Path & "	mp.snp"

mortalino · Answer

^^ désolé,

je suis toujours en DAO !

@++

  --Mortalino-- 
Le Mystérieux Chevalier "Provençal, le Gaulois"
N'oubliez pas de lire le règlement !

Robinwood01 · Answer

J'ai plusieurs requete maintenant ca marche plus.

Je vous explique un peu comment j'ai fait.

Une procédure dans un module crée la connexion :

Public Base As Connection
Public Requete As Recordset
Public SQL As String


Public Sub Connexion()
    
    'Initialise les variables de connexion
        Set Base = New Connection
    'Ouverture de la base de données
        Base.ConnectionString = "Provider=Microsoft.Jet.oledb.4.0;Data Source=base.mdb;Jet OLEDB:Database Password=lema2006;"
        Base.Open
        Set Requete = New Recordset
        Requete.ActiveConnection = Base


End sub

Dans le form unload je ferme la base.

C'est bien de laisser ouvert en permanence ou il faut ouvrir et fermer a chaque requete ?

Ensuite dans mes formulaire je fais des requetes un peu partout, pour le moment des INSERT et SELECT.

Dans le bouton ajout :

SQL = "INSERT INTO Personnes (civilité,nom,nom_jeune_fille,prénom,date_entrée,actif,essai,payé,type_emploi,atelier_num_personne) VALUES ('" & cmb_civilité.Text & "','" & txt_nom.Text & "','" & txt_nom_djf.Text & "','" & txt_prénom.Text & "','" & txt_date_entrée.Text & "','" & chk_actif.Value & "','" & chk_essai.Value & "','" & chk_payé.Value & "','" & cmb_type_emploi.Text & "','" & num_atelier & "')"
    
 Requete.Open SQL, , adOpenDynamic, adLockPessimistic

Requete.Close
SQL = "SELECT MAX(Num) as Num_personne FROM Personnes"
 
Requete.Open SQL, , adOpenDynamic, adLockPessimistic

    Dim Num_personne As Integer
    Num_personne = Requete!Num_personne
   Requete.Close

J'ai des erreur ou Requete.Close

Il faut bien fermer a la fin de chaque requete ?

Une variable de requete est sufissante pour tout un programme ?

Merci d'avance pour vos infos

tof008 · Answer

Il me semble que tu n'est pas obligé de tout le temps fermer. Essaie de voir avec les AdLock a quoi il ervent. Il me semble que ca ferme dejà les requetes.... A voir...

(Si la réponse vous convient, appuyez sur réponse acceptée...)

Il y a plusieurs facon d'être con ,mais un con choisit toujours la pire< body>

Renfield · Answer

il est preferable de fermer les recordset.

Renfield
Admin CodeS-SourceS- MVP Visual Basic

Robinwood01 · Answer

Merci, je vais regarder cependant quand j'enlève tous les requete.close, il me donne une erreur comme quoi il est déjà ouvert.

Sinon j'ai vue que l'on pouvais faire :

Base.Execute(SQL)

Au lieu de : Requete.Open SQL, , adOpenDynamic, adLockPessimistic

J'arrive pour le insert mais pas encore pour le SELECT encore ...

Renfield · Answer

non, normal, c'est pour les requetes qui ne renvoient pas de données....( INSERT, DELETE, UPDATE....)

Renfield
Admin CodeS-SourceS- MVP Visual Basic

Quel méthode de connexion pour une base access ?

12 réponses

Votre réponse

Discussions similaires