sql arama ve text a...
 
Bildirimler
Hepsini Temizle

sql arama ve text aktarma  

  RSS
bekirozbek
(@bekirozbek)
Üye

Arkadaşlar kolay gelsin;

Ben sql data base deki kayıtlarımdan arama yaptırıp bulduğum sonuçları textlere aktarma istiyorum

örnek olarak;

kayıt no : text1
adı: text2
soyadı:text3
.....
v.s.

buna göre ben arama yönetimi yaptırdım ama kayıtları textlere nasıl aktaracağımı bir türlü çözemedim.

Dim cevap As Integer
        cevap = InputBox("Aranacak Kayıt Numarasını Giriniz...=")
            baglan.Open()
            Dim sorgu As String = "(SELECT * FROM maliyethesapla WHERE kayitno = '" & cevap & "') "
            komut = New SqlCommand(sorgu, baglan)
            komut.ExecuteNonQuery()

           

            baglan.Close()


buna göre boşluktaki yere yazmam gereken sql ile arama sonucunda bulduğum kayıtlarımın karşılığı diğer kayıtları text lere nasıl aktarma yapabilirim.

İyi günler.

Alıntı
Gönderildi : 11/01/2014 01:16
Kenan İLGÜN
(@kenanilgun)
Saygın Üye Forum Yöneticisi
Merhaba Aşağıdaki gibi dener misiniz?
 
 
        Dim cevap As Integer
        cevap = InputBox("Aranacak Kayıt Numarasını Giriniz...=")
        Dim baglan = New SqlConnection("Data Source=.;Initial Catalog=TestDB;Integrated Security=True")
        baglan.Open()
        Dim sorgu As String = "(SELECT * FROM maliyethesapla WHERE kayitno = '" & cevap & "')"
        Dim komut = New SqlCommand(sorgu, baglan)
        Dim sqlDataAdapter = New SqlDataAdapter(sorgu, baglan)
        Dim dataTable = New DataTable
        sqlDataAdapter.Fill(dataTable)
        Dim writeFile As System.IO.TextWriter = New StreamWriter("D:\dosya.txt")
        For i = 0 To dataTable.Rows.Count - 1
            writeFile.WriteLine(dataTable.Rows(i).Item("Sutun"))
        Next
        writeFile.Flush()
        writeFile.Close()
CevapAlıntı
Gönderildi : 12/01/2014 18:31
bekirozbek
(@bekirozbek)
Üye

teşekkürler ;

ama bu haliyle ben yazmış olduğunun benim sorunumla nasıl çözebieleceğimi atam olarak anlayamadım.

detaylı yazabilmeniz mümkün mü acaba;

iyi çalışmalar. 

 

 

 

CevapAlıntı
Gönderildi : 14/01/2014 10:53
bekirozbek
(@bekirozbek)
Üye

bu arada text1 den kastım textbox1 

 

şimdiden teşekkürler.

CevapAlıntı
Gönderildi : 14/01/2014 11:32
 Anonim

TextBox1.Value = komut(0).value
TextBox2.Value = komut(1).value 
TextBox3.Value = komut(2).value

şeklinde olabilir. 

CevapAlıntı
Gönderildi : 15/01/2014 15:05
Paylaş: