Private Sub Command1_Click()
CommonDialog1.DialogTitle = "Resim Dosyası Aç"
CommonDialog1.Flags = cdlOFNHideReadOnly
CommonDialog1.Filter = "Jpg Dosya(*.jpg)|*.jpg|Bütün Dosyalar(*.*)|*.*"
CommonDialog1.FilterIndex = 0
CommonDialog1.ShowOpen
Image1.Picture = LoadPicture(CommonDialog1.FileName)
Text2.Text = CommonDialog1.FileName
End Sub
Private Sub Command2_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset![respath] = Text2
Adodc1.Recordset![adi] = Text1
End Sub
Private Sub Command3_Click()
Adodc1.Recordset![respath] = Text2
Adodc1.Recordset![adi] = Text1
Adodc1.Refresh
End Sub
Private Sub Form_Load()
Image1.Picture = LoadPicture(Text2.Text)
End Subçıkış saatine denk geldi tam detaylı yapamadım ama çözeceğiniz şekilde yaptım
veri tabanını "respath" diye bi alan ekledim ve resmin yolunu kaydettirdim.
form açılıca text2 deki resim yolunu alıyor ve resmi picture nesnesine load yapıyor
adodc nin response yordamına aynı kodu yazman gerekli
kolay gelsin
