Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 109,027

HOME > .NET Framework > Forum > พบปัญหา syntax error in INSERT INTO Statement ครับ [VB.net]



 

พบปัญหา syntax error in INSERT INTO Statement ครับ [VB.net]

 



Topic : 135019



โพสกระทู้ ( 2 )
บทความ ( 0 )



สถานะออฟไลน์




Code (VB.NET)
เป็น Button เพิ่ม Record ลงใน Access ครับ จับ Catch ได้ว่า "syntax error in INSERT INTO Statement"
ขอความกรุณาด้วยครับ T.T

Private Sub btn_okitemout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_okitemout.Click
   
        Dim con As New OleDbConnection
        Dim directory As String = My.Application.Info.DirectoryPath
        Dim strConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & directory & "\DB-SUPORD4.mdb;Jet OLEDB:Database Password=;"
        Dim com As New OleDbCommand
        Dim da As New OleDbDataAdapter
        Dim ds As New DataSet
        Dim dt As New DataTable
        Dim bd As New BindingSource
        Dim strsql As String
        Dim objConnx As New OleDbConnection
        Dim objCmdx As New OleDbCommand
        Dim qt As Integer = Convert.ToInt32(txt_qt.Text)
        Dim qtokitemout As Integer = Convert.ToInt32(txt_qtokitemout.Text)

        If qtokitemout > qt Then
            frm_additemx.Show()
            txt_qtokitemout.Text = ""
            txt_qtokitemout.Focus()
            Exit Sub
        End If

        strsql = "INSERT INTO tbl_itemout_status (itemout_status_billno," & _
                 "itemout_status_getbillno," & _
                 "itemout_status_uu," & _
                 "itemout_status_uugive," & _
                 "itemout_status_want," & _
                 "itemout_status_qtokitemout," & _
                 "itemout_status_name," & _
                 "itemout_status_nameth," & _
                 "itemout_status_nsn," & _
                 "itemout_status_nsn1," & _
                 "itemout_status_nsn2," & _
                 "itemout_status_type," & _
                 "itemout_status_datex," & _
                 "itemout_status_userx," & _
                 "itemout_status_sto," & _
                 " VALUES " & _
                 "('" & Me.txt_billno.Text & "'," & _
                 "'" & Me.txt_getbillno.Text & "'," & _
                 "'" & Me.txt_uu.Text & "'," & _
                 "'" & Me.txt_uugive.Text & "'," & _
                 "'" & Me.txt_wantx.Text & "'," & _
                 "'" & Me.txt_qtokitemout.Text & "'," & _
                 "'" & Me.txt_name.Text & "'," & _
                 "'" & Me.txt_nameth.Text & "'," & _
                 "'" & Me.txt_nsn.Text & "'," & _
                 "'" & Me.txt_nsn1.Text & "'," & _
                 "'" & Me.txt_nsn2.Text & "'," & _
                 "'" & Me.txt_type.Text & "'," & _
                 "'" & Me.txt_date.Text & "'," & _
                 "'" & Me.txt_xxx.Text & "'," & _
                 "'" & Me.txt_sto.Text & "')"
        objConnx.ConnectionString = strConnString
        objConnx.Open()

        Select Case MsgBox("ทำการตัดจ่าย สป. " + txt_name.Text & vbNewLine & "จำนวน " + txt_qtokitemout.Text + " EA", MsgBoxStyle.Exclamation + MsgBoxStyle.OkCancel, "WARNING")
            Case MsgBoxResult.Ok
                With objCmdx
                    .Connection = objConnx
                    .CommandText = strsql
                    .CommandType = CommandType.Text
                End With
                Try
                    objCmdx.ExecuteNonQuery()
                    txt_id.Clear()
                    txt_nameth.Clear()
                    txt_name.Clear()
                    txt_nsn.Clear()
                    txt_nsn1.Clear()
                    txt_nsn2.Clear()
                    txt_type.Clear()
                    txt_qt.Clear()

                    txt_billno.Clear()
                    txt_getbillno.Clear()
                    txt_uu.Clear()
                    txt_uugive.Clear()
                    txt_qtokitemout.Clear()
                    rdo_dl.Checked = False
                    rdo_SP.Checked = False
                    rdo_pll.Checked = False
                    rdo_asl.Checked = False
                Catch ex As Exception
                    MsgBox(ex.Message)
                End Try
            Case MsgBoxResult.Cancel
                'MsgBox("NO Clicked.")
        End Select
       
        objConnx.Close()
        objConnx = Nothing

    End Sub




Tag : .NET, Ms Access, Win (Windows App), VB.NET, VS 2010 (.NET 4.x)









ประวัติการแก้ไข
2020-03-17 15:49:35
2020-03-17 15:50:06
Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2020-03-17 15:47:53 By : garzorio7 View : 530 Reply : 3
 

 

No. 1

Guest


, เกิน
) หาย

แต่ผมจะยังไม่บอกว่าจุดไหนให้ไปหาเอาเอง
เวลาเขียนคำสั่งแล้วมีฟิลด์เยอะจงอย่าลืม รูปแบบของคำสั่ง SQL
ใล่ดูดี ๆ แล้วจะพบข้อผิดพลาดเอง






แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2020-03-18 08:01:38 By : อ่าวไทย
 


 

No. 2



โพสกระทู้ ( 55 )
บทความ ( 0 )



สถานะออฟไลน์
Facebook

แนะนำนะครับ
เบื้องต้นลองหัด Debug
ถ้าคิดว่า command SQL ผิด ให้ไปลอง ใน sql จริง ๆ ก่อนค่อยเอามาใช้นะครับ

ง่ายๆลองพยายามดูครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2020-03-18 08:39:53 By : 2127832830566218
 

 

No. 3



โพสกระทู้ ( 2 )
บทความ ( 0 )



สถานะออฟไลน์


แก้ไขใช้ได้แล้วครับ ขอบคุณทั้ง 2 ท่านมากๆครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2020-03-18 13:00:55 By : garzorio7
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : พบปัญหา syntax error in INSERT INTO Statement ครับ [VB.net]
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 01
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2024 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่