Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
cbf.SelectedIndexChanged
Dim Connection As SqlConnection
Connection = New SqlConnection("Data Source=PC1;Initial
Catalog=projebargh;Integrated Security=True")
Connection.Open()
Dim myds As DataSet = New DataSet("mydataset")
Dim myadapter As SqlDataAdapter = New SqlDataAdapter("select *
from kala ", Connection)
myadapter.Fill(myds, "kala")
Dgm.DataSource = myds.Tables("kala")
myds.Tables(0).DefaultView.RowFilter = "namekala = '" &
cbf.SelectedItem & "'"
Connection.Close()
Textp.Enabled = False
Dim d As String
d = Dgm.Rows(0).Cells(3).Value.ToString()
Textp.Text = d.ToString()
End Sub
> > ???????????????????- مخف کردن متن علامت زده -
>
> - نمايش متن نقل قول شده -