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
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
https://codes-sources.commentcamarche.net/source/8046-afficher-tous-les-nom-d-une-base-de-donnee
7 déc. 2005 à 19:41
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
28 juil. 2003 à 23:43
28 juil. 2003 à 20:58
28 juil. 2003 à 09:09
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".
27 juil. 2003 à 23:12
27 juil. 2003 à 21:32
Celui-ci pense que le fichier n'est pas dans un format correct ou qu'il est corrompu ou bien encore qu'il s'agit d'un fichier d'une source multi-archives.