VB6 et bdd access enreseau

Question

Bonjour
Je suis débutant,j'ai un problème comment connecter une bbd access en réseau (syntaxe)
Clermont

lolokun · Answer

Bonjour,

As-tu effectué des recherches sur le site, as-tu téléchargé des sources pour t'en inspirer?

Un site utile pour les chaines de connexion ici


L'expérience, c'est une connerie par jour, mais jamais la même..

satamoni1982 · Answer

Bonjour 
voila ce code Permet de manipulé une Base de donnee BD.mdb (Ajouter Supprmé ...)
ouvrir un nouveau Projet VB6 cree Trois Fichier Text et 4 bouton Command



Private Sub Form_Load()
cnx.Provider = "Microsoft.Jet.OLEDB.4.0"
      'Définition de la chaîne de connexion
cnx.ConnectionString = App.Path + "\bd2.mdb"
      'Ouverture de la base de données
cnx.Open
rst.LockType = adLockOptimistic
      'puis on execute des requetes
rst.Open "SELECT * FROM IdAgent", cnx
  
    Text1 = rst!Matricule
    Text2 = rst!Nom
    Text3 = rst!Grade
End Sub
Dim cnx As New ADODB.Connection
Dim rst  As New ADODB.Recordset


Private Sub ajouter_Click()
 'requet sql Pour ouvrir la connection et Selectionne le table IdAgent
rst.AddNew                                'entree un nouveau enregistrement
rst![Matricule] = Text1.Text              'affectation des colonne de la base par les zontext
rst![Nom] = Text2.Text
rst![Grade] = Text3.Text
rst.Update                                'mise a jour!



End Sub
 

Private Sub Supprimé_Click()
rst.Delete                                'entree un nouveau enregistrement

rst.Update
End Sub

Private Sub Precedent_Click()
On Error GoTo eror


rst.MovePrevious
Text1 = rst!Matricule
Text2 = rst!Nom
Text3 = rst!Grade



eror:
If rst.BOF = True Then
MsgBox "Pas D'autre Enregistrement"
End If
End Sub
Private Sub Next_Click()
On Error GoTo eror
rst.MoveNext
Text1 = rst!Matricule
Text2 = rst!Nom
Text3 = rst!Grade
eror:
If rst.EOF = True Then
MsgBox "Pas D'autre Enregistrement"
End If
End Sub
Private Sub first_Click()


rst.MoveFirst
Text1 = rst!Matricule
Text2 = rst!Nom
Text3 = rst!Grade

End Sub

Private Sub Last_Click()


rst.MoveLast
Text1 = rst!Matricule
Text2 = rst!Nom
Text3 = rst!Grade

End Sub

cs_ghuysmans99 · Answer

Il faut qu'elle se situe dans un répertoire partagé. Mais tu auras des problèmes si vous êtes à plusieurs à modifier en même temps des données dans la base ... Utilise MySQL ou MSSQL

VB.NET is good ... VB6 is better
Utilise Réponse acceptée quand un post répond à ta question

LWIZTI · Answer

bonjour,
ghuysmans99 pouvez vous m'expliquer comment faire avec 1 petit exemple svp?

cs_ghuysmans99 · Answer

@LWIZTI : crée un nouveau topic pour ça. Suffit d'installer MySQL et le driver ODBC, puis ça s'utilise comme Access
(avec quand même quelques différence syntaxiques mais ce n'est pas insurmontable)

VB.NET is good ... VB6 is better
Utilise Réponse acceptée quand un post répond à ta question

VB6 et bdd access enreseau

5 réponses

Votre réponse

Discussions similaires