Forum

sql arama ve text a...
 
Bildirimler
Hepsini Temizle

sql arama ve text aktarma

5 Yazılar
3 Üyeler
0 Reactions
538 Görüntüleme
(@bekirozbek)
Gönderiler: 3
Active Member
Konu başlatıcı
 

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.

 
Gönderildi : 11/01/2014 02:16

(@kenanilgun)
Gönderiler: 544
Üye
 
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()
 
Gönderildi : 12/01/2014 19:31

(@bekirozbek)
Gönderiler: 3
Active Member
Konu başlatıcı
 

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. 

 

 

 

 
Gönderildi : 14/01/2014 11:53

(@bekirozbek)
Gönderiler: 3
Active Member
Konu başlatıcı
 

bu arada text1 den kastım textbox1 

 

şimdiden teşekkürler.

 
Gönderildi : 14/01/2014 12:32

(@Anonim)
Gönderiler: 0
 

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

şeklinde olabilir. 

 
Gönderildi : 15/01/2014 16:05

Paylaş: