Forum
Bildirimler
Hepsini Temizle
Yazılım Genel
5
Yazılar
3
Üyeler
0
Likes
433
Görüntüleme
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
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
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
Konu başlatıcı
bu arada text1 den kastım textbox1
şimdiden teşekkürler.
Gönderildi : 14/01/2014 12:32
TextBox1.Value = komut(0).value
TextBox2.Value = komut(1).value
TextBox3.Value = komut(2).value
şeklinde olabilir.
Gönderildi : 15/01/2014 16:05
