Private Sub ShowPersonName()
Conn = New SqlConnection(strConn)
Conn.Open()
Dim sqlRD As String = "SELECT * FROM Person"
cmd = New SqlCommand(sqlRD, Conn)
Dim Reader As SqlDataReader = cmd.ExecuteReader()
While Reader.Read()
CbbName.Items.Add(Reader( "Per_Name" ))
End While
CbbName.SelectedIndex = 0
CbbName.Text = ""
หลังจากนั้นผมต้องการโค้ดคำสั่ง เมื่อเลือกข้อมูลลที่ ComboBox
อยากให้ ข้อมูลที่อยู่ในฟิลด์อื่นๆ ในตาราง Person แสดงที่ TextBox ข้างหลัง (ตำแหน่ง)
โดยยึดจาก ID ของข้อมูลที่เลือกใน Combobox ครับ
Private Sub CbbName_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CbbName.SelectedIndexChanged ????????????????
End Sub
มีใครพอจะเขียนโค้ดตัวนี้ได้ไหมครับCode (VB.NET)
Tag : Ms SQL Server 2008, VBScript, Crystal Report, WebService, VS 2008 (.NET 3.x)
Date :
2011-11-23 12:03:52
By :
Kampanat1203
View :
1419
Reply :
1
No. 1
Guest
Dim aryName As Array
Dim strName As String
While Reader.Read()
CbbName.Items.Add(Reader( "Per_Name" ))
if strName = "" then strName &= ","
strName &= Reader("id")
End While
Private Sub CbbName_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CbbName.SelectedIndexChanged
aryName = Split(strName, ",")
Dim sqlRD As String = "SELECT * FROM Person where id="&aryName(Me.cboDims.SelectedIndex)
cmd = New SqlCommand(sqlRD, Conn)
Dim Reader As SqlDataReader = cmd.ExecuteReader()
While Reader.Read()
CbbName.Items.Add(Reader("position"))
End While
Load balance : Server 01
