VB / ACCESS et clef étrangere

VB / ACCESS et clef étrangere - VB/VBA/VBS - Programmation

Marsh Posté le 04-06-2005 à 19:06:18    

Salut j'ai un mld qui donne cela :
livre(num_livre, titre_livre,num_auteur#)
auteur(num_auteur,nom_auteur)
 
Je voudras faire un page sous VB qui s'automatise quand et je tape le num_livre. Mais je galére un peu avec la clef étrangere (qui est un numero et je voudrais qu'elle me renvoie le nom de l'auteur). Il faut donc faire un requete non?  
Dans ce cas il m'affiche ma requete...
 
 
voilà mon programme
 
 
 
 
Private Sub Text1_Change()
With rstemprun
.ActiveConnection = cnx
.CursorType = adOpenStatic ' Ouverture en lecture seule
.LockType = adLockOptimistic ''verrouillage optimiste des enregistrements
.Open "livre"
 
 
 
Do Until .EOF
         If Text1.Text = !num_livre Then
            Text2.Text = !titre_livre
            Text3.Text = "select nom_auteur from auteur a, livre l where     a.num_auteur=l.num_auteur and num_livre=""" & Text1.Text & """;"
        End If
         
    .MoveNext
Loop
 
 
 
 
.Close
End With
End Sub

Reply

Marsh Posté le 04-06-2005 à 19:06:18   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed