AFFICHER TOUS LES NOM D'UNE BASE DE DONNÉE

cs_PROGRAMMIX

Messages postés: 1133
Date d'inscription: mercredi 2 octobre 2002
Statut: Membre
Dernière intervention: 24 juillet 2011

- 27 juil. 2003 à 21:32
cs_tchicken

Messages postés: 3
Date d'inscription: lundi 25 février 2002
Statut: Membre
Dernière intervention: 14 décembre 2005

- 7 déc. 2005 à 19:41

Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/8046-afficher-tous-les-nom-d-une-base-de-donnee

cs_tchicken

Messages postés: 3
Date d'inscription: lundi 25 février 2002
Statut: Membre
Dernière intervention: 14 décembre 2005

7 déc. 2005 à 19:41

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

28 juil. 2003 à 23:43

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

7
28 juil. 2003 à 20:58

ZIP Décédé .... dommage

cs_PROGRAMMIX

Messages postés: 1133
Date d'inscription: mercredi 2 octobre 2002
Statut: Membre
Dernière intervention: 24 juillet 2011

3
28 juil. 2003 à 09:09

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

27 juil. 2003 à 23:12

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

Afficher les 6 commentaires