begin process at 2010 02 10 17:27:16
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Archive Visual Basic & VB.NET

 > 

Archives Visual Basic

 > 

Texte

 > 

Aide a propos de Sql


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

Aide a propos de Sql

vendredi 11 avril 2003 à 10:07:38 | Aide a propos de Sql

HammerHeads

voila j ai quelque petit probleme avec le sql en VB
j ai du mal a avoir les information contenue dans ma requète sql

voici comment j ai fait :

pour crée ma requete sql ça sa fonctionne :

Sql = "TRANSFORM " & Operateurs(OP) _
& "(" & comboTable.Text & "." & comboChampCellule.Text & ")"

If OP = 0 Then
Sql = Sql + " AS SommeDe" & comboChampCellule.Text
sOP = "SommeDe"
ElseIf OP = 1 Then
Sql = Sql + " AS MoyenneDe" & comboChampCellule.Text
ElseIf OP = 2 Then
Sql = Sql + " AS CompteDe" & comboChampCellule.Text
ElseIf OP = 3 Then
Sql = Sql + " AS MinDe" & comboChampCellule.Text
Else
Sql = Sql + " AS MaxDe" & comboChampCellule.Text
End If
Sql = Sql & " SELECT " & comboTable.Text & "." & comboChampLigne.Text
Sql = Sql & " FROM " & comboTable.Text

If Filtre = 1 Then
Sql = Sql + " WHERE( " & textSelection & " <" & textoperation & " )"
ElseIf Filtre = 2 Then
Sql = Sql + " WHERE( " & textSelection & " >" & textoperation & " )"
ElseIf Filtre = 3 Then
Sql = Sql + " WHERE( " & textSelection & " =" & textoperation & " )"
ElseIf Filtre = 4 Then
Sql = Sql + " WHERE( " & textSelection & " >" & textoperation & " AND " & textSelection & " <" & textoperation2 & " )"
End If

Sql = Sql + " GROUP BY " & comboTable.Text & "." & comboChampLigne.Text
Sql = Sql & " PIVOT " & comboTable.Text & "." & comboChampColonne.Text

et pour le affiche le resultat je fait comme ceci:

Set Table = BD.OpenRecordset(Sql, dbOpenSnapshot)
Do Until Table.EOF
Set Item = ListViewResultat.ListItems.Add
Item.Text = Table(formPrincipal.comboChampLigne)

Table.MoveNext
Loop


le probleme est que je sais avoir les information pour le item.text mais apres je sais po comment faire pour avoir la suite des informations


si quelqu un pourrait m aidez pcq moi j ai tout essayé et je trouve plus rien

merci d avance
vendredi 11 avril 2003 à 10:44:38 | Re : Aide a propos de Sql

Bulbosaure


Bulbosaure

slt, une idée comme ça : tu ne devrais pas faire un Table.Movefirst avant de passer directement au suivant à la fin de ta boucle ?


-------------------------------
Réponse au message :
-------------------------------

> voila j ai quelque petit probleme avec le sql en VB
> j ai du mal a avoir les information contenue dans ma requète sql
>
> voici comment j ai fait :
>
> pour crée ma requete sql ça sa fonctionne :
>
> Sql = "TRANSFORM " & Operateurs(OP) _
> & "(" & comboTable.Text & "." & comboChampCellule.Text & ")"
>
> If OP = 0 Then
> Sql = Sql + " AS SommeDe" & comboChampCellule.Text
> sOP = "SommeDe"
> ElseIf OP = 1 Then
> Sql = Sql + " AS MoyenneDe" & comboChampCellule.Text
> ElseIf OP = 2 Then
> Sql = Sql + " AS CompteDe" & comboChampCellule.Text
> ElseIf OP = 3 Then
> Sql = Sql + " AS MinDe" & comboChampCellule.Text
> Else
> Sql = Sql + " AS MaxDe" & comboChampCellule.Text
> End If
> Sql = Sql & " SELECT " & comboTable.Text & "." & comboChampLigne.Text
> Sql = Sql & " FROM " & comboTable.Text
>
> If Filtre = 1 Then
> Sql = Sql + " WHERE( " & textSelection & " <" & textoperation & " )"
> ElseIf Filtre = 2 Then
> Sql = Sql + " WHERE( " & textSelection & " >" & textoperation & " )"
> ElseIf Filtre = 3 Then
> Sql = Sql + " WHERE( " & textSelection & " =" & textoperation & " )"
> ElseIf Filtre = 4 Then
> Sql = Sql + " WHERE( " & textSelection & " >" & textoperation & " AND " & textSelection & " <" & textoperation2 & " )"
> End If
>
> Sql = Sql + " GROUP BY " & comboTable.Text & "." & comboChampLigne.Text
> Sql = Sql & " PIVOT " & comboTable.Text & "." & comboChampColonne.Text
>
> et pour le affiche le resultat je fait comme ceci:
>
> Set Table = BD.OpenRecordset(Sql, dbOpenSnapshot)
> Do Until Table.EOF
> Set Item = ListViewResultat.ListItems.Add
> Item.Text = Table(formPrincipal.comboChampLigne)
>
> Table.MoveNext
> Loop
>
>
> le probleme est que je sais avoir les information pour le item.text mais apres je sais po comment faire pour avoir la suite des informations
>
>
> si quelqu un pourrait m aidez pcq moi j ai tout essayé et je trouve plus rien
>
> merci d avance
vendredi 11 avril 2003 à 10:57:55 | Re : Aide a propos de Sql

HammerHeads

Merci mais non en fait norm ma requete sql devrai donné ceci


COULEUR| 1 | 2 | 3 ......
-----------------------------------------
Rouge |
Vert |
bleu |

le prob c'est que j arrive po a avoir les element pour mettre ds les cellule de mon tableau
lundi 5 avril 2004 à 14:59:27 | Transfert d'une base PHP postgreSQL

colore

Bonjour,


Actuellement en stage, on m'a demandé de réfléchir au transfert d'une base de données PHP qui se situe en interne (Intranet) sur Internet.
Ne connaissant ni le PHP, ni Linux, je sais simplement que la base a été faite sur postgreSQL sous Linux. Quelqu'un peut-il me dire étape par étape comment faut-il faire pour copier la base (structure et données) et la mettre sur un serveur distant ?


Je vous remercie par avance.
jeudi 19 juillet 2007 à 18:07:14 | Re : Aide a propos de Sql

idrisidev

sdsdqsdqsdqsdsqdqsdqsdqsdqsdqsdsqdqsd



Cette discussion est classée dans : text, sql, op, combochampcellule, combotable


Répondre à ce message

Sujets en rapport avec ce message

Problème SQL [ par Evangelion ] J'exécute la requête SQL suivante avec un objet ADODC.Command. cmdContacts.CommandText = "SELECT * FROM Suivi WHERE Nom = '" & datcboNom.Text & "' AND Requete SQL [ par Baronoirzereal ] Re.... je dois aussi compter le nombre d'enregistrements dans une base SQLServer... Ma requête est donc:Select Count(DocId) From dbo.doc;Puis je dois apostrophe et SQL [ par reivon ] Voila, j'ai cette ligne de code dans mon prog :rsADO.Filter = "Nom like '" & Text10.Text & " * " & " '"ca marche parfait sauf si le sois disant text10 Import des fichiers text dans BD Sql Serveur 2k à partir de VB [ par LULU ] Bonjour!Je voudrais savoir comment faire(coder) pour importer des fichiers text dans une base de données SQL SERVER 2K à partir de VB?Merci! Probleme enregistrement dans 1 bd SQL [ par Roro ] Je réalise un projet VB avec une bd SQL, je dois en ce moment enregistrer des données dans une table. J'arrive à enregistrer dans la bse de données le Probleme enregistrement dans 1 bd SQL [ par Roro ] Je réalise un projet VB avec une bd SQL, je dois en ce moment enregistrer des données dans une table. J'arrive à enregistrer dans la bse de données le UPDATE error... [ par nd25 ] Voila,je dois convertir un prgm dao en ado...alors avec 1 base(access2000) bidon je fait des test...or je n'arrive pas à modifier des données...Ma bas sql server et datetime [ par oufben ] Bonjour,J'ai un vilain probleme de date avec sql server... J'ai vu que pas mal de gens ont ce probleme avec Access, mais j'ai bo essayer les conseils Problème de barre de chargement URGENT !!! [ par The Legende ] Bonjour à tous,Alors voilà je suis un super débutant en vb. Je m'y suis mis depuis 2h00 environ.Je voudrais faire une barre de chargement qui se lance Requete SQL Insert [ par gwiwi ] Bonjour,Voici ma requete SQl sur laquelle j'ai une erreur "trop peu de parametre, 3 attendus"sql = "insert into TEST (TEST,TEST1,TEST2) Values (" & Te


Nos sponsors


Sondage...

Comparez les prix


HTC Hero

Entre 550€ et 550€

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode

 
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

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,343 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales