نمایش کارت دانشجویی همراه با عکس

[samaneh1363]

سلام به همگی
من یه برنامه نوشتم که اطلاعات دانشجو رو در دیتابیس sql ذخیره میکنه اما وقتی میخوام اطلاعات بازیابی بشه و به صورت کارت دانشجویی نمایش داده بشه دستور زیر رو نوشتم، همه اطلاعات رو نشان میده و با adodc هم بین رکورد ها حرکت میکنه اما عکس تغییر نمیکنه و فقط عکس آخرین رکورد نمایش داده میشه.
اگر ممکنه کد درست رو بهم بگین



Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Student;Data Source=HP\Sqlexpress"
Adodc1.RecordSource = " select * from StInformation"
Adodc1.Refresh
While Adodc1.Recordset.EOF = False
Text1.Text = Adodc1.Recordset.Fields("StNo")
Text2.Text = Adodc1.Recordset.Fields("StName")
Text3.Text = Adodc1.Recordset.Fields("StFamily")
Image1.Picture = LoadPicture(Adodc1.Recordset.Fields("StPicture"))
Adodc1.Recordset.MoveNext
Wend

[saeedzx]

با سلام شما می تونید یک کلک بزنی :قلب:

این کد رو اول بنویس

Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Student;Data Source=HP\Sqlexpress"
Adodc1.RecordSource = " select * from StInformation"
Adodc1.Refresh
While Adodc1.Recordset.EOF = False
Text1.Text = Adodc1.Recordset.Fields("StNo")
Text2.Text = Adodc1.Recordset.Fields("StName")
Text3.Text = Adodc1.Recordset.Fields("StFamily")
Text4.Text = Adodc1.Recordset.Fields("StPicture")

Adodc1.Recordset.MoveNext
Wend



بعد تو timer

if text4.text="" then
Image1.Picture = LoadPicture(Empty)
else
Image1.Picture = LoadPicture(text4.text)
end if

[samaneh1363]

تایمر رو کجا باید فراخوانی کنم؟؟؟؟ :خجالت: