|
|
|
|
|
Ado .Net İle Veriye Erişmek Ve Bir Combobox ı Doldurmak.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Conn As New SqlConnection
Dim Cmd As New SqlCommand
Dim Dr As SqlDataReader
Conn.ConnectionString = "Data Source = . ; Initial Catalog = Northwind; User Id=sa; Pwd=;"
Dim SqlStr As String = "Update Products Set ProductName = 'ALi' Where ProductID = 1"
Dim SqlStr2 As String = "Select ProductName From Products"
Conn.Open()
Cmd.Connection = Conn
Cmd.CommandText = SqlStr
Cmd.ExecuteNonQuery()
Cmd.CommandText = SqlStr2
Dr = Cmd.ExecuteReader()
While Dr.Read
Me.ComboBox1.Items.Add(Dr.GetValue(0))
End While
Conn.Close()
End Sub
Yazar & Kaynak: Faruk Cubukcu
|
| Bu Makaleye Verilen Puan: |
|
 Kullanıcı Yorumları
Bu makaleye yorum gönderilmemiş, ilk yorumu sen gönder !
 Yorum Ekle
İlgili Dökümanlar |
|
|
Arkadaşa Postala 
Yazdır 
Yorum Ekle 
Rapor Et 
