ProjectForStudy

 ลืมรหัสผ่าน
 ลงทะเบียน
ค้นหา
ดู: 339|ตอบกลับ: 5

[ถาม/ตอบ] ไม่สามารถเซฟได้ ถ้า Picturebox ว่างเปล่า There are more columns in the INSERT statement than values specified in he VALUES clause.

[คัดลอกลิงก์]
  • อารมณ์วันนี้
    สู้
    2019-10-13 02:02
  • เช็คชื่อแล้ว: 22 วัน

    [LV.4]BeginnerIII

    4

    กระทู้

    43

    โพสต์

    171

    เครดิต

    CodeDragon

    Rank: 2

    เครดิต
    171
    Ticket
    30
    จิตพิสัย
    141
    ช่วยเติมโค้ดให้ผมหน่อยครับ เซฟข้อมูลERROR เมื่อไม่ได้ใส่รูปภาพ หรือ Picturebox ว่างเปล่า

       
    1.   If PictureBox2.Image Is Nothing Then
    2.             sql = "insert into detail(IDroom, Fname, Lname, Cardnumber, Date, Old, Sex, Address, Tel, Deposit, Elec, Water, Npic, Pic) values(@IDroom,@Fname,@Lname,@Cardnumber,@Date,@Old,@Sex,@Address,@Tel,@Deposit,@Elec,@Water)"
    3.         Else
    4.             sql = "insert into detail(IDroom, Fname, Lname, Cardnumber, Date, Old, Sex, Address, Tel, Deposit, Elec, Water, Npic, Pic) values(@IDroom,@Fname,@Lname,@Cardnumber,@Date,@Old,@Sex,@Address,@Tel,@Deposit,@Elec,@Water,@Npic,@Pic)"
    5.         End If
    6.         cmd = New SqlClient.SqlCommand(sql, cn)
    7.         cmd.Parameters.Clear()
    8.         cmd.Parameters.AddWithValue("IDroom", IDroom.Text)
    9.         cmd.Parameters.AddWithValue("Fname", txt_add_Fname.Text)
    10.         cmd.Parameters.AddWithValue("Lname", txt_add_Lname.Text)
    11.         cmd.Parameters.AddWithValue("Cardnumber", txt_add_Cardnumber.Text)
    12.         cmd.Parameters.AddWithValue("Date", txt_add_Date.Text)
    13.         cmd.Parameters.AddWithValue("Old", txt_add_Old.Text)
    14.         cmd.Parameters.AddWithValue("Sex", txt_add_Sex.Text)
    15.         cmd.Parameters.AddWithValue("Address", txt_add_Address.Text)
    16.         cmd.Parameters.AddWithValue("Tel", txt_add_Tel.Text)
    17.         cmd.Parameters.AddWithValue("Deposit", txt_add_Deposit.Text)
    18.         cmd.Parameters.AddWithValue("Elec", txt_add_Elec.Text)
    19.         cmd.Parameters.AddWithValue("Water", txt_add_Water.Text)
    20.         cmd.Parameters.AddWithValue("Npic", txt_filename.Text)

    21.         If Not PictureBox2.Image Is Nothing Then
    22.             Dim mem As New IO.MemoryStream
    23.             PictureBox2.Image.Save(mem, Imaging.ImageFormat.Bmp)
    24.             Dim picc() As Byte
    25.             picc = mem.ToArray()
    26.             cmd.Parameters.AddWithValue("Pic", picc)
    27.         End If

    28.         If cmd.ExecuteNonQuery = 0 Then
    29.             MessageBox.Show("Fail", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Error)
    30.         Else
    31.             MessageBox.Show("Succeess", "เพิ่มข้อมูล", MessageBoxButtons.OK, MessageBoxIcon.Information)

    32.         End If
    คัดลอกไปที่คลิปบอร์ด


    อ้างอิงจากคลิปแอดมิน
    https://www.youtube.com/watch?v=uxqm6IFOyJw

    ขออภัย! โพสต์นี้มีไฟล์แนบหรือรูปภาพที่ไม่ได้รับอนุญาตให้คุณเข้าถึง

    คุณจำเป็นต้อง ลงชื่อเข้าใช้ เพื่อดาวน์โหลดหรือดูไฟล์แนบนี้ คุณยังไม่มีบัญชีใช่ไหม? ลงทะเบียน

    x
  • อารมณ์วันนี้
    แฮปปี้
    18 ชั่วโมงที่แล้ว
  • เช็คชื่อแล้ว: 410 วัน

    [LV.9]ConquerorII

    31

    กระทู้

    799

    โพสต์

    5083

    เครดิต

    RapterClaw

    Rank: 5Rank: 5

    เครดิต
    5083
    Ticket
    3197
    จิตพิสัย
    1886

    Merciful MemberInstructor

    puklit โพสต์ 2019-6-20 08:19:24 | ดูโพสต์ทั้งหมด
    แก้ไขครั้งสุดท้ายโดย puklit เมื่อ 2019-6-25 08:55

    Error มันแจ้งเตือนอย่างชัดเจนครับ เพียงแต่ท่านอาจจะยังไม่เข้าใจ หรือยังไม่ได้ศึกษาเกี่ยวกับการแจ้งเตือนของ Error
    ดังนั้นเวลาเกิด Error ท่านต้องทำความเข้าใจก่อนว่ามัน Error เกิดจากอะไร และโปรแกรมเตือนหรือบอกว่า Error เพราะอะไร

    จากที่ท่านบอกกว่า


    แล้วเกิด Error และ Error บอกกลับมาดังนี้
    (ถ้าท่านเข้าใจภาษาอังกฤษก็ไม่ยากครับมันบอกหมด แต่ถ้าภาษาอังกฤษไม่ได้ท่านต้องเรียนรู้เพิ่มเติม
    เพราะเขียนโปรแกรมหนีเรื่องของภาษาไม่พ้น แต่ถ้าท่านบอกว่าภาษาผมไม่ไหวเลยอันนี้ผมขอตอบให้เลยว่าไปด้วยกันยาก)


    จากระบบ Error แปลจาก Google ได้ดังนี้ (กรณีภาษาไม่ไปไหนเลย)


    ทีนี้พอจะจับใจความเพิ่มขึ้นได้บ้างแล้วว่า ฟิล์ดที่ท่านใส่ไปใน INSERT นั้นมากกว่า VALUES ผมจะยกโค้ดของท่านมาให้ดูดังนี้
    ผมจะแทนฟิล์ดที่จับคู่กันถูกต้องและลงตัวด้วยสีเขียว ส่วนที่ไม่ตรงและไม่มีคู่หรือเกินมาด้วยสีแดง
    sql = "insert into detail(IDroom, Fname, Lname, Cardnumber, Date, Old, Sex, Address, Tel, Deposit, Elec, Water, Npic, Pic)                values(@IDroom,@Fname,@Lname,@Cardnumber,@Date,@Old,@Sex,@Address,@Tel,@Deposit,@Elec,@Water)"

    ในเมื่อเงื่อนไขกรณีถ้าผู้ใช้งานไม่เลือกรูป ท่านต้องตัดสีแดงที่ผมแต้มไว้ออก

    ทีนี้ท่านคงรู้แล้วนะว่า
    1. Error ท่านคืออะไร
    2. โปรแกรมแจ้งเตือน Error ท่านอะไร
    3. จะแก้ไข Error ตรงไหน
    4. เฉลย คือโปรแกรมท่านไม่ได้เขียนผิด แต่ผิดที่ SQL command ท่านผิด พอโปรแกรมรับ SQL command ที่ผิดไปประมวลผล (มันจึงเกิด Error)

    ถ้ายังสงสัย ให้ท่านกลับไปปูพื้นฐานให้แน่น แล้วท่านจะไปต่อทางด้านเขียนโปรแกรมได้อย่างราบรื่น

    ปล. ส่วนตัวผมไม่ได้เรียนคอม และเกี่ยวข้อกับโปรแกรมเมอร์มาตั้งแต่แรก จบบริหาร งานนี้เป็นงานอดิเรกของผมสนใจศึกษามันเพิ่มเติมเท่านั้น









    ขออภัย! โพสต์นี้มีไฟล์แนบหรือรูปภาพที่ไม่ได้รับอนุญาตให้คุณเข้าถึง

    คุณจำเป็นต้อง ลงชื่อเข้าใช้ เพื่อดาวน์โหลดหรือดูไฟล์แนบนี้ คุณยังไม่มีบัญชีใช่ไหม? ลงทะเบียน

    x

    คะแนน

    จำนวนผู้เข้าร่วม 2จิตพิสัย +15 ย่อ เหตุผล
    Genesis + 5 ถูกใจ
    vbpossible + 10

    ดูบันทึกคะแนน

  • อารมณ์วันนี้
    สู้
    2019-10-13 02:02
  • เช็คชื่อแล้ว: 22 วัน

    [LV.4]BeginnerIII

    4

    กระทู้

    43

    โพสต์

    171

    เครดิต

    CodeDragon

    Rank: 2

    เครดิต
    171
    Ticket
    30
    จิตพิสัย
    141
     เจ้าของ| willzaa147 โพสต์ 2019-6-20 09:25:23 | ดูโพสต์ทั้งหมด
    puklit ตอบกลับเมื่อ 2019-6-20 08:19
    Error มันแจ้งเตือนอย่างชัดเจนครับ เพียงแต่ท่านอาจจะยั ...

    ขอบคุณมากๆเลยครับ ทำให้ผมเข้าใจอะไรอีกเยอะจาก เม้นนี้เลยครับ
    ขอบคุณจริงๆครับ
  • อารมณ์วันนี้
    สู้
    เมื่อวาน 09:00
  • เช็คชื่อแล้ว: 90 วัน

    [LV.6]JuniorII

    0

    กระทู้

    171

    โพสต์

    699

    เครดิต

    TeenLion

    Rank: 3Rank: 3

    เครดิต
    699
    Ticket
    181
    จิตพิสัย
    518
    potter_t โพสต์ 2019-7-22 10:40:15 | ดูโพสต์ทั้งหมด
    ขอบคุณครับ
  • อารมณ์วันนี้
    เหนื่อย
    2019-8-26 23:26
  • เช็คชื่อแล้ว: 3 วัน

    [LV.2]BeginnerI

    0

    กระทู้

    28

    โพสต์

    17

    เครดิต

    BabyGhost

    Rank: 1

    เครดิต
    17
    Ticket
    15
    จิตพิสัย
    2
    bank8910 โพสต์ 2019-8-6 12:07:16 | ดูโพสต์ทั้งหมด
    ขอบคุณครับ
  • อารมณ์วันนี้
    ขี้เกียจ
    2019-9-12 21:50
  • เช็คชื่อแล้ว: 5 วัน

    [LV.2]BeginnerI

    1

    กระทู้

    38

    โพสต์

    61

    เครดิต

    BabyGhost

    Rank: 1

    เครดิต
    61
    Ticket
    23
    จิตพิสัย
    38
    อนัญ โพสต์ 2019-8-23 22:21:25 | ดูโพสต์ทั้งหมด
    สุดยอดค่ะ
    ขออภัย! คุณไม่ได้รับสิทธิ์ในการดำเนินการในส่วนนี้ กรุณาเลือกอย่างใดอย่างหนึ่ง ลงชื่อเข้าใช้ | ลงทะเบียน

    รายละเอียดเครดิต

    ข้อความล้วน|อุปกรณ์พกพา|ประวัติการแบน|ProjectForStudy  

    GMT+7, 2019-11-14 18:11 , Processed in 0.116571 second(s), 27 queries .

    Powered by Discuz! X3.2 R20150609, Rev.38

    © 2001-2013 Comsenz Inc.

    ตอบกระทู้ ขึ้นไปด้านบน ไปที่หน้ารายการกระทู้