Afficher tous les nom d'une base de donnée

Soyez le premier à donner votre avis sur cette source.

Vue 3 390 fois - Téléchargée 494 fois

Description

un code qui sert a afficher tous les nom qui se trouvre dans une base de donner et aussi il y a une recherche avec seek sauf que sa ne veux pas fontionner pour l'instant si quelqu'un le trouvre qu'il me fais savoir merci

Conclusion :


je vais essayer de trouver le pourquoi le seek marche pas

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_tchicken
Messages postés
3
Date d'inscription
lundi 25 février 2002
Statut
Membre
Dernière intervention
14 décembre 2005
-
Bonjour, après 2 jours de recherche internet, c'est microsoft qui m'a donné la solution :

Sub UpdRChevauxCotes(Numero As Integer, cote11h As Single, coteDef As Single)

Dim MyCle1 As Variant
Dim MyCle2 As Variant
Dim MyCle3 As Variant
Dim MyBool As Boolean
Dim mystr As String


On Error GoTo adoerror:

MyCle1 = Reunion
MyCle2 = NumCourse
MyCle3 = Numero

Set RChevaux = New ADODB.Recordset

With RChevaux
'Select the index used in the recordset.
.Index = "PrimaryKey"

'Set the location of the cursor service.
.CursorLocation = adUseServer

'Open the recordset.
.Open "Chevaux", cn, adOpenKeyset, adLockOptimistic, adCmdTableDirect

'Find the customer order where OrderID 10255 and ProductID 16.
.Seek Array(MyCle1, MyCle2, MyCle3), adSeekFirstEQ

'If a match is found, print the quantity of the customer order.
If Not RChevaux.EOF Then
RChevaux!cote11h = CSng(cote11h)
RChevaux!coteDef = CSng(coteDef)
RChevaux.Update
End If
End With

RChevaux.Close
Set RChevaux = Nothing

Exit Sub

adoerror:

MsgBox ("Erreur de mise à jour de la cote du cheval " & Numero & " de la course " & NumCourse)
Call EcritSurEcran("Erreur de mise à jour de la cote du cheval " & Numero & " de la course " & NumCourse & vbCrLf)

RChevaux.Close
Set RChevaux = Nothing

FlagErr = True

End Sub
cs_temoin
Messages postés
59
Date d'inscription
samedi 18 janvier 2003
Statut
Membre
Dernière intervention
30 octobre 2006
-
bon la je remis la source et je le telecharger pour voir si il marche, il marche très bien et si tu as la misère a le dezipper je peux rien aplus
Tilois
Messages postés
721
Date d'inscription
dimanche 10 juin 2001
Statut
Membre
Dernière intervention
27 mars 2011
4 -
ZIP Décédé .... dommage
cs_PROGRAMMIX
Messages postés
1134
Date d'inscription
mercredi 2 octobre 2002
Statut
Membre
Dernière intervention
24 juillet 2011
-
Malheureusement, ce truc ne marche pas.

En effet, ton ZIP (ou RAR) est vide et ne contient aucun fichier.
Pour preuve, clique sur "Voir le contenu du fichier ZIP" ci-dessus dans la "fiche signalétique" de ta source.

J'en déduis que le tour de passe-passe que tu as fait, ne convient pas pour télécharger les fichiers sur le site et qu'il faut absolument des fichiers au format ZIP "pur et dur".
cs_temoin
Messages postés
59
Date d'inscription
samedi 18 janvier 2003
Statut
Membre
Dernière intervention
30 octobre 2006
-
mon programme a été zipper avec winrar et pour le mettre ici je changer l'exten .rar en .zip puisque ce site accepte que le .zip vous avez juste a changer l'extention pour le dezipper

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.

Du même auteur (cs_temoin)