[VB6 + SQL] Creer la relation dans la base, quel requete ?

Version imprimable

29/05/2006, 17h01
lepiou

[VB6 + SQL] Creer la relation dans la base, quel requete ?

Bonjour,

Alors je vous explique mon probleme, ca peut etre un peu long :D

Tout d'abord le MCD :

http://img63.imageshack.us/img63/4503/mcd6kf.jpg

Et le formulaire VB :

http://img63.imageshack.us/img63/271/form8ui.jpg

Quand je rempli le formulaire et que je clic sur valider, pas de probleme, ca va bien dans la base, seulement vu que les cardinalités sont a 1,n de chaque coté de la relation etre_responsable j'ai une table etre_responsable dans ma base de données.

J'aimerai savoir comment vous feriez pour remplir cette table automatiquement.

J'espere etre clair, merci de m'aider
29/05/2006, 17h22
zazaraignée

Salut

On ne voit pas les 'Images' que tu veux nous montrer. Il faut que tu les déposes sur un serveur. Si tu as déjà une page Web quelquepart, c'est là que tu devrais les mettre. sinon, explique d'avantage ton problème.
29/05/2006, 18h14
lepiou

Elles sont sur imageshack :/ je les voit moi

http://img63.imageshack.us/img63/4503/mcd6kf.jpg

http://img63.imageshack.us/img63/271/form8ui.jpg

Bonjour

Je ne suis guère disponible en ce moment. Aussi, je mets ci-dessous le code brut que j'utilise dans un cas similaire (liaison de plusieurs à plusieurs entre mailing et client). Celà passe par une table intermédiare, et j'utilise ce code pour créer des nouveaux enregistrements dans las trois table et donc établir la liaison de plusieurs à plusieurs.

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
36
37
38
39
40
41
 
Private Sub cmdPubliposter_Click()
  'Création d'un nouvel enregistrement dans la table Mailings et des enregistrements nécessaires
  'dans la table Liaisons (autant que de clients).
 
  Dim i As Integer
  Dim NumMailEC As Long
  Dim SQL As String
  Dim NewRelations As Long
 
  ParamMail.Show vbModal    'Affiche le formulaire de saisie des paramètres du mail
 
  'Création de l'enregistrement pour le nouveau mailing
  DataEnvironment1.Connection1.Execute " INSERT INTO Mailings " _
                  & "(SujetMailing, DateMailing, CorpsMailing)" _ 
                  & "VALUES ('" & strSujet & "', '" & strDate & "', '" & strCorpsMailing & "');"
  DataEnvironment1.rsCommand1.Requery
  DataEnvironment1.rsCommand1.MoveLast
  NumMailEC = DataEnvironment1.rsCommand1!CodeMailing   'Numéro du nouveau mailing
 
'Création des enregistrements de liaison
  SQL = "INSERT INTO Relations ( CodeClientR, CodeMailingR ) " & _
             "SELECT Clients.CodeClient, Mailings.CodeMailing From Mailings, Clients" & _
             " WHERE Clients.CodePostal" & _
             " LIKE '" & strDépartement & "%' AND Mailings.CodeMailing = " & NumMailEC & ";"
DataEnvironment1.Connection1.Execute (SQL), NewRelations
  If NewRelations = 0 Then
    MsgBox "Aucun enregistrement ne correspond aux critères de sélection"
    End
  End If
 
  'Mise à jour du recordset et des TextBox du formulaire
  DataEnvironment1.rsCommand1.Requery
  For i = 0 To txtMail.Count - 1
    Set txtMail(i).DataSource = DataEnvironment1
  Next i
  DataEnvironment1.rsCommand1.MoveLast    'Affichage du dernier enregistrement
 
  Mailing    'Appel procédure réalisation mailing
 
End Sub

N'hésite pas à poser des questions si le code ne te suffit pas. Je ne te garantis pas d'y répondre rapidement, mais je répondrai.

Code:

1
2
        rs.Open "INSERT INTO etre_responsable ( NumParent, NumJeune ) (SELECT Parent.NumParent, Jeune.NumJeune From Jeune, Parent WHERE Parent.NomParent = '" & TxtNomPere.Text & "' AND Jeune.NomJeune = '" & TxtNomJeune.Text & "');", connexion, adOpenStatic, adLockPessimistic
        rs.Open "INSERT INTO etre_responsable ( NumParent, NumJeune ) (SELECT Parent.NumParent, Jeune.NumJeune From Jeune, Parent WHERE Parent.NomParent = '" & TxtNomMere.Text & "' AND Jeune.NomJeune = '" & TxtNomJeune.Text & "');", connexion, adOpenStatic, adLockPessimistic

Ca marche nikel :)

J'ai fait la requete (et sous requete) en SQL avant, ca m'as aidé a y voir plus clair

Merci beaucoup