VB / ACCESS et clef étrangere - VB/VBA/VBS - Programmation
MarshPosté 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
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