Vb6 et bd access 2002/2000
Fermé
pagna94
Messages postés
51
Date d'inscription
mardi 4 mars 2003
Statut
Membre
Dernière intervention
5 mai 2004
-
5 juin 2003 à 12:33
sam3000 Messages postés 1225 Date d'inscription mercredi 22 décembre 2004 Statut Membre Dernière intervention 13 juin 2005 - 30 déc. 2004 à 16:13
sam3000 Messages postés 1225 Date d'inscription mercredi 22 décembre 2004 Statut Membre Dernière intervention 13 juin 2005 - 30 déc. 2004 à 16:13
A voir également:
- Vb6 et bd access 2002/2000
- Vb6 - Télécharger - Divers Utilitaires
- Exemple base de données access à télécharger gratuit - Forum Access
- Scan bd ✓ - Forum Loisirs / Divertissements
- Mysqli::real_connect(): (hy000/2002): aucune connexion n’a pu être établie car l’ordinateur cible l’a expressément refusée. - Forum PHP
- Lou bd scan - Forum Liseuse eBook
4 réponses
Utilisateur anonyme
5 juin 2003 à 14:30
5 juin 2003 à 14:30
Eh ben faut faire un truc dans le genre (sous le VB de Access 2000):
Dim rs As Recordset
Dim con As Object
Dim req As String
Set con = New Application.CurrentProject.Connection
req = "ta requete"
Set rs = CreateObject("ADODB.Recordset")
rs.OpenRecordset req, con
Et apres tu regardes les methodes associees aux Recordset (MoveNext, Fields(index), ...)
Bonne chance!!!
Fat_Cartman,
Parce que je le vaux bien...
Dim rs As Recordset
Dim con As Object
Dim req As String
Set con = New Application.CurrentProject.Connection
req = "ta requete"
Set rs = CreateObject("ADODB.Recordset")
rs.OpenRecordset req, con
Et apres tu regardes les methodes associees aux Recordset (MoveNext, Fields(index), ...)
Bonne chance!!!
Fat_Cartman,
Parce que je le vaux bien...
Bonjour,
Lorsque je souhaite ouvrir une base Access 2000 sous
Access 2002, le message d'erreur suivant apparait :
"une erreur s'est produite au cours du chargement
de 'Form-lot2'. Voulez-vous continuer le chargement du
projet ?"
Savez-vous comment résoudre ce problème ?
Merci d'avance.
Jean-Yves.
Lorsque je souhaite ouvrir une base Access 2000 sous
Access 2002, le message d'erreur suivant apparait :
"une erreur s'est produite au cours du chargement
de 'Form-lot2'. Voulez-vous continuer le chargement du
projet ?"
Savez-vous comment résoudre ce problème ?
Merci d'avance.
Jean-Yves.
Bonjour,
Lorsque je souhaite ouvrir une base Access 2000 sous
Access 2002, le message d'erreur suivant apparait :
"une erreur s'est produite au cours du chargement
de 'Form-lot2'. Voulez-vous continuer le chargement du
projet ?"
Savez-vous comment résoudre ce problème ?
Merci d'avance.
Jean-Yves.
Lorsque je souhaite ouvrir une base Access 2000 sous
Access 2002, le message d'erreur suivant apparait :
"une erreur s'est produite au cours du chargement
de 'Form-lot2'. Voulez-vous continuer le chargement du
projet ?"
Savez-vous comment résoudre ce problème ?
Merci d'avance.
Jean-Yves.
Salut,
J'ai besoin d'aide pour ouvrir un fichier à partir de vb6 avec l'option openfiledialog.Si vous pouvez m'aifez veuillez m'envoyer la reponse à mon adresse.
Merci
J'ai besoin d'aide pour ouvrir un fichier à partir de vb6 avec l'option openfiledialog.Si vous pouvez m'aifez veuillez m'envoyer la reponse à mon adresse.
Merci
sam3000
Messages postés
1225
Date d'inscription
mercredi 22 décembre 2004
Statut
Membre
Dernière intervention
13 juin 2005
144
30 déc. 2004 à 16:13
30 déc. 2004 à 16:13
t'as pas mis ton adresse, donc je repond ici:
1. tu cree une Feuille (si aucune n'existe)
2. tu ajoute au projet (barre d'outils gauche\composants) le composant : "Microsoft Common Dialog Control 6.0",
3. tu place un composant "CommonDialog" sur la feuille,
4. ajoute un bouton "Command1" et une boite texte "Text1"
5. ajoute le code suivant dans la feuille et execute:
L'erreur est humaine mais un véritable désastre
ne peut être qu'informatique.
1. tu cree une Feuille (si aucune n'existe)
2. tu ajoute au projet (barre d'outils gauche\composants) le composant : "Microsoft Common Dialog Control 6.0",
3. tu place un composant "CommonDialog" sur la feuille,
4. ajoute un bouton "Command1" et une boite texte "Text1"
5. ajoute le code suivant dans la feuille et execute:
Private Sub Command1_Click() Text1.Text = select_file(Text1.Text) End Sub Private Function select_file(ByVal filename As String) As String Dim p As Long On Error Resume Next With CommonDialog1 .filename = filename .filter = "Tout |*.*" .CancelError = True .Flags = 0 Err = 0 .ShowOpen select_file = .filename End With End Function Private Sub Form_Load() Text1.Text = "" End Sub
L'erreur est humaine mais un véritable désastre
ne peut être qu'informatique.