 |
|
ช่วยที่ครับ vb.net ค้นหารหัสสมาชิก,ชื่อ ตามวันที่ยังไงครับ ข้อละเอียดด้วยนะ |
|
 |
|
|
 |
 |
|
ช่วยดูโคดให้ทีครับ
Code (VB.NET)
Dim sql As String
sql = "SELECT tbl_DailyRecord.LabourID, tbl_DailyRecord.Nameeng, tbl_DailyRecord.Dates, tbl_DailyRecord.TimeIn, tbl_DailyRecord.TimeOut, tbl_DailyRecord.Hours FROM tbl_DailyRecord"
If CheckBox1.Checked Then
Dim a As String = DateTimePicker1.Value
Dim b As String = DateTimePicker2.Value
sql = " Where tbl_DailyRecord.Dates between #" & a & "# AND tbl_DailyRecord.Dates #" & b & "#"
End If
sql &= " order by tbl_DailyRecord.LabourID"
da = New OleDbDataAdapter(sql, conn)
ds = New DataSet
da.Fill(ds, "labour")
DataGridView1.Rows.Clear()
If ds.Tables(0).Rows.Count <> 0 Then
For i = 0 To ds.Tables(0).Rows.Count - 1
DataGridView1.Rows.Add()
DataGridView1.Rows(i).Cells("LabourID").Value = ds.Tables(0).Rows(i).Item("LabourID").ToString
DataGridView1.Rows(i).Cells("Nameeng").Value = ds.Tables(0).Rows(i).Item("Nameeng").ToString
DataGridView1.Rows(i).Cells("Dates").Value = ds.Tables(0).Rows(i).Item("Dates")
DataGridView1.Rows(i).Cells("TimeIn").Value = ds.Tables(0).Rows(i).Item("TimeIn")
DataGridView1.Rows(i).Cells("TimeOut").Value = ds.Tables(0).Rows(i).Item("TimeOut")
DataGridView1.Rows(i).Cells("Hours").Value = ds.Tables(0).Rows(i).Item("Hours")
Next
End If
|
 |
 |
 |
 |
Date :
2012-11-23 09:04:58 |
By :
meksavanh |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
คุณลอง Debug เอาค่า sql ไปรันดูใน Query ของ Access ครับ แล้วลองปรับแต่งให้มันได้ค่าตามที่ต้องการก่อนครับ แล้วค่อยนำมาใส่ใน Code
|
 |
 |
 |
 |
Date :
2012-11-23 09:29:09 |
By :
mr.win |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
ตรงก่อน where ไม่มี &
|
 |
 |
 |
 |
Date :
2012-11-23 15:46:24 |
By :
Alone21st |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
ใสแล้วก็ยังไม่ได้ ครับ เชัง access ทำไม่ถืงค้นหายาก ยังงี้นา
|
ประวัติการแก้ไข 2012-11-26 10:34:34
 |
 |
 |
 |
Date :
2012-11-26 09:54:17 |
By :
meksavanh |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
ลองสลับวันที่เป็น mm/dd/yyyy ดูครับ ต้องได้
msn [email protected]
|
 |
 |
 |
 |
Date :
2012-11-26 10:58:47 |
By :
dum_chonburi |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
อิอิ
วันที่ใน database มีเวลาด้วยนี่
ส่ง string แค่นั้นไป ยังไงก็ไม่มีทางเท่ากันหรอก
ต้อง convert เป็น datatime ก่อน แล้วเอาค่า date มาเปรียบเทียบกับ date
ถึงจะได้จ้า
|
 |
 |
 |
 |
Date :
2012-11-26 12:30:23 |
By :
ห้ามตอบเกินวันละ 2 กระทู้ |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
ยังงี้หรอ
Code (VB.NET)
sql &= " Where tbl_DailyRecord.Dates Between # " & Format(DateTimePicker1.Value, "dd/MM/yyyy") & " # And # " & Format(DateTimePicker2.Value, "dd/MM/yyyy") & " # "
ก็ยังไม่ได้นะ
|
ประวัติการแก้ไข 2012-11-26 12:38:43 2012-11-26 12:40:37
 |
 |
 |
 |
Date :
2012-11-26 12:33:54 |
By :
meksavanh |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
ไม่ใช่ ต้องแก้ที่ command
where convert(datetime, tbl_DailyRecord.Dates, 103) Between convert(datetime, '" & DateTimePicker1.Value.ToString() & "', 103) and convert(datetime, '" & DateTimePicker2.Value.ToString() & "', 103)
|
 |
 |
 |
 |
Date :
2012-11-26 13:38:20 |
By :
ห้ามตอบเกินวันละ 2 กระทู้ |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
ปุ่ม Search นะ
ประกาศใต้ Public Class
Code (VB.NET)
Dim bs As New BindingSource
Code (VB.NET)
Private Sub btnsearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsearch.Click
Dim da_mem As New SqlDataAdapter
Dim ds_mem As New DataSet
Dim sql As String
sql = "SELECT * from tmember where memname like '%" & Textbox1.Text & "%' "
da_mem.SelectCommand = New SqlCommand(Sql, Conn)
ds_mem.Clear()
da_mem.Fill(ds_mem, "tmember")
bs.DataSource = ds_mem.Tables("tmember")
dgvMember.DataSource = bs
End Sub
Credit : zarooman
|
 |
 |
 |
 |
Date :
2016-05-04 15:12:24 |
By :
Outhai |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
|
|