[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

Bonjour, j'ai un petit problème avec une requête sql. J'ai fait un programme d'exportation des données de ma base sous access.

J'ai quatre tables, T1 T6 T11 et T12
Et les champs sont
TABLE T1: Champs T11, T12, T13, T14....
TABLE T6: Champs T61, T62, T63, T64...
etc..

Je veux exporter les données de la table T1 T6 et T12 mais pas T11 donc ma requete est:

requete = "Select T1.* , T6.*, T12.* From T1 Inner Join (T6 Inner Join T12 On T6.T61=T12.T122) On T1.T11=T6.T61 "

Ma condition, c'est qu'il faut que le champ T118 de la table T11 et T128 de la table T12 ne soit pas être égale, ne contiennent pas les même valeurs. Donc j'ai essayé:

en rajoute dans le selection T11.* et à la fin where T11.T118<>T12.T128

Et le problème c'est que lors de l'exportation, ca exporte même si certaines enregistrement du champs T118 et T128 sont égaux.

Je sollicite donc votre aide.
Merci d'avance

A voir également:

[vb6] requete sql
Vb6 - Télécharger - Divers Utilitaires
Blob sql ✓ - Forum Webmastering
Récupération serveur sql - Télécharger - Gestion de données
Sql lister les tables ✓ - Forum Programmation
Requête sql doublons sur 2 champs ✓ - Forum Programmation

4 réponses

Réponse 1 / 4

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

Essais avec ca :

WHERE iif( T11.T118<>T12.T128 ; 1 ; 0) = 1

Réponse 2 / 4

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

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.

Réponse 3 / 4

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

Réponse 4 / 4

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

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

Discussions similaires

problème avec graphQL

La requête GraphQL n’est pas autorisée

[PL/SQL] le rôle exact du (+) dans une clause

[SQL] manipulation des dates

Certification Pix - Python et SQL

Discussions similaires

Newsletters