Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,037

HOME > .NET Framework > Forum > ช่วยหน่อยคับ ทำมาหลายรอบแล้ว มันบันทึกลงฐานข้อมูลไม่ได้คับ

ช่วยหน่อยคับ ทำมาหลายรอบแล้ว มันบันทึกลงฐานข้อมูลไม่ได้คับ

เริ่มหัวข้อใหม่

Guest

Code (VB.NET)

Imports System.Data.OleDb
Imports System.Data

Public Class FormCustomer

    Dim myConn As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Car\MyProject.accdb")
    Dim mycommand As New OleDbCommand
    Dim myDataSet As DataSet = New DataSet()
    Dim myDataView As DataView = New DataView()
    Dim sqlSelect As String
    Dim Cnn As New OleDbConnection(Cnnstring)
    Dim Cnnstring As String
    Dim da As OleDbDataAdapter
    Dim dttable As DataTable
  
    Private Sub ShowData()
        Dim gen As Integer
        If TextBox2.Text = "" Then
            TextBox3.Text = "CT0001"
        Else
            gen = (TextBox2.Text.Substring(2, 4)) + 1
            TextBox3.Text = "CT" & gen.ToString("0000")
        End If
    End Sub


    Private Sub FormCustomer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'MyProjectDataSet.Customer' table. You can move, or remove it, as needed.
        Me.CustomerTableAdapter.Fill(Me.MyProjectDataSet.Customer)
        'TODO: This line of code loads data into the 'MyProjectDataSet.Customer' table. You can move, or remove it, as needed.
        Me.CustomerTableAdapter.Fill(Me.MyProjectDataSet.Customer)


        myConn.Open()

        da = New OleDb.OleDbDataAdapter("Select Max(ID_Customer) as ID_Customer from Customer", myConn)
        myDataSet = New DataSet("Customer")
        da.Fill(myDataSet, "Customer")

        Try
            TextBox2.DataBindings.Add("text", myDataSet, "Customer.ID_Customer")

        Catch ex As System.ArgumentException
            MessageBox.Show(ex.Message)
        End Try
        myConn.Close()
        TextBox2.DataBindings.Clear()

        ShowData()

        TextBox1.Text = "0"
        Panel1.Visible = True
        'Panel2.Visible = False

        ' ID_CustomerTextBox.Visible = True
        ' BindingNavigatorAddNewItem.Enabled = True
        ' ToolStripButton1.Enabled = False
        'ToolStripButton2.Enabled = True
        ' CustomerBindingNavigatorSaveItem.Enabled = False
        ' BindingNavigatorDeleteItem.Enabled = False
        ' ToolStripButton6.Enabled = False
        ' ToolStripButton4.Enabled = True
        'TextBox2.Visible = False
        TextBox1.Visible = False
        'DELTextBox.Visible = False
    End Sub

    Private Sub CustomerBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CustomerBindingNavigatorSaveItem.Click


            Me.Validate()
            Me.CustomerBindingSource.EndEdit()
            Me.TableAdapterManager.UpdateAll(Me.MyProjectDataSet)
           


    End Sub
   

    Private Sub ProvinceComboBox_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ProvinceComboBox.KeyPress
        e.Handled = True
    End Sub
    Private Sub TypeCarComboBox_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TypeCarComboBox.KeyPress
        e.Handled = True
    End Sub
    Private Sub BrandCarComboBox_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles BrandCarComboBox.KeyPress
        e.Handled = True
    End Sub
    Private Sub ColorCarComboBox_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ColorCarComboBox.KeyPress
        e.Handled = True
    End Sub

    Private Sub NumPhoeTextBox_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NumPhoeTextBox.KeyPress
        Dim KeyAscii As Short = Asc(e.KeyChar)
        Select Case KeyAscii
            Case 47 To 58
                e.Handled = False
            Case 8, 13, 46 ' Backspace = 8, Enter = 13, Delete = 46
                e.Handled = False
            Case Else
                e.Handled = True
        End Select
    End Sub

    Private Sub NameTextBox_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NameTextBox.KeyPress
        If (e.KeyChar >= "0" And e.KeyChar <= "9") Then
            e.Handled = True
        Else : e.Handled = False
        End If
    End Sub

    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click

        If (TextBox1.Text = "0") Then
            MessageBox.Show("ทำการกรอกข้อมูลให้ครบถ้วน!!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End If

        If (NameTextBox.Text = "") Then
            MessageBox.Show("กรุณาใส่ชื่อ  !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Error)
            NameTextBox.Focus()
            Exit Sub

        End If
        If (AddressTextBox.Text = "") Then
            MessageBox.Show("กรุณาใส่นามสกุล  !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Error)
            AddressTextBox.Focus()
            Exit Sub
        End If

        If (ProvinceComboBox.Text = "-----ระบุ-----") Then
            MessageBox.Show("กรุณาเลือกจังหวัด  !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Error)
            ProvinceComboBox.Focus()
            Exit Sub
        End If

        If (NumPhoeTextBox.Text = "") Then
            MessageBox.Show("กรุณาใส่เบอร์โทรศัพท์  !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Error)
            NumPhoeTextBox.Focus()
            Exit Sub
        End If

        If (AddressTextBox.Text = "") Then
            MessageBox.Show("กรุณาใส่ที่อยู่  !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Error)
            AddressTextBox.Focus()
            Exit Sub
        End If

        If (TypeCarComboBox.Text = "-----โปรดเลือก-----") Then
            MessageBox.Show("กรุณาเลือกประเภทรถ  !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Error)
            TypeCarComboBox.Focus()
            Exit Sub
        End If

        If (BrandCarComboBox.Text = "-----โปรดเลือก-----") Then
            MessageBox.Show("กรุณาเลือกยี่ห้อรถ  !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Error)
            BrandCarComboBox.Focus()
            Exit Sub
        End If

        If (GanerationCarTextBox.Text = "") Then
            MessageBox.Show("กรุณาใส่รุ่นรถ  !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Error)
            GanerationCarTextBox.Focus()
            Exit Sub
        End If

        If (ColorCarComboBox.Text = "-----โปรดเลือก-----") Then
            MessageBox.Show("กรุณาเลือกสีรถ !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Error)
            ColorCarComboBox.Focus()
            Exit Sub
        End If
        If (CarRegistrationTextBox.Text = "") Then
            MessageBox.Show("กรุณาใส่ทะเบียนรถ  !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Error)
            CarRegistrationTextBox.Focus()
            Exit Sub
        End If

        If (EngineCarNumberTextBox.Text = "") Then
            MessageBox.Show("กรุณาใส่หมายเลขเครื่อง  !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Error)
            EngineCarNumberTextBox.Focus()
            Exit Sub
        End If

        If (BodyCarMemberTextBox.Text = "") Then
            MessageBox.Show("กรุณาใส่หมายเลขตัวถัง !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Error)
            BodyCarMemberTextBox.Focus()
            Exit Sub
        End If

        Dim mbr As MsgBoxResult

        mbr = MsgBox("ท่านต้องการบันทึกข้อมูลหรือไม่", _
                        MsgBoxStyle.YesNo + _
                        MsgBoxStyle.Question + _
                        MsgBoxStyle.ApplicationModal, _
                        "บันทึกข้อมูล")

        If (mbr = MsgBoxResult.Yes) Then
            ID_CustomerTextBox.Text = TextBox3.Text
            TextBox2.Text = TextBox3.Text

            Cnnstring = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Car\MyProject.accdb"
            With Cnn

                If .State = ConnectionState.Open Then Close()
                .ConnectionString = Cnnstring
                .Open()
                .Close()
            End With

            myConn.Open()

            Dim db = "INSERT INTO Customer ([ID_Customer],[Name],[Address],[Province],[NumPhoe],[TypeCar],[BrandCar],[GanerationCar],[ColorCar],[CarRengistration],[EngineCarNumber],[BodyCarMember])"
            db &= "VALUES('" & ID_CustomerTextBox.Text & "','" & NameTextBox.Text & "','" & AddressTextBox.Text & "','" & ProvinceComboBox.Text & "','" & NumPhoeTextBox.Text & "','" & TypeCarComboBox.Text & "','" & BrandCarComboBox.Text & "','" & GanerationCarTextBox.Text & "','" & ColorCarComboBox.Text & "','" & CarRegistrationTextBox.Text & "','" & EngineCarNumberTextBox.Text & "','" & BodyCarMemberTextBox.Text & "','0') "
            mycommand = New OleDb.OleDbCommand(db, myConn)
            mycommand.ExecuteNonQuery()
            myConn.Close()


            MessageBox.Show("บันทึกข้อมูลเรียบร้อยแล้ว", "บันทึกข้อมูล")
            Me.CustomerTableAdapter.Fill(Me.MyProjectDataSet.Customer)
            sortCustomer()
            'ShowData()
            'blockdata()
            'ID_CustomerTextBox.Focus()
            TextBox1.Text = "0"

            Panel1.Visible = False
            'Panel2.Visible = True
            TextBox3.Visible = False
            ID_CustomerTextBox.Visible = True
            BindingNavigatorAddNewItem.Enabled = True
            ToolStripButton1.Enabled = False
            'ToolStripButton2.Enabled = True
            CustomerBindingNavigatorSaveItem.Enabled = False
            BindingNavigatorDeleteItem.Enabled = True
            'ToolStripButton6.Enabled = False
            TextBox2.Visible = False
            'ToolStripButton4.Enabled = True
            'ToolStripButton5.Enabled = True


        End If
    End Sub

    Private Sub sortCustomer()
        Try
            Me.CustomerTableAdapter.Fill(Me.MyProjectDataSet.Customer)
        Catch ex As System.Exception
            System.Windows.Forms.MessageBox.Show(ex.Message)
        End Try

    End Sub
    Private Sub cleardata()

        ID_CustomerTextBox.Text = ""
        NameTextBox.Text = ""
        AddressTextBox.Text = ""
        ProvinceComboBox.Text = ""
        NumPhoeTextBox.Text = ""
        TypeCarComboBox.Text = ""
        BrandCarComboBox.Text = ""
        GanerationCarTextBox.Text = ""
        ColorCarComboBox.Text = ""
        CarRegistrationTextBox.Text = ""
        EngineCarNumberTextBox.Text = ""
        BodyCarMemberTextBox.Text = ""

    End Sub

    Private Sub blockdata()
        ID_CustomerTextBox.Text = ""
        NameTextBox.Text = ""
        AddressTextBox.Text = ""
        ProvinceComboBox.Text = ""
        NumPhoeTextBox.Text = ""
        TypeCarComboBox.Text = ""
        BrandCarComboBox.Text = ""
        GanerationCarTextBox.Text = ""
        ColorCarComboBox.Text = ""
        CarRegistrationTextBox.Text = ""
        EngineCarNumberTextBox.Text = ""
        BodyCarMemberTextBox.Text = ""

    End Sub

    Public Sub ReadMyData(ByVal myConnString As String)
        On Error GoTo ErrorHandler
        With Cnn
            If .State = ConnectionState.Open Then Close()
            .ConnectionString = Cnnstring
            .Open()
        End With

        Me.Validate()
        Me.CustomerBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.MyProjectDataSet)
        MessageBox.Show("บันทึกข้อมูลเรียบร้อยแล้ว", "บันทึกข้อมูล")

        'NAMETextBox.Focus()
        TextBox1.Text = "0"
ErrorHandler:
    End Sub

    Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
        'TODO: This line of code loads data into the 'StockGearDataSet.Staff' table. You can move, or remove it, as needed.
        Me.CustomerTableAdapter.Fill(Me.MyProjectDataSet.Customer)

        cleardata()
        ShowData()

        ProvinceComboBox.Text = "-----โปรดเลือก-----"

        TypeCarComboBox.Text = "-----โปรดเลือก-----"
        BrandCarComboBox.Text = "-----โปรดเลือก-----"
        ColorCarComboBox.Text = "-----โปรดเลือก-----"


        Panel1.Visible = True
        'Panel2.Visible = True
        TextBox3.Visible = True
        ID_CustomerTextBox.Visible = False
        TextBox3.Enabled = False
        ID_CustomerTextBox.Enabled = False
        ToolStripButton1.Enabled = True
        BindingNavigatorDeleteItem.Enabled = False
        CustomerBindingNavigatorSaveItem.Enabled = True
        ToolStripButton2.Enabled = False
        BindingNavigatorDeleteItem.Enabled = False
        'ToolStripButton6.Enabled = True
        ' ToolStripButton4.Enabled = False
        NameTextBox.Focus()
        TextBox1.Text = "1"
        TextBox1.Visible = False
        TextBox2.Visible = False
        'ToolStripButton5.Enabled = False
    End Sub
End Class

Erro

mycommand = New OleDb.OleDbCommand(db, myConn)
mycommand.ExecuteNonQuery()

จำนวนของค่าแบบสอบถามและเขตข้อมูลปลายทางไม่เหมือนกัน

Tag : .NET, VB.NET

Date : 2011-11-15 09:14:46

By : poritive

View : 2137

Reply : 29

No. 1

plapaJung

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

มันเกินมาอัน 1 ค่ะ ตรง ,0

Date : 2011-11-15 11:35:06

By : bangbang111

No. 2

Guest

เอาออกแล้วก้ขึ้นแบบเดิมอะคับ

Date : 2011-11-15 12:49:41

By : poritive

No. 3

Guest

ตอนนี้เเก้ไขได้แล้วคับ
ผิดตรง CarRengistration พิมพ์ผิดพิมพ์ไม่เหมือนใน accress

บันทึกได้ แต่มีอยู่ว่า มันไม่มาขึ้นโชว์ในdatagrid อะคับ

Date : 2011-11-15 13:12:57

By : poritive

No. 4

Guest

ตอบหน่อยคับ

Date : 2011-11-15 20:43:57

By : poritive

No. 5

plapaJung

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

คุณ comment showdata() ไว้หรือปล่าวค่ะ มันเลยไม่ดึงมาโชว์อีกรอบ

Date : 2011-11-16 12:39:48

By : bangbang111

No. 6

Guest

มันขึ้นว่า win32exception was handle คือร้ัยอะคับ

Date : 2011-11-16 22:35:50

By : poritive

No. 7

plapaJung

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

พึ่งเห็นว่าโชว์ data ของคุณไม่ใช่การ call data เพื่อมาโชว์อีกครั้งงั้นง่ายๆก็หลังจาก save เส็ดแล้วก้อเรียก page load ขึ้นมาอีกครั้งก็ได้ค่ะ ก็จะได้ข้อมูลที่ update ใน grid

Code (VB.NET)

 Controls.Clear()
        InitializeComponent()
        FormCustomer_Load(Me, Nothing)

Date : 2011-11-17 11:15:53

By : bangbang111

No. 8

Guest

ทำงัยอะคับไม่ค่อยรู้ พวกโค้ดก้ก๊อปเคามา เหอๆ

Date : 2011-11-17 20:39:35

By : poritive

No. 9

Guest

ต้องเอาไปใส่ไว้ตรงไหนอะคับ

Date : 2011-11-17 20:42:25

By : poritive

No. 10

plapaJung

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

เอาไว้ใต้คำสั่ง

MessageBox.Show("บันทึกข้อมูลเรียบร้อยแล้ว", "บันทึกข้อมูล")
Me.CustomerTableAdapter.Fill(Me.MyProjectDataSet.Customer)

Date : 2011-11-18 13:36:14

By : bangbang111

No. 11

Guest

มันไม่อัพเดทให้อะคับ

Date : 2011-11-18 20:19:22

By : poritive

No. 12

Guest

รอคำตอบคับ

Date : 2011-11-20 23:24:05

By : poritive

No. 13

plapaJung

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

ตกลงตอนนี้มัน insert ลง database ได้แล้ว แต่ใน datagrid มันไม่แสดงแสดงแถวที่ insert ไปใช่ป่าวค่ะ แล้วตอนที่เปิดฟอร์มมาทีแรกเลยนี่
datagrid โชว์ข้อมูลใน table ทั้งหมดหรือป่าวค่ะ printsreen ตอนเปิดฟอร์มมาให้ดูหน่อยค่ะ แล้วก็ขอดูโค้ดที่คุณเพิ่มเข้าไปด้วยค่ะ

Date : 2011-11-21 00:16:59

By : bangbang111

No. 14

Guest

Code (VB.NET)

Imports System.Data.OleDb
Imports System.Data

Public Class FormCustomer

    Dim myConn As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Car\MyProject.accdb")
    Dim mycommand As New OleDbCommand
    Dim myDataSet As DataSet = New DataSet()
    Dim myDataView As DataView = New DataView()
    Dim sqlSelect As String
    Dim Cnn As New OleDbConnection(Cnnstring)
    Dim Cnnstring As String
    Dim da As OleDbDataAdapter
    Dim dttable As DataTable


  
    Private Sub ShowData()
        Dim gen As Integer
        If TextBox2.Text = "" Then
            TextBox3.Text = "CT0001"
        Else
            gen = (TextBox2.Text.Substring(2, 4)) + 1
            TextBox3.Text = "CT" & gen.ToString("0000")
        End If
    End Sub


    Private Sub FormCustomer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'MyProjectDataSet.Customer' table. You can move, or remove it, as needed.
        Me.CustomerTableAdapter.Fill(Me.MyProjectDataSet.Customer)
        'TODO: This line of code loads data into the 'MyProjectDataSet.Customer' table. You can move, or remove it, as needed.
        Me.CustomerTableAdapter.Fill(Me.MyProjectDataSet.Customer)


        myConn.Open()

        da = New OleDb.OleDbDataAdapter("Select Max(ID_Customer) as ID_Customer from Customer", myConn)
        myDataSet = New DataSet("Customer")
        da.Fill(myDataSet, "Customer")

        Try
            TextBox2.DataBindings.Add("text", myDataSet, "Customer.ID_Customer")

        Catch ex As System.ArgumentException
            MessageBox.Show(ex.Message)
        End Try
        myConn.Close()
        TextBox2.DataBindings.Clear()




        ShowData()

        TextBox1.Text = "0"
        Panel1.Visible = False
        Panel2.Visible = True

        ' ID_CustomerTextBox.Visible = True
        ' BindingNavigatorAddNewItem.Enabled = True
        ToolStripButton1.Enabled = False
        ToolStripButton2.Enabled = True
        CustomerBindingNavigatorSaveItem.Enabled = False
        BindingNavigatorDeleteItem.Enabled = False
        ToolStripButton6.Enabled = True
        ToolStripButton4.Enabled = False
        ToolStripButton3.Enabled = True
        ToolStripButton5.Enabled = True
        TextBox2.Visible = False
        TextBox1.Visible = False
        DELTextBox.Visible = False
    End Sub

    Private Sub CustomerBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CustomerBindingNavigatorSaveItem.Click
        Dim mbr As MsgBoxResult

       
        mbr = MsgBox("ท่านต้องการบันทึกการแก้ไขข้อมูลหรือไม่", _
                        MsgBoxStyle.YesNo + _
                        MsgBoxStyle.Question + _
                        MsgBoxStyle.ApplicationModal, _
                        "บันทึกข้อมูล")

        If (mbr = MsgBoxResult.Yes) Then
            Me.Validate()
            Me.CustomerBindingSource.EndEdit()
            Me.TableAdapterManager.UpdateAll(Me.MyProjectDataSet)
            MessageBox.Show("บันทึกการแก้ไขข้อมูลเรียบร้อยแล้ว", "บันทึกข้อมูล")

            'Panel1.Visible = False
            Panel2.Visible = True
            BindingNavigatorAddNewItem.Enabled = True
            ToolStripButton1.Enabled = False
            CustomerBindingNavigatorSaveItem.Enabled = False
            BindingNavigatorDeleteItem.Enabled = True
            ToolStripButton2.Enabled = True
            ToolStripButton6.Enabled = True
            ToolStripButton4.Enabled = False
            TextBox2.Visible = False
            ToolStripButton5.Enabled = False
            ToolStripButton3.Enabled = True
        End If


    End Sub
   

   

    Private Sub NumPhoeTextBox_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NumPhoeTextBox.KeyPress
        Dim KeyAscii As Short = Asc(e.KeyChar)
        Select Case KeyAscii
            Case 47 To 58
                e.Handled = False
            Case 8, 13, 46 ' Backspace = 8, Enter = 13, Delete = 46
                e.Handled = False
            Case Else
                e.Handled = True
        End Select
    End Sub

    Private Sub NameTextBox_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NameTextBox.KeyPress
        If (e.KeyChar >= "0" And e.KeyChar <= "9") Then
            e.Handled = True
        Else : e.Handled = False
        End If
    End Sub

    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click

        If (TextBox1.Text = "0") Then
            MessageBox.Show("ทำการกรอกข้อมูลให้ครบถ้วน!!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End If

        If (NameTextBox.Text = "") Then
            MessageBox.Show("กรุณาใส่ชื่อ  !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Error)
            NameTextBox.Focus()
            Exit Sub

        End If
        If (AddressTextBox.Text = "") Then
            MessageBox.Show("กรุณาใส่นามสกุล  !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Error)
            AddressTextBox.Focus()
            Exit Sub
        End If

        If (ProvinceComboBox.Text = "") Then
            MessageBox.Show("กรุณาเลือกจังหวัด  !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Error)
            ProvinceComboBox.Focus()
            Exit Sub
        End If

        If (NumPhoeTextBox.Text = "") Then
            MessageBox.Show("กรุณาใส่เบอร์โทรศัพท์  !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Error)
            NumPhoeTextBox.Focus()
            Exit Sub
        End If

        If (AddressTextBox.Text = "") Then
            MessageBox.Show("กรุณาใส่ที่อยู่  !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Error)
            AddressTextBox.Focus()
            Exit Sub
        End If

        If (TypeCarComboBox.Text = "") Then
            MessageBox.Show("กรุณาเลือกประเภทรถ  !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Error)
            TypeCarComboBox.Focus()
            Exit Sub
        End If

        If (BrandCarComboBox.Text = "") Then
            MessageBox.Show("กรุณาเลือกยี่ห้อรถ  !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Error)
            BrandCarComboBox.Focus()
            Exit Sub
        End If

        If (GanerationCarTextBox.Text = "") Then
            MessageBox.Show("กรุณาใส่รุ่นรถ  !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Error)
            GanerationCarTextBox.Focus()
            Exit Sub
        End If

        If (ColorCarComboBox.Text = "") Then
            MessageBox.Show("กรุณาเลือกสีรถ !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Error)
            ColorCarComboBox.Focus()
            Exit Sub
        End If
        If (CarRegistrationTextBox.Text = "") Then
            MessageBox.Show("กรุณาใส่ทะเบียนรถ  !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Error)
            CarRegistrationTextBox.Focus()
            Exit Sub
        End If

        If (EngineCarNumberTextBox.Text = "") Then
            MessageBox.Show("กรุณาใส่หมายเลขเครื่อง  !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Error)
            EngineCarNumberTextBox.Focus()
            Exit Sub
        End If

        If (BodyCarMemberTextBox.Text = "") Then
            MessageBox.Show("กรุณาใส่หมายเลขตัวถัง !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Error)
            BodyCarMemberTextBox.Focus()
            Exit Sub
        End If

        Dim mbr As MsgBoxResult

        mbr = MsgBox("ท่านต้องการบันทึกข้อมูลหรือไม่", _
                        MsgBoxStyle.YesNo + _
                        MsgBoxStyle.Question + _
                        MsgBoxStyle.ApplicationModal, _
                        "บันทึกข้อมูล")

        If (mbr = MsgBoxResult.Yes) Then
            ID_CustomerTextBox.Text = TextBox3.Text
            TextBox2.Text = TextBox3.Text

            Cnnstring = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Car\MyProject.accdb"
            With Cnn

                If .State = ConnectionState.Open Then Close()
                .ConnectionString = Cnnstring
                .Open()
                .Close()
            End With

            myConn.Open()

            Dim db = "INSERT INTO Customer (ID_Customer,Name,Address,Province,NumPhoe,TypeCar,BrandCar,GanerationCar,ColorCar,CarRegistration,EngineCarNumber,BodyCarMember)"
            db &= "VALUES('" & ID_CustomerTextBox.Text & "','" & NameTextBox.Text & "','" & AddressTextBox.Text & "','" & ProvinceComboBox.Text & "','" & NumPhoeTextBox.Text & "','" & TypeCarComboBox.Text & "','" & BrandCarComboBox.Text & "','" & GanerationCarTextBox.Text & "','" & ColorCarComboBox.Text & "','" & CarRegistrationTextBox.Text & "','" & EngineCarNumberTextBox.Text & "','" & BodyCarMemberTextBox.Text & "') "
            mycommand = New OleDb.OleDbCommand(db, myConn)
            mycommand.ExecuteNonQuery()
            myConn.Close()


            MessageBox.Show("บันทึกข้อมูลเรียบร้อยแล้ว", "บันทึกข้อมูล")
            Me.CustomerTableAdapter.Fill(Me.MyProjectDataSet.Customer)
            Controls.Clear()
            InitializeComponent()
            FormCustomer_Load(Me, Nothing)

            sortCustomer()
            ShowData()
            blockdata()
            NameTextBox.Focus()
            TextBox1.Text = "0"
            
            Panel1.Visible = False
            Panel2.Visible = True
            TextBox3.Visible = False
            ID_CustomerTextBox.Visible = True
            BindingNavigatorAddNewItem.Enabled = True
            ToolStripButton1.Enabled = False
            ToolStripButton2.Enabled = True
            CustomerBindingNavigatorSaveItem.Enabled = False
            BindingNavigatorDeleteItem.Enabled = True
            ToolStripButton6.Enabled = True
            TextBox2.Visible = False
            'ToolStripButton4.Enabled = True
            ToolStripButton3.Enabled = True
          

        End If
    End Sub


    Private Sub sortCustomer()
        Try
            Me.CustomerTableAdapter.Fill(Me.MyProjectDataSet.Customer)
        Catch ex As System.Exception
            System.Windows.Forms.MessageBox.Show(ex.Message)
        End Try

    End Sub
    Private Sub cleardata()

        ID_CustomerTextBox.Text = ""
        NameTextBox.Text = ""
        AddressTextBox.Text = ""
        ProvinceComboBox.Text = ""
        NumPhoeTextBox.Text = ""
        TypeCarComboBox.Text = ""
        BrandCarComboBox.Text = ""
        GanerationCarTextBox.Text = ""
        ColorCarComboBox.Text = ""
        CarRegistrationTextBox.Text = ""
        EngineCarNumberTextBox.Text = ""
        BodyCarMemberTextBox.Text = ""

    End Sub

    Private Sub blockdata()
        ID_CustomerTextBox.Text = ""
        NameTextBox.Text = ""
        AddressTextBox.Text = ""
        ProvinceComboBox.Text = ""
        NumPhoeTextBox.Text = ""
        TypeCarComboBox.Text = ""
        BrandCarComboBox.Text = ""
        GanerationCarTextBox.Text = ""
        ColorCarComboBox.Text = ""
        CarRegistrationTextBox.Text = ""
        EngineCarNumberTextBox.Text = ""
        BodyCarMemberTextBox.Text = ""

    End Sub

    Public Sub ReadMyData(ByVal myConnString As String)
        On Error GoTo ErrorHandler
        With Cnn
            If .State = ConnectionState.Open Then Close()
            .ConnectionString = Cnnstring
            .Open()
        End With

        Me.Validate()
        Me.CustomerBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.MyProjectDataSet)
        MessageBox.Show("บันทึกข้อมูลเรียบร้อยแล้ว", "บันทึกข้อมูล")

        NameTextBox.Focus()
        TextBox1.Text = "0"
ErrorHandler:
    End Sub

    Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
        'TODO: This line of code loads data into the 'StockGearDataSet.Staff' table. You can move, or remove it, as needed.
        Me.CustomerTableAdapter.Fill(Me.MyProjectDataSet.Customer)

        cleardata()
        ShowData()



        Panel1.Visible = True
        Panel2.Visible = False
        TextBox3.Visible = True
        ID_CustomerTextBox.Visible = False
        TextBox3.Enabled = False
        ID_CustomerTextBox.Enabled = False
        ToolStripButton1.Enabled = True
        BindingNavigatorDeleteItem.Enabled = False
        CustomerBindingNavigatorSaveItem.Enabled = False
        ToolStripButton2.Enabled = True
        BindingNavigatorDeleteItem.Enabled = False
        'ToolStripButton6.Enabled = True
        ToolStripButton4.Enabled = True
        NameTextBox.Focus()
        TextBox1.Text = "1"
        TextBox1.Visible = False
        TextBox2.Visible = False
        'ToolStripButton5.Enabled = False
        DELTextBox.Visible = False
    End Sub

    Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton4.Click
        'TODO: This line of code loads data into the 'StockGearDataSet.Staff' table. You can move, or remove it, as needed.
        Me.CustomerTableAdapter.Fill(Me.MyProjectDataSet.Customer)

        sortCustomer()
        Panel1.Visible = True
        Panel2.Visible = False
        BindingNavigatorAddNewItem.Enabled = False
        ToolStripButton1.Enabled = False
        ToolStripButton2.Enabled = True
        CustomerBindingNavigatorSaveItem.Enabled = False
        BindingNavigatorDeleteItem.Enabled = False
        ToolStripButton4.Enabled = False
        ToolStripButton6.Enabled = True

        ToolStripButton3.Enabled = True
    End Sub

    Private Sub ToolStripButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton6.Click
        TextBox3.Visible = False
        ID_CustomerTextBox.Visible = True
        ID_CustomerTextBox.Enabled = False
        Panel1.Visible = True
        Panel2.Visible = False
        ToolStripButton1.Enabled = False
        ToolStripButton2.Enabled = False
        BindingNavigatorDeleteItem.Enabled = True
        CustomerBindingNavigatorSaveItem.Enabled = True
        ToolStripButton6.Enabled = False
        TextBox2.Visible = False
        ToolStripButton4.Enabled = True
        BindingNavigatorAddNewItem.Enabled = False
        ToolStripButton5.Enabled = False
    End Sub

    Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton5.Click
        Dim mbr As MsgBoxResult

        mbr = MsgBox("ท่านต้องการปิดหน้านี้หรือไม่", _
                        MsgBoxStyle.YesNo + _
                        MsgBoxStyle.Question + _
                        MsgBoxStyle.ApplicationModal, _
                        "บันทึกข้อมูล")

        If (mbr = MsgBoxResult.Yes) Then
            Me.Close()
        End If
    End Sub

    Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click
        Dim mbr As MsgBoxResult

        mbr = MsgBox("ท่านต้องการลบข้อมูลนี้หรือไม่", _
                        MsgBoxStyle.YesNo + _
                        MsgBoxStyle.Question + _
                        MsgBoxStyle.ApplicationModal, _
                        "บันทึกข้อมูล")

        If (mbr = MsgBoxResult.Yes) Then
            DELTextBox.Text = "1"
            Me.Validate()
            Me.CustomerBindingSource.EndEdit()
            Me.TableAdapterManager.UpdateAll(Me.MyProjectDataSet)
            sortCustomer()
            MessageBox.Show("ลบข้อมูลเรียบร้อยแล้ว", "บันทึกข้อมูล")
        End If
    End Sub

   
End Class

Date : 2011-11-23 21:29:04

By : poritive

No. 15

Guest

ก่อนกดคำว่า เพิ่มข้อมูล
vb1

หลังกดคำว่า เพิ่มข้อมูล

จะเห็นว่ามันจะอัพเดทไปที่ CM0006 แล้วอะคับ

Date : 2011-11-23 22:01:29

By : poritive

No. 16

plapaJung

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

ตอนกดปุ่มบันทึกใต้ บรรทัด FormCustomer_Load(Me, Nothing) ลงไป
ลอง comment ไว้ให้หมดเลยซิค่ะ ว่าได้หรือปล่าว

Date : 2011-11-25 13:50:09

By : bangbang111

No. 17

Guest

งง คับ ว่าต้องทำแบบไหน

Date : 2011-11-26 00:11:57

By : poritive

No. 18

Guest

รอ นะคับ

Date : 2011-11-26 23:55:28

By : poritive

No. 19

plapaJung

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

ตอนกดปุ่มบันทึกให้โค้ดเหลือ แค่นี้ค่ะ

Code (VB.NET)

If (TextBox1.Text = "0") Then
MessageBox.Show("ทำการกรอกข้อมูลให้ครบถ้วน!!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If

If (NameTextBox.Text = "") Then
MessageBox.Show("กรุณาใส่ชื่อ !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Error)
NameTextBox.Focus()
Exit Sub

End If
If (AddressTextBox.Text = "") Then
MessageBox.Show("กรุณาใส่นามสกุล !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Error)
AddressTextBox.Focus()
Exit Sub
End If

If (ProvinceComboBox.Text = "") Then
MessageBox.Show("กรุณาเลือกจังหวัด !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Error)
ProvinceComboBox.Focus()
Exit Sub
End If

If (NumPhoeTextBox.Text = "") Then
MessageBox.Show("กรุณาใส่เบอร์โทรศัพท์ !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Error)
NumPhoeTextBox.Focus()
Exit Sub
End If

If (AddressTextBox.Text = "") Then
MessageBox.Show("กรุณาใส่ที่อยู่ !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Error)
AddressTextBox.Focus()
Exit Sub
End If

If (TypeCarComboBox.Text = "") Then
MessageBox.Show("กรุณาเลือกประเภทรถ !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Error)
TypeCarComboBox.Focus()
Exit Sub
End If

If (BrandCarComboBox.Text = "") Then
MessageBox.Show("กรุณาเลือกยี่ห้อรถ !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Error)
BrandCarComboBox.Focus()
Exit Sub
End If

If (GanerationCarTextBox.Text = "") Then
MessageBox.Show("กรุณาใส่รุ่นรถ !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Error)
GanerationCarTextBox.Focus()
Exit Sub
End If

If (ColorCarComboBox.Text = "") Then
MessageBox.Show("กรุณาเลือกสีรถ !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Error)
ColorCarComboBox.Focus()
Exit Sub
End If
If (CarRegistrationTextBox.Text = "") Then
MessageBox.Show("กรุณาใส่ทะเบียนรถ !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Error)
CarRegistrationTextBox.Focus()
Exit Sub
End If

If (EngineCarNumberTextBox.Text = "") Then
MessageBox.Show("กรุณาใส่หมายเลขเครื่อง !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Error)
EngineCarNumberTextBox.Focus()
Exit Sub
End If

If (BodyCarMemberTextBox.Text = "") Then
MessageBox.Show("กรุณาใส่หมายเลขตัวถัง !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Error)
BodyCarMemberTextBox.Focus()
Exit Sub
End If

Dim mbr As MsgBoxResult

mbr = MsgBox("ท่านต้องการบันทึกข้อมูลหรือไม่", _
MsgBoxStyle.YesNo + _
MsgBoxStyle.Question + _
MsgBoxStyle.ApplicationModal, _
"บันทึกข้อมูล")

If (mbr = MsgBoxResult.Yes) Then
ID_CustomerTextBox.Text = TextBox3.Text
TextBox2.Text = TextBox3.Text

Cnnstring = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Car\MyProject.accdb"
With Cnn

If .State = ConnectionState.Open Then Close()
.ConnectionString = Cnnstring
.Open()
.Close()
End With

myConn.Open()

Dim db = "INSERT INTO Customer (ID_Customer,Name,Address,Province,NumPhoe,TypeCar,BrandCar,GanerationCar,ColorCar,CarRegistration,EngineCarNumber,BodyCarMember)"
db &= "VALUES('" & ID_CustomerTextBox.Text & "','" & NameTextBox.Text & "','" & AddressTextBox.Text & "','" & ProvinceComboBox.Text & "','" & NumPhoeTextBox.Text & "','" & TypeCarComboBox.Text & "','" & BrandCarComboBox.Text & "','" & GanerationCarTextBox.Text & "','" & ColorCarComboBox.Text & "','" & CarRegistrationTextBox.Text & "','" & EngineCarNumberTextBox.Text & "','" & BodyCarMemberTextBox.Text & "') "
mycommand = New OleDb.OleDbCommand(db, myConn)
mycommand.ExecuteNonQuery()
myConn.Close()


MessageBox.Show("บันทึกข้อมูลเรียบร้อยแล้ว", "บันทึกข้อมูล")
Me.CustomerTableAdapter.Fill(Me.MyProjectDataSet.Customer)
Controls.Clear()
InitializeComponent()
FormCustomer_Load(Me, Nothing)

Date : 2011-11-27 11:36:55

By : bangbang111

No. 20

Guest

เป็นเหมือนเดิมคับ

Date : 2011-11-27 13:42:43

By : poritive

No. 21

Guest

Date : 2011-11-29 20:38:11

By : poritive

No. 22

Guest

ช่วยให้มันอัพเดทด้วยคับ

Date : 2011-11-30 20:01:03

By : poritive

No. 23

Guest

Date : 2011-12-02 21:43:24

By : poritive

No. 24

Guest

Date : 2011-12-03 12:52:39

By : poritive

No. 25

Guest

Date : 2011-12-05 22:48:13

By : poritive

No. 26

Guest

Date : 2011-12-14 22:42:21

By : poritive

No. 27

Guest

Date : 2011-12-22 01:13:04

By : poritive

No. 28

Guest

Date : 2012-01-10 22:57:30

By : poritive

No. 29

Guest

Date : 2012-01-14 09:06:48

By : poritive

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : ช่วยหน่อยคับ ทำมาหลายรอบแล้ว มันบันทึกลงฐานข้อมูลไม่ได้คับ

รายละเอียด

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

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

Notice

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

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก

<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)

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

Load balance : Server 04

Registered : 109,037

document.write("<font color=996600>[.NET]</font>"); ช่วยหน่อยคับ ทำมาหลายรอบแล้ว มันบันทึกลงฐานข้อมูลไม่ได้คับ

No. 1

No. 2

No. 3

No. 4

No. 5

No. 6

No. 7

No. 8

No. 9

No. 10

No. 11

No. 12

No. 13

No. 14

No. 15

No. 16

No. 17

No. 18

No. 19

No. 20

No. 21

No. 22

No. 23

No. 24

No. 25

No. 26

No. 27

No. 28

No. 29

ค้นหาข้อมูล

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

Notice

ช่วยหน่อยคับ ทำมาหลายรอบแล้ว มันบันทึกลงฐานข้อมูลไม่ได้คับ