[英]INSERT INTO SQL syntax error in vb
我已經用一把細齒梳仔細檢查了一下,無法找到語法錯誤,我已經在訪問中對其進行了測試,並且效果很好,任何人都可以看到該錯誤嗎?
Dim Day As String = CmbDay.Text
Dim Time As String = TxtTime.Text
Dim Club As String = TxtClub.Text
Dim Room As String = TxtRoom.Text
Dim Requirement As String = TxtRequire.Text
Dim order As String = "0"
If Day = "Monday" Then
order = "1"
ElseIf Day = "Tuesday" Then
order = "2"
ElseIf Day = "Wednesday" Then
order = "3"
ElseIf Day = "Thursday" Then
order = "4"
ElseIf Day = "Friday" Then
order = "5"
End If
Access.ExecQuery("INSERT INTO Clubs (Daysort, ClubName, Times, Day, Room, Requirement) VALUES ('" & order & "','" & Club & "', '" & Time & "', '" & Day & "', '" & Room & "', '" & Requirement & "');")
If Not String.IsNullOrEmpty(Access.Exception) Then MsgBox(Access.Exception) : Exit Sub
嘗試刪除; 在您的sql末尾,
從
Access.ExecQuery("INSERT INTO Clubs (Daysort, ClubName, Times, Day, Room, Requirement) VALUES ('" & order & "','" & Club & "', '" & Time & "', '" & Day & "', '" & Room & "', '" & Requirement & "');")
至
Access.ExecQuery("INSERT INTO Clubs (Daysort, ClubName, Times, Day, Room, Requirement) VALUES ('" & order & "','" & Club & "', '" & Time & "', '" & Day & "', '" & Room & "', '" & Requirement & "')")
你應該試試這個
Access.ExecQuery("INSERT INTO Clubs ([Daysort], [ClubName], [Times], [Day], [Room], [Requirement]) VALUES ('" & order.Text & "','" & Club.Text & "', '" & Time.Text & "', '" & Day.Text & "', '" & Room.Text & "', '" & Requirement.Text & "')")
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.