ผมเขียน Code ให้ โปรแกรมมันเปลี่ยนจากตัวเลขไปเป็นเวลา เช่น 540 = 9.00 หรือ 600 = 10.00
แล้วไปแสดงใน Grid
VB6.0 + SqlServer 2000


Private Sub cmdCheck_Click()
Dim rsCheck As New ADODB.Recordset
Dim sqlCheck As String
Dim i As Integer

sqlCheck = "SELECT Customer_Name, Course_Name, Room_Name,Teacher_Name, [AccStudy_Min]/60+([AccStudy_Min] Mod 60)/100 AS Start,"
sqlCheck = sqlCheck & "[FinishStudy_Min]/60+([FinishStudy_Min] Mod 60)/100 AS Finish From tblSchedule where Room_id ='" & DcbRoomSelect.BoundText & "' "

With rsCheck
.ActiveConnection = Conn
.CursorType = adOpenForwardOnly
.CursorLocation = adUseClient
.Open sqlCheck
If .RecordCount <> 0 Then
Set mfgSchedule.DataSource = rsCheck


Else
With mfgSchedule
For i = 1 To .Row - 2
If .Rows > 2 Then
.Rows = .Rows - 1

End If
Next
.Clear
End With
End If

Call ShowSchedule
End With

แล้วมัน Error ตรง Mod นะครับ ผมลองเอา Sql นี้ ไปใช้กับ Access 97 ปรากฎว่าใช้ได้ครับ เลยไม่ทราบว่าจะแก้ยังงัยดีครับ แต่พอลองไปใช้ใน Query Analyzer ของ SqlServer 2000 ปรากฏว่า Error : Incorrect syntax near 'Mod'.

ผมออกแบบฟิวAccStudy_Min,FinishStudy_Min = Number ครับ

ขอบคุณครับที่เข้ามาตอบ