[vb6] requete sql
Fermé
predateur
Messages postés
73
Date d'inscription
lundi 22 mars 2004
Statut
Membre
Dernière intervention
20 février 2008
-
26 juil. 2006 à 03:48
predateur Messages postés 73 Date d'inscription lundi 22 mars 2004 Statut Membre Dernière intervention 20 février 2008 - 27 juil. 2006 à 16:52
predateur Messages postés 73 Date d'inscription lundi 22 mars 2004 Statut Membre Dernière intervention 20 février 2008 - 27 juil. 2006 à 16:52
A voir également:
- [vb6] requete sql
- Vb6 - Télécharger - Divers Utilitaires
- Logiciel sql - Télécharger - Bases de données
- Requete sql pix ✓ - Forum MySQL
- Requête sql date supérieure à ✓ - Forum Programmation
- Il y a eu un problème avec cette requête. nous travaillons à sa résolution aussi vite que nous le pouvons. - Forum Facebook
4 réponses
Lust
Messages postés
243
Date d'inscription
mercredi 28 septembre 2005
Statut
Membre
Dernière intervention
12 septembre 2007
123
26 juil. 2006 à 05:20
26 juil. 2006 à 05:20
Essais avec ca :
WHERE iif( T11.T118<>T12.T128 ; 1 ; 0) = 1
WHERE iif( T11.T118<>T12.T128 ; 1 ; 0) = 1
predateur
Messages postés
73
Date d'inscription
lundi 22 mars 2004
Statut
Membre
Dernière intervention
20 février 2008
3
26 juil. 2006 à 16:52
26 juil. 2006 à 16:52
j'ai essayé merci, et j'obtiens une erreur de sintaxe:
<Message> in query expression <expression>. (Error 3075)
pour ton code, t'as du faire une erreur sur le iif>if
mais bon j'ai essayé les deux on sait jamais.
<Message> in query expression <expression>. (Error 3075)
pour ton code, t'as du faire une erreur sur le iif>if
mais bon j'ai essayé les deux on sait jamais.
predateur
Messages postés
73
Date d'inscription
lundi 22 mars 2004
Statut
Membre
Dernière intervention
20 février 2008
3
27 juil. 2006 à 00:58
27 juil. 2006 à 00:58
up
predateur
Messages postés
73
Date d'inscription
lundi 22 mars 2004
Statut
Membre
Dernière intervention
20 février 2008
3
27 juil. 2006 à 16:52
27 juil. 2006 à 16:52
pour info, voici mon code d'exportation:
Private Sub Command1_Click()
Dim SiteSta As Recordset
Dim NbrImageSiteSta As Integer
Dim T11, T12, T13, T14 As String
Dim T61, T62, T63, T64, T65, T66, T67, T68 As String
Dim T126, T128 As String
Dim T116, T118 As String
Dim chemindataexport_asciiSiteSta As String
Dim nom_fichier As String
nom_fichier = InputBox("Saisissez le nom du fichier à créer", "CHOIX DU NOM DU FICHIER", "" )
If nom_fichier <> "" Then
chemindataexport_asciiSiteSta = App.Path + "\" + nom_fichier & ".csv"
Else
Exit Sub
End If
requete = "Select T1.T11, T1.T12, T1.T13, T1.T14, T6.T62, T6.T63, T6.T64, T6.T66, T6.T67, T6.T68, T11.T116, T11.T118, T12.T126, T12.T128 From T1 Inner Join (T6 Inner Join (T12 inner join T11 On T12.T122=T11.T112) on T6.T61=T12.T122) On T1.T11=T6.T61 WHERE T11.T118<>T12.T128 "
Set SiteSta = gCurrentDB.OpenRecordset(requete)
NbrImageSiteSta = SiteSta.RecordCount
If NbrImageSiteSta > 0 Then
Open chemindataexport_asciiSiteSta For Output As #1
SiteSta.MoveFirst
Do While Not SiteSta.EOF
If SiteSta("T11" ) <> "" Then T11 = CStr(SiteSta("T11" ))
If SiteSta("T12" ) <> "" Then T12 = CStr(SiteSta("T12" ))
If SiteSta("T13" ) <> "" Then T13 = CStr(SiteSta("T13" ))
etc...
stringtempA = T11 + ";" + T12 + ";" etc...
stringtempSiteSta = stringtempA
Print #1, stringtempSiteSta
SiteSta.MoveNext
Loop
MsgBox "Fichier exporté avec succès"
SiteSta.Close
Close #1
Else
Exit Sub
End If
End Sub