AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 11 18:08:34
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

1 commentaire(s) de tchicken sur des sources sur tout CodeS-SourceS

Le : 07/12/2005 19:41:24
Source : AFFICHER TOUS LES NOM D'UNE BASE DE DONNÉE
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




Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Appels d'offres

Comparez les prix Nouvelle version


LG KP501
Entre 9€ et 159€


Visiter le guide achat

Photothèque Nouveau !

Photo pretty girlsPhoto homme nu
Photo plage de nudistesPhoto going camping

Visiter la photothèque


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,047 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.