Visuan basic de buradaki çalışmaları takip ederek programlamayı öğrenmeye
çalışıyorum.
Günlerdir bu sorunu çözmek için elimden geldiğince araştırma
yaptım, fakat bir sonuç elde edemedim.
Eray hocanın
https://banadersanlat.com/index.php/visual-basic-net-video-dersleri/70-database-deki-kaytlar-textbox-lara-aktarma.html
buradaki videosunda access veri tabanı kullanarak sorgu yapıyor.
Fakat ben sql server kullanacağım için bu anlatılanları sql e göre
yapamadım.
Eray Hocanın yazdığı kodlar;
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
If TextBox2.Text = “” Then
MessageBox.Show(“Barkot No Giriniz…” +System.Environment.NewLine + “Tekrar Deneyiniz”, “Bilgi Ekranı”)
End If
Dim c As New OleDb.OleDbConnection
c.ConnectionString = “Data Source=localhost;Initial Catalog=HASTANE;Integrated Security=True”
c.Open()
Dim adp As New OleDbDataAdapter(“select * from PROTOKOL40 where BARKODKODU'” + TextBox2.Text + “‘”, c)
Dim cmd As New OleDbCommand(“select * from PROTOKOL40 where BARKODKODU'” + TextBox2.Text + “‘”, c)
Dim ds As New DataSet
Dim dr As OleDbDataReader
adp.Fill(ds)
dr = cmd.ExecuteReader
Do While dr.Read
ListBox1.Text = dr.GetString(0)
Loop
dr.Close()
c.Close()
End Sub
Sql de birkaç farklı kod kullanmak gerekiyormuş,
Rica etsem bu formun sql server de çalışması için değiştireceğim kodlar ı
belirte bilirmisiniz
Teşekkür ederim