 |
|
พี่ค่ะ รบกวนช่วย แนะนำน่อย รูปข้างบนนี้ ต้องค้นหา 2 ตาราง ตารางแรก ค้นหาเสจให้แสดงออกมาเป็น label แต่ตารางที่ 2 ให้ออกเป้น data grid อ่ะค่ะ โดยที่ให้รหัสทั้ง ตรงกันอ่าค่ะ |
|
 |
|
|
 |
 |
|
เขียน Code ไว้ยังไงบ้างครับ 
|
 |
 |
 |
 |
Date :
2013-03-29 13:59:30 |
By :
mr.win |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
อันนี้ในส่วนที่ให้โชว์ เป็น label ค่ะ แต่ให้โชว์เป็น datagrid ไม่รุ็จะเขียนยังไงค่ะ
Code (VB.NET)
Call connect()
Dim sb As New StringBuilder()
sb.Remove(0, sb.Length)
sb.Append("SELECT jobs.*, member.mem_sname, cars.*, colorcars.colorcar_name, typecars.typecar_name, employee.*, position.pos_name FROM jobs INNER JOIN member ON jobs.mem_id = member.mem_id INNER JOIN cars ON jobs.cars_id = cars.cars_id INNER JOIN colorcars ON cars.colorcar_id = colorcars.colorcar_id INNER JOIN typecars ON cars.typecar_id = typecars.typecar_id INNER JOIN employee ON jobs.emp_id = employee.emp_id INNER JOIN position ON employee.pos_id = position.pos_id")
sb.Append(" WHERE (jobs_id=@jobs_id)")
Dim sqlmember As String = sb.ToString()
Dim com As New SqlCommand()
Dim dr As SqlDataReader
With com
.CommandType = CommandType.Text
.CommandText = sqlmember
.Connection = Conn
.Parameters.Clear()
.Parameters.Add("jobs_id", SqlDbType.VarChar).Value = TextBox1.Text.ToString()
dr = .ExecuteReader()
If dr.HasRows Then
dr.Read()
DateTimePicker2.Value = dr.GetValue(dr.GetOrdinal("jobs_date"))
Label38.Text = dr.GetString(dr.GetOrdinal("mem_sname"))
Label25.Text = dr.GetString(dr.GetOrdinal("cars_number"))
Label35.Text = dr.GetString(dr.GetOrdinal("typecar_name"))
Label33.Text = dr.GetString(dr.GetOrdinal("colorcar_name"))
Label24.Text = dr.GetString(dr.GetOrdinal("emp_sname"))
Label30.Text = dr.GetString(dr.GetOrdinal("pos_name"))
Label40.Text = dr.GetValue(dr.GetOrdinal("total"))
Else
MessageBox.Show("ไม่พบข้อมูล !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
TextBox1.Text = ""
TextBox1.Focus()
End If
End With
|
 |
 |
 |
 |
Date :
2013-03-29 15:49:13 |
By :
pinks |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
|
|