Private Sub BindDataGridStart() Data_Start_DV.Show() Dim objConn As New SqlConnection Dim objCmd As New SqlCommand Dim strSQL As String Dim dt As New DataTable Dim Adapter As SqlDataAdapter strSQL = "SELECT * FROM DATA_START_POINT b INNER JOIN BUS_DATA d on b.BUS_ID = d.BUS_ID INNER JOIN DRIVER_DATA c on d.DRIVER_ID = c.DRIVER_ID" objConn.ConnectionString = strConnString objConn.Open() With objCmd .Connection = objConn .CommandText = strSQL .CommandType = CommandType.Text End With Adapter = New SqlDataAdapter(objCmd) Adapter.Fill(dt) objConn.Close() Me.Data_Start_DV.DataSource = dt Me.Data_Start_DV.Columns.Clear() Dim column As DataGridViewTextBoxColumn column = New DataGridViewTextBoxColumn() column.DataPropertyName = "DATA_ID" column.HeaderText = "ID." column.Width = 70 column.Name = "id" Me.Data_Start_DV.Columns.Add(column) column = New DataGridViewTextBoxColumn() column.DataPropertyName = "BUS_REGISTER" column.HeaderText = "ทะเบียน" column.Width = 90 Me.Data_Start_DV.Columns.Add(column) column = New DataGridViewTextBoxColumn() column.DataPropertyName = "BUS_NO" column.HeaderText = "สาย" column.Width = 70 Me.Data_Start_DV.Columns.Add(column) column = New DataGridViewTextBoxColumn() column.DataPropertyName = "START_DATA" column.HeaderText = "ต้นทาง" column.Width = 100 Me.Data_Start_DV.Columns.Add(column) column = New DataGridViewTextBoxColumn() column.DataPropertyName = "DESTINATION" column.HeaderText = "ปลายทาง" column.Width = 100 Me.Data_Start_DV.Columns.Add(column) column = New DataGridViewTextBoxColumn() column.DataPropertyName = "DRIVER_NAME" column.HeaderText = "ชื่อผู้ขับ" column.Width = 80 Me.Data_Start_DV.Columns.Add(column) column = New DataGridViewTextBoxColumn() column.DataPropertyName = "DRIVER_LASTNAME" column.HeaderText = "นามสกุล" column.Width = 100 Me.Data_Start_DV.Columns.Add(column) column = New DataGridViewTextBoxColumn() column.DataPropertyName = "TIME_IN" column.HeaderText = "วัน เวลาที่เข้าป้ายโดยสาร" column.Width = 150 Me.Data_Start_DV.Columns.Add(column) totle_Label.Text = Data_Start_DV.RowCount.ToString() dt = Nothing headerText = ":: ข้อมูลจากต้นทาง" End Sub
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง