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,037

HOME > .NET Framework > Forum > VB.Net ลบข้อมูลแล้วพอจะเพิ่มข้อมูลใหม่มัน error อ่ะครับ



 

VB.Net ลบข้อมูลแล้วพอจะเพิ่มข้อมูลใหม่มัน error อ่ะครับ

 



Topic : 104687

Guest




คือผมจะลบข้อมูลออกจากตารางรายการหนังสือกับตารางหลังสืออ่ะครับ ตอนลบมันลบได้ แต่พอจะเพิ่มข้อมูลเข้าไปใหม่มันไม่ได้อ่ะครับ ช่วยดูโค๊ดให้หน่อยว่าควรแก้ไขอย่างไร


Code (VB.NET)
Imports System.Data
Imports System.Data.OleDb
Public Class FormListSend
    Dim ds As New DataSet()
    Dim da As OleDbDataAdapter
    Dim dt As New DataTable
    Dim r As Integer
    Dim cp As String
    Dim Lcount As Integer
    Dim iRow As Integer
    Dim bs As New BindingSource()
    Dim WithEvents objCurrencymanager As CurrencyManager
    Dim Comm As New OleDbCommand
    Dim strSQL As String
    Private Property cn As OleDbConnection
    Private Sub FormListSend_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cn = New OleDbConnection("provider=microsoft.jet.oledb.4.0;user id=admin;password=;data source = C:/project.mdb")
        cn.Open()
        da = New OleDbDataAdapter("select * from send", cn)
        Try
            da.Fill(ds, "send")
        Catch ex As OleDb.OleDbException
            MsgBox(ex.Message)
        End Try
        Send_no.DataBindings.Add("text", ds.Tables("send"), "Send_no")
        Send_that.DataBindings.Add("text", ds.Tables("send"), "Send_that")
        Send_date.DataBindings.Add("text", ds.Tables("send"), "Send_date")
        Send_from.DataBindings.Add("text", ds.Tables("send"), "Send_from")
        Send_up.DataBindings.Add("text", ds.Tables("send"), "Send_up")
        Send_subject.DataBindings.Add("text", ds.Tables("send"), "Send_subject")
        DataGridView1.DataSource = ds.Tables("send")
        With DataGridView1
            .Columns(0).HeaderText = "เลขทะเบียนส่ง"
            .Columns(0).Width = 140
            .Columns(1).HeaderText = "ที่"
            .Columns(1).Width = 80
            .Columns(2).HeaderText = "วันที่"
            .Columns(2).Width = 90
            .Columns(3).HeaderText = "จาก"
            .Columns(3).Width = 100
            .Columns(4).HeaderText = "ถึง"
            .Columns(4).Width = 100
            .Columns(5).HeaderText = "เรื่ิอง"
            .Columns(5).Width = 180
            .Columns(6).HeaderText = "หมายเหตุ"
            .Columns(6).Width = 90
            .Columns(7).HeaderText = "สิ่งที่แนบมาด้วย"
            .Columns(7).Width = 120
            .Columns(8).HeaderText = "ไฟล์เอกสาร"
            .Columns(8).Width = 100
        End With
        Itemcb1()
        objCurrencymanager = CType(Me.BindingContext(ds.Tables("send")), CurrencyManager)
        cn.Close()
    End Sub
    Private Sub Itemcb1()
        ComboBox1.Items.Add("ด่วนที่สุด")
        ComboBox1.Items.Add("ด่วนมาก")
        ComboBox1.Items.Add("ด่วน")
    End Sub
    Private Sub Buttonback_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonback.Click
        FormMenu.Show()
        Me.Hide()
    End Sub

    Private Sub Buttonadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonadd.Click
        objCurrencymanager.AddNew()
    End Sub

    Private Sub Buttonsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonsave.Click
        Try
            cn.Open()
            strSQL = "INSERT INTO send(Send_no,Send_that,Send_date,Send_from,Send_up,Send_subject)VALUES('" & Send_no.Text & "','" & Me.Send_that.Text & "','" & Me.Send_date.Value & "','" & Me.Send_from.Text & "','" & Me.Send_up.Text & "','" & Me.Send_subject.Text & "')"
            Comm = New OleDbCommand(strSQL, cn)
            Comm.ExecuteNonQuery()
            Dim ds As New DataSet
            Dim dt As New DataTable
            Dim r As Integer
            Dim cp As String
            Dim Lcount As Integer
            cp = "c1"
            strSQL = "SELECT * FROM book"
            Comm = New OleDbCommand(strSQL, cn)
            da.SelectCommand = Comm
            da.Fill(ds, "book")
            Lcount = ds.Tables(0).Rows.Count + 1
            If RadioButton1.Checked = True Then
                r = "1"
            ElseIf RadioButton2.Checked = True Then
                r = "2"
            ElseIf RadioButton3.Checked = True Then
                r = "3"
            ElseIf RadioButton4.Checked = True Then
                r = "4"
            End If
            strSQL = "INSERT INTO book(book_id,book_name,cat_id,Send_no)VALUES('" & Lcount & "','" & Me.Send_that.Text & "','" & r & "','" & Me.Send_no.Text & "')"
            Comm = New OleDbCommand(strSQL, cn)
            Comm.ExecuteNonQuery()
            strSQL = "INSERT INTO practice(pra_id,pra_name,cat_pra_id,book_id)VALUES('" & Lcount & "','" & ComboBox1.SelectedItem & "','" & cp & "','" & Lcount & "')"
            Comm = New OleDbCommand(strSQL, cn)
            Comm.ExecuteNonQuery()
            MsgBox("บันทึกข้อมูลเรียบร้อย")
            DataGridView1.Refresh()
            ClearsubData()
            ClearradData()
            ClearcbData()
        Catch ex As OleDb.OleDbException
            MsgBox(ex.Message)
        End Try
        cn.Close()
    End Sub
    Private Sub ClearsubData()
        Send_no.Text = ""
        Send_that.Text = ""
        Send_date.Text = ""
        Send_from.Text = ""
        Send_up.Text = ""
        Send_subject.Text = ""
    End Sub
    Private Sub ClearradData()
        RadioButton1.Checked = False
        RadioButton2.Checked = False
        RadioButton3.Checked = False
        RadioButton4.Checked = False
    End Sub
    Private Sub ClearcbData()
        ComboBox1.SelectedItem = False
    End Sub
    Private Sub Buttonedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonedit.Click
        If MsgBox("คุณต้องการจะแก้ไขรายการนี้ใช่หรือไม่ ?...", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "ยืนยันการแก้ไขรายการ") = MsgBoxResult.Yes Then
            Try
                cn.Open()
                strSQL = "UPDATE send SET Send_no = '" & Send_no.Text & "',Send_that = '" & Me.Send_that.Text & "',Send_date = '" & Me.Send_date.Text & "',Send_from = '" & Me.Send_from.Text & "',Send_up = '" & Me.Send_up.Text & "',Send_subject = '" & Me.Send_subject.Text & "' WHERE (Send_no = '" & Send_no.Text & "')"
                Comm = New OleDbCommand(strSQL, cn)
                Comm.ExecuteNonQuery()
                cp = "c1"
                strSQL = "SELECT * FROM book"
                Comm = New OleDbCommand(strSQL, cn)
                da.SelectCommand = Comm
                da.Fill(ds, "book")
                Lcount = ds.Tables(0).Rows.Count
                    If RadioButton1.Checked = True Then
                        r = "1"
                    ElseIf RadioButton2.Checked = True Then
                        r = "2"
                    ElseIf RadioButton3.Checked = True Then
                        r = "3"
                    ElseIf RadioButton4.Checked = True Then
                        r = "4"
                    End If
                    strSQL = "UPDATE book SET book_name = '" & Me.Send_subject.Text & "',cat_id = '" & r & "',Send_no = '" & Me.Send_no.Text & "' WHERE (Send_no = '" & Send_no.Text & "')"
                    Comm = New OleDbCommand(strSQL, cn)
                    Comm.ExecuteNonQuery()
                    MsgBox("แก้ไขข้อมูลเรียบร้อย")
                    DataGridView1.Refresh()
                    ClearsubData()
                    ClearradData()
                    ClearcbData()
            Catch ex As OleDb.OleDbException
                MsgBox(ex.Message)
            End Try
            cn.Close()
        Else
            MsgBox("ยกเลิกการแก้ไขรายการปัจจุบัน", MsgBoxStyle.Information, "ยกเลิกคําสั่งแก้ไข")
        End If
    End Sub

    Private Sub Buttondel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttondel.Click
        If MsgBox("คุณแน่ใจหรือไม่ว่าต้องการลบเรคคอร์ดนี ?...", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "ยืนยันการลบข้อมูล") = MsgBoxResult.Yes Then
            Try
                cn.Open()
                strSQL = "DELETE FROM send WHERE Send_no = '" & Send_no.Text & "'"
                Comm = New OleDbCommand(strSQL, cn)
                Comm.ExecuteNonQuery()
                cp = "c1"
                strSQL = "SELECT * FROM book"
                Comm = New OleDbCommand(strSQL, cn)
                da.SelectCommand = Comm
                da.Fill(ds, "book")
                Lcount = ds.Tables(0).Rows.Count + 1
                If RadioButton1.Checked = True Then
                    r = "1"
                ElseIf RadioButton2.Checked = True Then
                    r = "2"
                ElseIf RadioButton3.Checked = True Then
                    r = "3"
                ElseIf RadioButton4.Checked = True Then
                    r = "4"
                End If
                strSQL = "DELETE FROM book WHERE Send_no = '" & Me.Send_no.Text & "'"
                Comm = New OleDbCommand(strSQL, cn)
                Comm.ExecuteNonQuery()
                MsgBox("แก้ไขข้อมูลเรียบร้อย")
                DataGridView1.Refresh()
                ClearsubData()
                ClearradData()
                ClearcbData()
            Catch ex As OleDb.OleDbException
                MsgBox(ex.Message)
            End Try
            cn.Close()
        Else
            MsgBox("ยกเลิกการลบเรคคอร์ดปัจจุบัน", MsgBoxStyle.Information, "ยกเลิกคําสั่งลบ")
        End If
    End Sub
End Class


ต้องแก้ไขปรับปรุงเป็นยังไงบ้างอ่ะครับ ขอความกรุณาด้วยครับ....



Tag : .NET, Ms Access, VBScript, VB.NET







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2014-01-16 21:46:46 By : เมฆ View : 1267 Reply : 4
 

 

No. 1



โพสกระทู้ ( 74,058 )
บทความ ( 838 )

สมาชิกที่ใส่เสื้อไทยครีเอท

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

Error ว่าอะไรครับ






แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2014-01-17 09:18:05 By : mr.win
 


 

No. 2

Guest


the field is too small to accept the amount of data you attempted to add. Try inserting or pasting less data.

พอกดลบข้อมูลแล้วพอกดเพิ่มแล้วจะบันทึกข้อมูลใหม่มันขึ้นแบบนี้อ่ะครับ คือตอนเพิ่ม ผมเพิ่มใน ตารางรายการหนังสือส่ง แล้วก็ใน ตารางหนังสือ ด้วยอ่ะครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2014-01-17 19:25:02 By : เมฆ
 

 

No. 3



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

สมาชิกที่ใส่เสื้อไทยครีเอท

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


มันบอกขนาดของ field ครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2014-01-18 07:48:37 By : Downrung
 


 

No. 4

Guest


แล้วต้องแก้ไขยังไงอ่ะครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2014-01-18 11:48:25 By : เมฆ
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : VB.Net ลบข้อมูลแล้วพอจะเพิ่มข้อมูลใหม่มัน error อ่ะครับ
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ 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 03
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 อัตราราคา คลิกที่นี่