a1malek
یک شنبه 05 بهمن 1393, 23:05 عصر
سلام دوستان
من میخوام اطلاعات دیتا ست رو روی یک لیست باکس نمایش بدم
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
ListBox1.Enabled = True
ListBox1.Visible = True
Dim conect As SqlConnection = New SqlConnection("Data Source=(LocalDB)\v11.0;AttachDbFilename=C:\Users\a bolfazl-mk\databaseme.mdf;Integrated Security=True;Connect Timeout=30")
Dim strcomm As String = "select * from userlist where id like " + TextBox1.Text + ""
Dim da As SqlDataAdapter = New SqlDataAdapter(strcomm, conect)
Dim ds As DataSet
da.Fill(ds)
End Sub
تا اینجا هیچی حالا میخوام یه همچین کاری بکنم
ListBox1.Items(i).value = ds.Tables().row(i).item("id")
ListBox1.Items(i).displaymember = ds.Tables.rows(i).item("fname" & "lname")
امیدوارم متوجه منظورم شده باشید
ممنونم
من میخوام اطلاعات دیتا ست رو روی یک لیست باکس نمایش بدم
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
ListBox1.Enabled = True
ListBox1.Visible = True
Dim conect As SqlConnection = New SqlConnection("Data Source=(LocalDB)\v11.0;AttachDbFilename=C:\Users\a bolfazl-mk\databaseme.mdf;Integrated Security=True;Connect Timeout=30")
Dim strcomm As String = "select * from userlist where id like " + TextBox1.Text + ""
Dim da As SqlDataAdapter = New SqlDataAdapter(strcomm, conect)
Dim ds As DataSet
da.Fill(ds)
End Sub
تا اینجا هیچی حالا میخوام یه همچین کاری بکنم
ListBox1.Items(i).value = ds.Tables().row(i).item("id")
ListBox1.Items(i).displaymember = ds.Tables.rows(i).item("fname" & "lname")
امیدوارم متوجه منظورم شده باشید
ممنونم