Probleme de sélection des données ADO DAO - Base de données / ADO & DAO, Visual Basic, VB6, VB.NET, VB 2005, VB

Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2008 12 05 05:57:08

[OPENXML4J] THE FUTURE OF OPENXML4J par neodante

[OPENXML4J] UTILISER OPENXML4J OU POI POUR SES PROJETS JAVA AVEC OPEN XML : L'AVENIR DU PROJET OPENXML4J par neodante

LA NOTION DE CLASSE ABSTRAITE EN PHP5 par orion

ZUNE : SLIDESHOW LORS DE LA LECTURE DEPUIS LE ZUNE SOFTWARE par ROMELARD Fabrice

PROTéGEZ VOS ENFANTS D'INTERNET par orion

RE : IDENTIFIER UN RACCOURCI POUR AVOIR LE CHEMIN COMPLET DE L'ORIGIANL par binet1

LISTBOX par monopole

RE : SELECTFOLDER ... par PCPT

RE : PERMUTATIONS DE TABLEAU par drillerdolls

COMMENT PROGRAMMER UN DATETIMEPICKER POUR OBTENIR UNE PLAGE DE RV SUR PLUSIEURS JOURS ? par nono78220

+ de logiciels à télécharger

1 303 891 membres
71 nouveaux aujourd'hui
14 559 membres club

Trouver une ressource

Trouvez une ressource parmi 39 091 codes, 1 209 460 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

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 !

Poser une question

Sujet : Probleme de sélection des données ADO DAO [ Base de données / ADO & DAO ] (misafredo)

Informations & options pour cette discussion

Vous êtes ici : Thèmes / Visual Basic 6 / Base de données / ADO & DAO / Probleme de sélection des données ADO DAO
Ce sujet vous interesse ? Cliquez ici pour être averti quand il y a une nouvelle réponse

lundi 30 juin 2008 à 11:11:18 | Probleme de sélection des données ADO DAO

misafredo

Bonjour
   j'ai selectionné une table a quelque champs (entre 10 a  20) pas de probleme,mais si j'ai essaié avec une autre table a 130 champs j'ai le message d'erreur "La requête est trop complexe "
==============
Set RsAccessB = New ADODB.Recordset
With Form1
            For i = 0 To .List6.ListCount - 1
            If Not IsNull(RsAccessA(i)) Then
                CriterFiltreProd_B(i) = RsAccessA(i)
                Else
                CriterFiltreProd_B(i) = ""
                End If
            Next i
                SQLB = "SELECT [" & .List6.List(0) & "]"
            If .List6.ListCount > 1 Then
                 For i = 1 To .List6.ListCount - 1
        SQLB = SQLB & ",[" & .List6.List(i) & "]"
           Next i
           End If
        SQLB = SQLB & " FROM " & Nom_Table_Desti & " WHERE ("

        SQLB = SQLB & "([" & .List6.List(0) & "]= '" & CriterFiltreProd_B(0) & "')"

        If .List6.ListCount > 1 Then
           For i = 1 To .List6.ListCount - 1
        SQLB = SQLB & "And ([" & .List6.List(i) & "]= '" & CriterFiltreProd_B(i) & "')"
        Next i
        End If
        SQLB = SQLB & ")"

           SQLB = SQLB & " ORDER BY "
           If .List6.ListCount > 1 Then
           For i = 1 To .List6.ListCount - 1
           SQLB = SQLB & "[" & .List6.List(i) & "],"
           Next i
           End If
           SQLB = SQLB & "[" & .List6.List(0) & "];"
    End With

    RsAccessB.Open SQLB, CnAccessB, adOpenDynamic, adLockPessimistic
================
mercie

Cette discussion est classé dans : list, listcount, if, sqlb, list6

Répondre à ce message

Sujets en rapport avec ce message

list.listcount [ par babouche ] lu,bah voila list.listcount n'a pas lair de pouvoir depasser quelques 25000. Si la quantité délements est trop grande il me met des chiffres negatifs Accéder a un objet a partir de son nom [ par Vianneyp ] Bonsoir,Je vais devoir solliciter votre aide une fois encore :)J'ai crée un control personnalisé et j'en ai disposé un certain nombre une feuille. Ma macro pour le controle de gestion [ par nhanvin ] Bonjour, Actuellement en apprentissage en controle de gestion, je dois modifier une macro sous VB. Cette partie de code me permet d'obtenir un tableau extraire une chaine d'un fichier texte [ par moslem ] Bonjour,J'ai un fichier texte sous la forme suivante :===================exp1 | exp2 | exp3exp4 | exp5 | exp6exp7 | exp8 | exp9.....================== Enchainer les fonction [ par medeuy ] bonjour, j'aimerai savoir si il existe un code VBA sous excel pour enchainer deux fonction l'une après l'autre.Merci Dim reponse As BooleanDim repon compter le nombre d'enregistrement [ par mannanaesc ] bj. svp je veux avoir le nombre d'enregistrement dans une base de donnée access pour l'utiliser avec vb6.g essayé ce bloc mé il maffiche tjs la meme v probleme end if [ par eastpeople ] Bonjour, j'ai un problème j'arrive pa a fermer une boucle if sur ce code,je ne sais pas ou mettre le end if.Private Sub OK_Click()If choix_act = "" Th Problème pour remplir un tableau [ par FCNAlex ] Bonjour, Je suis actuellement en stage et je dois développer un petit outil pr un suivi de temps de changement de série.J'utilise donc VB pour remplir Comparer cellule et label [ par drik56 ] Bonjour,Je cherche a comparer la valeur d'une cellule de mon tableau excel et la valeur contenue dans un label de ma USF dans un IF.J'ai :If Workshee