Vb6 et bd access 2002/2000
Salut, j'ai un souci, en fait je voudrait faire une requete sur une bd access 2002/2000 mais j'ai beau essayer je ne trouve pas la bonne méthode pour effectuer une requete dessus, j'ai toujours un message du type la close from est valide.
Pagna
Pagna
4 réponses
-
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... -
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. -
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. -
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-
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:
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.
-
