Aşağıda yapmak istediğim şey text1'in change olayında veri tabanındaki bilgiyi text9'a yazdırmak. aslında where kodu olmadan
yazdırıyorum ama veri tabanında tek kayıt varsa örneğin barkod nosu 10 olan bir kayıt var text1 de 1 yazdığımda text9 'a veri tabanındaki "mecut_stok_miktari" alan adındaki bilgiyi yazıyor ama veri tabanında 2 kayıt varsa hata veriyor hata şu arkadaşlar:
ya BOF ya da EOF doğru veya geçerli kayıt silinmiş.istenen işlem geçerli bir kayıt gerektiriyor.
PHP Kod:
Private Sub Text1_Change()
Dim mevcut_stok As New ADODB.Recordset
mevcut_stok.Open "select * from urun_alis where barkod_no= '" & Text1.Text & "'", "dsn=kendistp", adOpenStatic, adLockOptimistic
Text9.Text = mevcut_stok("mevcut_stok_miktari")
End Sub
yardımlarınız için şimdiden teşekkürler.
