[VB6]Extraire un champ d'une BDD Access et le faire s'afficher dans un TextBox

Question

Bonjour,

Nous réalisons actuellement un projet sur VB6 et nous rencontrons quelques difficultés. 

En fait, nous souhaitons extraire un champ d'une base de données Access et le faire s'afficher dans un TextBox. 
S'il vous nous voulons un code pour résoudre mon problème, c'est urgent!
merci

cs_Jack · Answer

Salut
Tout est urgent en ce bas monde.
Commence par faire des recherches parmi les codes du site qui parlent de "database", "base de données", "ADODB", "recordset" ... Tu sauras tout sur les techniques d'interrogation et de récupération de résultats.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

DevLama · Answer

c'est juste une recherche qui peut le faire, si tu utilises les requêtes SQL:

Private sub cmdrech_click
dim con As New ADODB.Connection
Dim Rec AS New ADODB.Recordset
Dim SQL As String
Rec.CursorLocaction=aduseClient
Rec.Open SQL,Con,adOpenDynamic,adLockOptimistic,adCmdText
n=Inputbox("Entrez le non")
SQL="Select * FROM nomdelatable where Nom='" & n & "'"
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data source="& App.Path & "
om_dela_Bdd.Mdb"
do while Rec.EOF=false
champstext=Rec!champsbdd
if Rec.EOF=True then
exit do
loop
msgbox "Enregistrement non trouvé",vbcritical
End Sub
[code=vb]
Si avec les commandes ADO
[code=vb]
rec.Movefirst
if Rec.EOF=False then
Rec.find "NOM='" & n & "'"
if Rec.EOF=True then
msgbox "Enregistrement non trouvé",vbCritical

   Horne Lama Soft.....

[VB6]Extraire un champ d'une BDD Access et le faire s'afficher dans un TextBox

2 réponses

Votre réponse

Discussions similaires