Inner Join entre deux tables SQL avec VB6

Bonjour,

Je ne connais pas beaucoup le VB et je tente désespérément de faire une fonction me permettant de relier deux tables SQL qui ne proviennent pas de la même base de donné, avec une interface VB6.

J'ouvre une permière connexion pour ma table 'Status' qui provient de la base de donnée 'Commande' et une deuxième connexion pour ma table 'produits' qui provient de la base de donnée 'SuiviProd'.
L'inner join doit être sur le no de commande mais la je me bute a un problème car dans la table commande le 'IdMecInov' est '002-1234.1) et dans la table Produits le 'Commande' est (002-1234).

1- Mon premier problème est que je ne suis pas capable de créer mon Select sur les deux tables . J'ai l'erreur que 'Invalid Object Name Produits' Produits est le nom de ma table de la BD Suiviprod

2- Mon deuxième prob est que je dois faire l'inner join avec un Left$(....,9)


Voici ma fonction :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

strfiltre = ""   If TxTClient <> "" And Not IsNull(TxTClient) Then strfiltre = "nomcli = '" & Replace(TxTClient, "'", "''") & "'" Else strfiltre = "NomCli <> 'Test' AND IDCli <> '0' AND IdCli <> '9999999' " End If   If ComboLiv <> "" And Not IsNull(ComboLiv) Then If strfiltre <> "" Then strfiltre = strfiltre & " AND " End If If ComboLiv = "Livré" Then ComboLiv = 1 End If If ComboLiv = "Non Livré" Then ComboLiv = 0 End If strfiltre = strfiltre & "Expedier = '" & ComboLiv & "'" End If If TxtDateFrom <> "" And Not IsNull(TxtDateFrom) Then If strfiltre <> "" Then strfiltre = strfiltre & " AND " End If strfiltre = strfiltre & "date01 between '" + Format(TxtDateFrom, "yyyy/mm/dd") + "' and '" + Format(txtDateTo, "yyyy/mm/dd") + "'" End If   If strfiltre <> "" Then strfiltre = "WHERE " & strfiltre End If   CnxPro.Open "Provider=SQLOLEDB;Server=mecinov;uid=Production;pwd=Production;database=suiviprod" DBSuiviProdSQL.Open "SELECT Commande,Expedier FROM produits , CnxPro, adOpenStatic, adLockReadOnly"   DBCommandesSQL.Open "SELECT Status.NomCli,Status.idMecinov,Status.Date01,Produits.Commande FROM status inner join Produits on Status.idMecinov = Produits.Commande " & strfiltre, CnxCom, adOpenStatic, adLockReadOnly

---

Note : la connexion pour la table commande est définie dans une fonction public

Merci de m'aider

problème1: Je crois que tu dois hardcoder le nom de la base de donnée
Si TABLE1 se trouve dans DATABASE1, la requête devient

Code:

---

SELECT t1.* FROM DATABASE1.TABLE1 t1

---

Evidemment, je ne sais pas comment tu as défini ta connection cnx (cnxcom) et j'espère de tout coeur qu'il n'y a pas le nom d'une DB dans sa définition.
problème2: je ne comprend pas où est le problème...

bonjour,

dans la ConnectString (chaîne de connexion à une base de données), nous définissons le serveur ET la base de données:
Provider=SQLOLEDB;Server=mecinov;uid=Production;pwd=Production;database=suiviprod
il est clair que les seules tables ou procédures stockées accessibles sont celles de la base de données.

te renseigner auprès des spécialistes sur le forum SQLServer...

sinon je ne vois que cela:
- se connecter à la base 'Commande'

- récupérer tes informations de la table 'Status'
- stocker la valeur de 'IdMecInov' dans une variable (par exemple une variable String nommée strIdMecInov)

- se connecter à la base 'SuiviProd'

- récupérer tes informations de la table 'Produits' en passant en paramètre la valeur de 'IdMecInov' que tu devras ajuster comme ceci:

Code:

---

DBCommandesSQL.Open "SELECT * FROM PRODUITS WHERE Commande = " & left(strIdMecInov,8), CnxCom, adOpenStatic, adLockReadOnly

---

cdlt,

J'ai finalement trouvé.

Code:

---

1 2 3 4

If DBCommandesSQL.State = adStateOpen Then DBCommandesSQL.Close If DBSuiviProdSQL.State = adStateOpen Then DBSuiviProdSQL.Close DBSuiviProdSQL.Open "SELECT Commande, Expedier FROM Produits ", CnxPro, adOpenStatic, adLockReadOnly DBCommandesSQL.Open "SELECT [SuiviProd].[dbo].[Produits].[Expedier], status.IdMecinov, status.NomCli, status.IdCli, status.Date01 FROM [Commandes].[dbo].[Status] inner join [SuiviProd].[dbo].[Produits]ON LEFT(status.idmecinov, 9) = [SuiviProd].[dbo].[Produits].[Commande] GROUP BY [SuiviProd].[dbo].[Produits].[Expedier],status.IdMecinov, status.NomCli, status.IdCli, status.Date01 " & strfiltre, CnxCom, adOpenStatic, adLockReadOnly

---

merci tout le monde