Dépannage pour 'pilote isam introuvable'

Soyez le premier à donner votre avis sur cette source.

Snippet vu 21 844 fois - Téléchargée 38 fois

Contenu du snippet

C'est ma première source mais bon cela n'en est pas tout à fait une.
Pour tout ce qui rencontre un problème avec l'affichage 'Pilote ISAM introuvable' voici une solution qui fonctionne chez moi (VB6+ACCESS2000+RUNTIME2000).
Voici la procédure :
Création d'un nouveau form. Création d'un data1 avec la propriété connect : Access2000 et c'est tout!
Ensuite création d'un BDcombo1 par exemple. Dans les propriétés rentrer les suivantes :
Rowsource : data1 l
istefield : ce que vous voulez...
Pour le reste je vous laisse faire, je veux dire vous mettez ce que vous voulez dans votre form...
Par contre là ou ça devient intéressant c'est dans le code du form.
Voici le code à rentrer:

Source / Exemple :


Option Explicit
Private daoDB36 As Database
Private rs As DAO.Recordset
Dim sPath As String
Private Sub Form_Load()
sPath = _
"(Chemin de votre base en 2000 et nom du fichier.mdb)"
Set daoDB36 = DBEngine(0).OpenDatabase(sPath)
Set rs = daoDB36.OpenRecordset("REG")
Set Data1.Recordset = rs
End Sub

Conclusion :


Et voilà, ce n'est pas si sorcier que ça. Alors après je ne sais pas trop si on peut mettre tout ça dans des modules pour faciliter la diffusion dans tout le programme mais c'est déjà un bon dépannage.
Merci de vos remarques, je suis preneur.

A voir également

Ajouter un commentaire

Commentaires

cs_Kounta
Messages postés
9
Date d'inscription
samedi 15 novembre 2003
Statut
Membre
Dernière intervention
21 mars 2008
1 -
De mon côté, mes contrôles Data étaient connectés en Access2000 (par défaut), alors que ma bdd est sous Access97. Je les aient mis en Access simple et le probleme de pilotes ISAM a été résolu.
nisbaoui
Messages postés
2
Date d'inscription
jeudi 20 octobre 2005
Statut
Membre
Dernière intervention
5 janvier 2007
-
pour ph 35
installer le sp6 et ça va marcher§§
:)
cs_ph35
Messages postés
27
Date d'inscription
vendredi 4 mars 2005
Statut
Membre
Dernière intervention
12 février 2006
-
Moi aussi j'ai installé sp5 pour vb6 mais je n'ai toujours pas Access2000 dans ma propriété connect!
Quelqu'un a une idée pour résoudre mon problème?
apaulux
Messages postés
73
Date d'inscription
mardi 16 novembre 2004
Statut
Membre
Dernière intervention
2 octobre 2009
-
si ton controle Data s'appelle Data1

Private Sub Data1_Validate(Action As Integer, Save As Integer)
Select Case Action
Case vbDataActionMoveFirst
' Ne fait rien.
Case vbDataActionMovePrevious
' Ne fait rien.
Case vbDataActionMoveNext
' Ne fait rien.
Case vbDataActionMoveLast
' Ne fait rien.
Case vbDataActionAddNew
' Ne fait rien.
Case vbDataActionUpdate
' S'est déplacé vers le code de l'événement cmdUpdate_click.
Case vbDataActionDelete
' Ne fait rien.
Case vbDataActionFind
' Définit l'indicateur pour l'utiliser dans l'événement Reposition.
mbJustUsedFind = True
Case vbDataActionBookmark
' Ne fait rien.
Case vbDataActionClose, vbDataActionUnload
If Save Then
Save = False
End If
End Select
End Sub

Sub ConfigureData()
Dim DB As DAO.Database, RS As DAO.Recordset, xx As Integer
Set DB = OpenDatabase(, False, gnReadOnly, sConnect)
Set RS = DB.OpenRecordset("Clients")
Data1.DatabaseName = "C:\Documents and Settings\paul\Bureau\Comptoir.mdb"
Set Data1.Recordset = RS
' Data1.RecordSource = "Clients"
' Data1.RecordSource = "SELECT DISTINCTROW * FROM [Clients]"
' Data1.Recordset.MovePrevious
' Data1.Recordset.MoveFirst
' Data1.Recordset.MoveLast
' Data1.Recordset.MoveNext
End Sub

Private Sub cmdadd_Click()
With Data1.Recordset
.AddNew
!Code client = [txt_Code client].txt
!Société = [txt_Société].txt
!Contact = [txt_Contact].txt
!Fonction = [txt_Fonction].txt
!Adresse = [txt_Adresse].txt
!Ville = [txt_Ville].txt
!Région = [txt_Région].txt
!Code postal = [txt_Code postal].txt
!Pays = [txt_Pays].txt
!Téléphone = [txt_Téléphone].txt
!Fax = [txt_Fax].txt
.Update
End With
End Sub



http://multibases.site.voila.fr
apaulux
Messages postés
73
Date d'inscription
mardi 16 novembre 2004
Statut
Membre
Dernière intervention
2 octobre 2009
-
pour les controles data a partir de acess 2000
c'est a toi de programmer sa configuration.
en pricincipe il n'y a aucune difficulte

paul

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.