




Vb6 Da Access Deki Herhangi Bir Veriyi Almak ?
-
vb6 da mdb ile bağlantı kurdum verilerin tümünü alabiliyorum yazma işlemi yapabiliyorum ama mesela 5 tane satır 5 tane stun var tabloda ben bu verilerin içinde 1 tane değeri almak istiyorum mesela 1. satır 1.stundaki veriyi yazdırmak istiyorum nasıl yapabilirim ?
-
Mantık şu olacak;
"select top 1 tablo_fieldı from tablo_adı"
Bu sorgudaki tablo_fieldı yerine almak istediğin kolon adını tablo_adı yerine veriyi çekmek istediğin tablonun adını yazacaksın. İstersen sonuna where koşulu da eklersin...
-
deniyorum takıldığım yer olursa tekrar yazarım
-
"select * top 5 from tabloadi where sutun_adi=" &" 'Sütündaki veri' "
örnekle gösterirsek ;
"select * top 5 from uyeler where isim=" &" 'Ahmet' "
üyeler tablosunun isim sütünündaki ahmet ismindeki elemanların 5 tanesini çeker.
-
hocam daha yolun başındasın anlaşılan vazgeç.
vb6+access kadar lanet bişey yok. delphi veya .net filan öğren daha iyi.
benim pc programcılığını bırakmamın nedeni bu ikilidir yaa...
-
arkadaşlar biyerde daha takıldım yardım lütfen daha anlattığınız yerlere bile gelemedim :S
Öğrenme amaçlı değil ilk defa uğraşıyorum bi arkadaşım için muhasebe yazılımı gibi bişey kodları vereyim alta hatayı göstericem
ilk vb ile uğraşım eğer saçma sapan hatalar varsa maruz görün :D
Private Sub Command1_Click()
Adodc1.Recordset!tarih = fatura_tarih.Text ' Burda hata alıyorum. boş satır eklenemiyor satırda en az 1 stun olması gerekiyo diyo ama benim mdb de stun varr
Adodc1.Recordset!no = fatura_no.Text
Adodc1.Recordset!fis = fis_no.Text fatura_tarih yani sağdakiler benim database deki stun isimlerim doğrumu yazdım bilmiyorum.
Adodc1.Recordset!tutar = Tutarı.Text
Adodc1.Recordset!kdv = kdv.Text
Adodc1.Recordset!toplam = toplam.Text
Adodc1.Recordset!alacak = alacak.Text
Adodc1.Recordset!borc = Borç.Text
Adodc1.Recordset!bakiye = bakiye.Text
Adodc1.Recordset!acıklama = Açıklama.Text
Adodc1.Recordset!odemesekli = odeme_sekli.Text
Adodc1.Recordset.Update
End Sub
Private Sub Command2_Click()
Adodc1.Recordset.Delete
End Sub
Private Sub Command3_Click()
Adodc1.Recordset.AddNew
End Sub
Private Sub Command4_Click()
kdv.Text = Val(tutar.Text) * 0.18
toplam.Text = (Val(tutar.Text) * 0.18) + Val(tutar.Text)
bakiye.Text = (Val(tutar.Text) * 0.18) + Val(tutar.Text) + Val(alacak.Text) - Val(borc.Text)
End Sub
Private Sub Form_Activate()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\****\Desktop\database.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "SELECT * FROM sirket"
Adodc1.Refresh
End Sub -
cevap yokmu konu up !!
-
gene vb6 klasiği C#.net tavsiyemdir:)
-
üstteki sorunu çözdüm.
sizin dediğiniz gibi yaptığımda istediğim veriyi alabiliyorum ama ben son kayıtın isim kolununu seçmek istiyorum . Son kayıtı nasıl seçtircen ?
-
konu up yokmu cevap !!
-
ZodoR bunu yazdı:
-----------------------------
konu up yokmu cevap !!
-----------------------------önce
adodc1.recordset.movelast
edit:
ewet bu komut son kayıda götürüyo.
movefirst -> ilk kayıt
movenext -> sonraki kayıt
moveprevius -> önceki kayıt