Soyez le premier à donner votre avis sur cette source.
Vue 17 391 fois - Téléchargée 1 451 fois
Private Sub Command1_Click() Dim requete As String ' Variable caractère pour la requette SQL Dim strConnection As String ' Variable pour l'ouverture de la base Dim resultat As Recordset ' Résultat prendra la valeur de la requette "Recordset" "Set resultat = base.OpenRecordset(requete)" Dim base As Database ' variable qui récupère la base de donnée a son ouverture par strConnection "Set base = OpenDatabase(strConnection)" ' Ouverture de la base strConnection = "chemin de la base de donnée" ' Ex: "C:\...." ' Requette SQL générée dans ACCESS If Len(NumCli) > 0 Then ' Si la longueur du numéro du client entrée dans le champs texte "NumCli" est > 0 alors on exécute la requette requete = "SELECT TabClient.NomCli, TabClient.PrenomCli, TabClient.AdresseCli, " requete = requete & " TabCompte.NumCompt, TabCompte.NumChec" requete = requete & " FROM TabClient INNER JOIN TabCompte ON TabClient.NomCli = TabCompte.NomCli" requete = requete & " WHERE TabClient.NumeroCli= '" & Trim(NumCli.Text) & "'" ' La requette est découpée dans son fonctionnement mais attention a mettre un éspace à partir de la deuxième concaténation ' Ex : equete & " TabCompte.NumCompt, TabCompte.NumChec" ' !---! Set base = OpenDatabase(strConnection) ' La variable base récupère la base de donnée ouverte par strConnection ' Résultat prend la valeur de la requette Set resultat = base.OpenRecordset(requete) ' recordset est le résultat de recordSource If resultat.EOF = False Then ' Si le resultat de la requette sur la table n'est pas égal à la fin du fichier alors resultat.MoveLast ' Le pointeur se place a la fin de la table NomCli.Text = resultat.Fields(0).Value ' 0 pour le premier champs de "requete" a savoir "TabClient.NomCli" PrenCli.Text = resultat.Fields(1).Value AdrCli.Text = resultat.Fields(2).Value NumCompt.Text = resultat.Fields(3).Value NumChek.Text = resultat.Fields(4).Value NomCompt.Text = resultat.Fields(0).Value Else mnuNewCli_Click ' Si le numéro n'est pas bon on éfface les champs MsgBox "Ce compte n'éxiste pas.", vbOKOnly + vbExclamation End If End If End Sub
25 mai 2004 à 16:03
Private Workspace As Workspace
Private Database As Database
Private dbMaTable As RecordSet
----------------------------------------
Private Sub Form_Load()
'Création d'un accès à une base de donnée
Set dbWorkspace = DBEngine.Workspaces(0)
Set dbDatabase = dbWorkspace.OpenDatabase(App.Path & "\mabasededonnee.mdb")
Set dbMaTable = dbDatabase.OpenRecordset("nom_de_ma_table", dbOpenTable)
End Sub
10 mai 2003 à 18:14
Merci de ton aide
26 févr. 2003 à 11:21
30 déc. 2002 à 14:36
24 mai 2002 à 12:11
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.