คือต้องการค้นหาข้อมูลใน Database เมื่อเจอข้อมูลก็จะบวกเวลาเพิ่มทีละ 10 นาที โดยจะบวกกับเวลาในปัจุบัน เช่น เรคคอรดที่ 1 ชื่อ A เวลา 10.00 เรคคอรดที่ 2 ชื่อ B เวลาก็จะเป็น 10.10 ครับ
Code (ASP)
Dim cSQL As String = "SELECT * FROM customer "
Dim myda As New OleDb.OleDbCommand(cSQL, myconn)
Dim mydatareader As OleDb.OleDbDataReader = myda.ExecuteReader()
If mydatareader.Read Then
label = "พบข้อมูล" + "เวลา" + format(DateTime.Now.AddMinutes(10), "HH:mm")
End If
อ่อครับ แต่จริงๆแล้วผมยากเขียนใน ASP มากกว่าอะครับ เพราะมันเป็นการค้นหาข้อมูล เช่น
ค้นหา ชื่อ A นามสกุล B อยู่แถวที่ 1 เวล 10.00
ค้นหา ชื่อ C นามสกุล D อยู่แถวที่ 2 เวล 10.10
ชื่อ A นามสกุล B อยู่แถวที่ 1 เวล 10.00
ชื่อ C นามสกุล D อยู่แถวที่ 2 เวล 10.10
แล้วอยากเพิ่มเป็น Code
ชื่อ A นามสกุล B อยู่แถวที่ 1 เวล 10.00
ชื่อ A นามสกุล B อยู่แถวที่ 1 เวล 10.10
ชื่อ A นามสกุล B อยู่แถวที่ 1 เวล 10.20
ชื่อ A นามสกุล B อยู่แถวที่ 1 เวล 10.30
ชื่อ A นามสกุล B อยู่แถวที่ 1 เวล 10.40
ชื่อ C นามสกุล D อยู่แถวที่ 2 เวล 10.10
ชื่อ C นามสกุล D อยู่แถวที่ 2 เวล 10.20
ชื่อ C นามสกุล D อยู่แถวที่ 2 เวล 10.30
ชื่อ C นามสกุล D อยู่แถวที่ 2 เวล 10.40
ชื่อ C นามสกุล D อยู่แถวที่ 2 เวล 10.50
หรือต้องการให้เป็น
Code
ชื่อ A นามสกุล B อยู่แถวที่ 1 เวล 10.00
ชื่อ C นามสกุล D อยู่แถวที่ 2 เวล 10.10
ชื่อ E นามสกุล F อยู่แถวที่ 2 เวล 10.20
ชื่อ G นามสกุล H อยู่แถวที่ 2 เวล 10.30
ชื่อ I นามสกุล J อยู่แถวที่ 2 เวล 10.40
Dim count As Integer
count = listbox1.Items.Count
Dim strSplit1 As Array
Dim item2 As String
Dim lastitem As String
On Error Resume Next
item2 = listbox2.Items(listbox2.Items.Count - 1).ToString
strSplit1 = Split(item2, "-")
lastitem = strSplit1(2)
Dim qlasttime As DateTime = lastitem
For i = 0 To listbox1.Items.Count - 1
If listbox1.Items.IndexOf(listbox2.Items.FindByText(txtbox1.Text & " - " & txtbox2.Text)) = -1 Then
label1.Text = "ไม่พบข้อมูล"
Else
label1.Text = "ถูกเรียกในเวลา" & " " & Format(qlasttime.AddMinutes((listbox1.Items.IndexOf(listbox1.Items.FindByText(txtbox1.Text & " - " & txtbox2.Text)) + 1) * txtqtime.Text),"HH:mm")
End If
Next
select DATEADD(MINUTE, (10*Rows), convert(time,SYSDATETIME())) as TimeStamp,Round
,NO FROM (SELECT Round,NO,ROW_NUMBER() OVER
(ORDER BY Round,NO) as Rows FROM Table) as x