[vb6] requete sql

Question

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 table, 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

cs_Crazyht · Answer

Tu as essayé un truc du genre : 
Where T12.T128 NOT IN (SELECT T11.T118 FROM T11) 

Cdlt,
CrazyHT

ericdu93 · Answer

Oui en faisant ca, je n'obtiens pas d'erreur de syntaxe ou autre, mais par rapport à mon code d'exportation, ca prend bien en compte le requete mais ensuite ca saute tout mon code Voici mon code: 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 T12.T126 NOT IN (SELECT T11.T116 FROM T11) " Set SiteSta = gCurrentDB.OpenRecordset(requete) NbrImageSiteSta = SiteSta.RecordCount If NbrImageSiteSta > 0 Then 'A PARTIR DE LA, CA SAUTE JUSQU'A LA LIGNE OU Y A MARQUER ELSE EN VERT 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

cs_Crazyht · Answer

Quand tu l'exceute directement dans access tu obtiens des resultats ?

ericdu93 · Answer

je sais pas comment l'exécuter directement sur access.

J'ai access 97 pour info

cs_Crazyht · Answer

Au pire tu le mets dans une nouvelle Requete (View ? je ne me souviens plus) et une fois le test fini tu la supprime

ericdu93 · Answer

j'ai cherché le requête view apparement y a ce site qui explique le view. http://www.laltruiste.com/document.php?url=http://www.laltruiste.com/courssql/cmd_createview.html

c'est difficile à comprendre (pour moi en tout cas)

depuis le début du post, j'en reste toujours au même point.

Faut t-il que je change complètement mon code d'exportation ?

[vb6] requete sql

6 réponses

Votre réponse

Discussions similaires