AccessTr.neT
Vb.net TextBox a veri çekme - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic .NET (https://accesstr.net/forum-visual-basic-net.html)
+--- Forum: Visual Basic .NET Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-net-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Vb.net TextBox a veri çekme (/konu-vb-net-textbox-a-veri-cekme.html)

Sayfalar: 1 2

Vb.net TextBox a veri çekme - Rnet - 10/05/2010

[Resim: verii.jpg]
vb.net ile hasta takip projesi hazırlıyorum,Anaformda Hasta kayıtlarını gösteren tablolar var.Buradan bi kaydı seçip düzenle butonuna bastığında kişinin bilgilerini burda gösterip update ettirmek istiyorum textbox a çekecek kodları bir türlü yazamadım;


Dim komut As String = "SELECT*from hastakayit"
Private Sub duzenle_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim baglanti As New OleDbConnection("provider=microsoft.ace.oledb.12.0; data source=hastaymis.accdb")
Dim yeni As New OleDbCommand(komut, baglanti)

baglanti.Open()
Dim oku As OleDbDataReader

oku = yeni.ExecuteReader
While oku.Read

textbox9.Text = oku.GetString(0)

End While

oku.Close()

baglanti.Close()

End Sub

textbox9.Text = oku.GetString(0)
Buradaki kodu kullandığımda en son kaydın ilk alanını aldım diğerlerini çekmedi hangi kodu yazmam gerekli?

Cvp: Vb.net TextBox a veri çekme - ogulcan92 - 10/05/2010

Sn:Rnet
Vb.Net bilgim yok ama genelde mantık aynı aşağıdaki kod size fikir vercektir.Ben burada tarihe göre arama yaptırdım.
Kod:
Private Sub Form_Load()
    Adodc2.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0; Data Source=" & App.Path & "\Hatirlatma.mdb"
    Adodc2.CommandType = adCmdText
    Adodc2.RecordSource = "select * from Hatirlatma ORDER BY ID"
    Adodc2.Refresh
    If Adodc2.Recordset.RecordCount <> 0 Then
    End If
    Set VSFlexGrid1.DataSource = Adodc2
DTPTarih.D_Value = Date
End Sub

Private Sub cmdbul_Click()
Adodc2.Refresh
    Dim bul As String
    bul = DTPTarih.D_Value
    If Trim(bul) <> "" Then
        bul = "Tarih='" + bul + "'"
        Adodc2.Recordset.MoveFirst
        Adodc2.Recordset.Find bul
        Call VeriSet
    End If
End Sub

Private Sub VeriSet()
    txtid = Adodc2.Recordset.Fields(0)
    DTPTarih.D_Value = Adodc2.Recordset.Fields(1)
    txtNot = Adodc2.Recordset.Fields(2)
End Sub


Cvp: Vb.net TextBox a veri çekme - Rnet - 10/05/2010

Sn.ogulcan92

Oradaki mantığı biraz açıklayabilirseniz sevinirim tam anlayamadım.

Cvp: Vb.net TextBox a veri çekme - ogulcan92 - 10/05/2010

Sn:Rnet
Formun Loadında veri tabanımızı tanıttık ve bul butonda DTPTarih.D_Value değerini bul ile eşitleyip tarih alanından arama yaptırıyoruz eğer aradığımız tarih var ise bu seferde tanımladığımız veriset ilede burada bulunun kayıtları textboxlara getiriyoruz.

Cvp: Vb.net TextBox a veri çekme - Rnet - 10/05/2010

Yardımınız için teşekkürler : ) Fakat sizin dediğiniz mantık ile kodları yazamadım malesef çünkü tanımladığınız veriset gibi tabloları eşitleyemedim : (

Cvp: Vb.net TextBox a veri çekme - qnill - 06/08/2010

Merhaba,
eger cozemedıysenız projenızı ekleyin yardımcı olmaya calışıcam