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

Registered : 107,992

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



 

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

 



Topic : 069103

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







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2011-11-15 09:14:46 By : poritive View : 1718 Reply : 29
 

 

No. 1



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



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

มันเกินมาอัน 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



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



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

คุณ 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



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



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

พึ่งเห็นว่าโชว์ 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



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



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

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

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



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



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

ตกลงตอนนี้มัน 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


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

จะเห็นว่ามันจะอัพเดทไปที่ CM0006 แล้วอะคับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-11-23 22:01:29 By : poritive
 


 

No. 16



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



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

ตอนกดปุ่มบันทึกใต้ บรรทัด 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



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



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

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

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


up
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-01-10 22:57:30 By : poritive
 


 

No. 29

Guest



แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-01-14 09:06:48 By : poritive
 

   

ค้นหาข้อมูล


   
 

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

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