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

Registered : 108,456

HOME > .NET Framework > Forum > ผมต้องการ Add PK ของตาราง A ไปเก็บเป็น FK ที่สัมพันธ์กับตาราง B ยังไงครับ



 

ผมต้องการ Add PK ของตาราง A ไปเก็บเป็น FK ที่สัมพันธ์กับตาราง B ยังไงครับ

 



Topic : 126318



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



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




ตอนนี้เก็บเป็น ID ของ Package และ Size เก็บเป็น Identity ครับ

ID ของ Package ที่เป็น Identity ไปเก็บเป็น FK ของตาราง Size อย่างไรครับ

ตาราง Package มี ID เป็น PK

A

ตาราง Size มี FK เป็น ID ของ Package

B



Code (VB.NET)
Imports System.Data.SqlClient
Imports System.Globalization

Public Class Manage_Package
Inherits System.Web.UI.Page

Dim objConn As SqlConnection
Dim objCmd As SqlCommand
Dim strConnString, strSQL As String
Dim dtAdapter As SqlDataAdapter
Dim ds As DataSet
Dim dt As DataTable
Dim result As Integer
Dim TopWidth As Decimal

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

If IsPostBack Then
LoadSizeData()
End If

lblPK_AddReceiveDate.Text = Format(Now.Date.ToString("dd/MM/yyyy", New CultureInfo("en-US")))

End Sub

Public Sub ConnectDB()

strConnString = ConfigurationManager.ConnectionStrings("con").ConnectionString
objConn = New SqlConnection(strConnString)

End Sub

Private Sub LoadSizeData()

If IsNothing(Session("SizeTable")) Then
dt = New DataTable()
dt.Columns.Add(New DataColumn("TopWidth", GetType(String)))
dt.Columns.Add(New DataColumn("MidWidth", GetType(String)))
dt.Columns.Add(New DataColumn("BottomWidth", GetType(String)))
dt.Columns.Add(New DataColumn("WidthAVG", GetType(String)))
dt.Columns.Add(New DataColumn("LeftLength", GetType(String)))
dt.Columns.Add(New DataColumn("RigthLength", GetType(String)))
dt.Columns.Add(New DataColumn("LengthAVG", GetType(String)))
Session("SizeTable") = dt
End If

dt = DirectCast(Session("SizeTable"), DataTable)
gvS_LoadSize.DataSource = dt
gvS_LoadSize.DataBind()

End Sub

Private Sub AddToTable()

Dim dr As DataRow = dt.NewRow

dr("TopWidth") = txtPK_WidthTop.Text.Trim
dr("MidWidth") = txtPK_WidthMid.Text.Trim
dr("BottomWidth") = txtPK_WidthBottom.Text.Trim
dr("WidthAVG") = ((CType(txtPK_WidthTop.Text.Trim, Decimal) + CType(txtPK_WidthMid.Text.Trim, Decimal) + CType(txtPK_WidthBottom.Text.Trim, Decimal)) / 3).ToString("n2")
dr("LeftLength") = txtPK_LengthLeft.Text.Trim
dr("RigthLength") = txtPK_LengthRigth.Text.Trim
dr("LengthAVG") = ((CType(txtPK_LengthLeft.Text.Trim, Decimal) + CType(txtPK_LengthRigth.Text.Trim, Decimal)) / 2).ToString("n2")

dt.Rows.Add(dr)
Session("SizeTable") = dt
LoadSizeData()
Reset()

End Sub

Private Sub AddToDB()

ConnectDB()
objConn.Open()

strSQL = "INSERT INTO Package (PK_RECEIVEDATE) " &
" VALUES " &
" (@PK_RECEIVEDATE)"
Dim objCmd As New SqlCommand(strSQL, objConn)

objCmd.Parameters.Add("@PK_RECEIVEDATE", SqlDbType.Date).Value = Format(Now.Date.ToString("dd-MM-yyyy", New CultureInfo("en-US")))
objCmd.ExecuteNonQuery()

dt = DirectCast(Session("SizeTable"), DataTable)
For i = 0 To dt.Rows.Count - 1
strSQL = "INSERT INTO Size (PK_ID,S_WIDTHTOP,S_WIDTHMID,S_WIDTHBOTTOM,S_LENGTHLEFT,S_LENGTHRIGTH) " &
" VALUES " &
" ('" & dt.Rows(i)("TopWidth") & "','" & dt.Rows(i)("MidWidth") & "','" & dt.Rows(i)("BottomWidth") & "','" & dt.Rows(i)("LeftLength") & "','" & dt.Rows(i)("RigthLength") & "')"
With objCmd
.Connection = objConn
.CommandText = strSQL
.CommandType = CommandType.Text
.ExecuteNonQuery()
End With
Next

objConn.Close()
objConn = Nothing

End Sub

Private Sub Reset()

txtPK_WidthTop.Text = String.Empty
txtPK_WidthMid.Text = String.Empty
txtPK_WidthBottom.Text = String.Empty
txtPK_LengthLeft.Text = String.Empty
txtPK_LengthRigth.Text = String.Empty

End Sub

Private Sub ResetAll()

Reset()
Response.Redirect("~/Manage_Package.aspx")

End Sub



Protected Sub btnPK_AddTo_Click(sender As Object, e As EventArgs) Handles btnPK_AddTo.Click

AddToTable()

End Sub

Protected Sub btnPK_Cancel_Click(sender As Object, e As EventArgs) Handles btnPK_Cancel.Click

ResetAll()

End Sub

Protected Sub btnPK_Save_Click(sender As Object, e As EventArgs) Handles btnPK_Save.Click

AddToDB()

End Sub

End Class




Tag : .NET, Ms SQL Server 2008, Web (ASP.NET), VB.NET, VS 2012 (.NET 4.x)









ประวัติการแก้ไข
2017-02-08 16:51:52
Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2017-02-08 16:51:01 By : NUTKA View : 494 Reply : 11
 

 

No. 1



โพสกระทู้ ( 4,071 )
บทความ ( 23 )



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

FK ควรจะเป็น type เดียวกับ PK นะครับ

อย่าง Package มี PK_ID เป็น int
Size ก็ต้องมี PK_ID เป็น int

จากนั้นก็ทำเป็น diagram
https://www.thaicreate.com/tutorial/sqlserver-2005-relation-cascade-on-delete-on-update.html

แค่นี้มันก็อยู่ด้วยกันแบบเหนียวแน่นหนึบแล้วละครับ






แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2017-02-08 19:53:45 By : lamaka.tor
 


 

No. 2



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



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


ผมไม่เคยทำน่ะครับ T_T
ไม่รู้ว่าทำได้จริงไหม

http://stackoverflow.com/questions/4425153/vb-net-sql-last-inserted-id
http://www.vbforums.com/showthread.php?595099-RESOLVED-best-way-to-get-last-insert-id-(sql-server)
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2017-02-09 07:48:02 By : fonfire
 

 

No. 3



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



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


ตอบความคิดเห็นที่ : 1 เขียนโดย : lamaka.tor เมื่อวันที่ 2017-02-08 19:53:45
รายละเอียดของการตอบ ::
มันก็ยังไม่มานะครับ T_T

Relation

ดูข้อมูลที่ ID ที่ 11 ของตาราง Package

PK

ดูข้อมูลที่ ID ที่ 11 ของตาราง Size

S

ตาราง Package

P

ตาราง Size

S




แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2017-02-09 08:11:53 By : NUTKA
 


 

No. 4



โพสกระทู้ ( 4,071 )
บทความ ( 23 )



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

มันไม่มานี่

sql ตอน insert เป็นยังไงรึครับ

ปล.ถ้าผมเข้าใจไม่ผิด ท่านคิดว่า เวลาเรา link กันแล้ว มันต้องมาแบบอัตโมมัติใช่ไม๊ครับ
เราต้องยัดมันผ่าน SQL หรือ ทางอื่นซักทางนะครับ

อย่างผมมี

อผอ

เวลา Insert ก็จะผ่าน SQL ประมาณนี้

Code (C#)
            this._adapter.InsertCommand.Connection = this.Connection;
            this._adapter.InsertCommand.CommandText = @"INSERT INTO [PostCode_PostCode] ([PostCode], [PnvID], [AmpID], [PostOffID], [Note]) VALUES (@PostCode, @PnvID, @AmpID, @PostOffID, @Note);
SELECT Post_PostCode_ID, PostCode, PnvID, AmpID, PostOffID, Note FROM PostCode_PostCode WHERE (Post_PostCode_ID = SCOPE_IDENTITY()) ORDER BY PostCode";
            this._adapter.InsertCommand.CommandType = global::System.Data.CommandType.Text;
            this._adapter.InsertCommand.Parameters.Add(new global::System.Data.SqlClient.SqlParameter("@PostCode", global::System.Data.SqlDbType.Char, 0, global::System.Data.ParameterDirection.Input, 0, 0, "PostCode", global::System.Data.DataRowVersion.Current, false, null, "", "", ""));
            this._adapter.InsertCommand.Parameters.Add(new global::System.Data.SqlClient.SqlParameter("@PnvID", global::System.Data.SqlDbType.Int, 0, global::System.Data.ParameterDirection.Input, 0, 0, "PnvID", global::System.Data.DataRowVersion.Current, false, null, "", "", ""));
            this._adapter.InsertCommand.Parameters.Add(new global::System.Data.SqlClient.SqlParameter("@AmpID", global::System.Data.SqlDbType.Int, 0, global::System.Data.ParameterDirection.Input, 0, 0, "AmpID", global::System.Data.DataRowVersion.Current, false, null, "", "", ""));
            this._adapter.InsertCommand.Parameters.Add(new global::System.Data.SqlClient.SqlParameter("@PostOffID", global::System.Data.SqlDbType.Int, 0, global::System.Data.ParameterDirection.Input, 0, 0, "PostOffID", global::System.Data.DataRowVersion.Current, false, null, "", "", ""));
            this._adapter.InsertCommand.Parameters.Add(new global::System.Data.SqlClient.SqlParameter("@Note", global::System.Data.SqlDbType.Text, 0, global::System.Data.ParameterDirection.Input, 0, 0, "Note", global::System.Data.DataRowVersion.Current, false, null, "", "", ""));


หรืออาจเป็นตามนี้
https://www.thaicreate.com/tutorial/sql-insert.html

ทีนี้เราก็ต้องหาทางเอา @PnvID จากที่ไหนซักที่มาครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2017-02-09 08:40:10 By : lamaka.tor
 


 

No. 5



โพสกระทู้ ( 4,071 )
บทความ ( 23 )



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

ปล.อีกรอบครับ จาก database กรณีที่เป็น Int ถ้า FK เราติ๊ก Allow Nulls ออก
มันก็จะบังคับเราอีกทางหนึ่งว่า ค่า ที่ยัดเข้าไปต้องไม่ใช่ ค่า Null

มันจะ Error เตือนเราตั้งแต่ run ได้เลยเช่นกันครับ

ทั้งนี้ก็เพื่อให้เราได้ข้อมูลที่สอดคล้องกับความเป็นจริงมากขึ้น นั่นเอง
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2017-02-09 08:44:38 By : lamaka.tor
 


 

No. 6



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

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

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


แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2017-02-09 10:08:23 By : mr.win
 


 

No. 7



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



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


T_T
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2017-02-09 10:17:29 By : NUTKA
 


 

No. 8



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



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


ถ้าไม่ได้จริง ๆ
ตรงเลข id ของ table หลัก
ใช้วิธีสร้างเองไหมครับ

แล้วก็เอามาใส่ใน table รองด้วย
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2017-02-09 11:48:47 By : fonfire
 


 

No. 9



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



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


ตอบความคิดเห็นที่ : 8 เขียนโดย : fonfire เมื่อวันที่ 2017-02-09 11:48:47
รายละเอียดของการตอบ ::
ตอนนี้ผมลองทำแบบสร้างเองครับ แต่ก็ยังนึกไม่ออก

Code (VB.NET)
Imports System.Data.SqlClient
Imports System.Globalization

Public Class Test_Package
    Inherits System.Web.UI.Page

    Dim objConn As SqlConnection
    Dim objCmd As SqlCommand
    Dim strConnString, strSQL As String
    Dim dtAdapter As SqlDataAdapter
    Dim ds As DataSet
    Dim dt As DataTable
    Dim result, num, iMAX, Count As Integer
    Dim TopWidth As Decimal

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        lblPK_AddReceiveDate.Text = Format(Now.Date.ToString("dd/MM/yyyy", New CultureInfo("en-US")))

        If IsPostBack Then
            LoadSizeData()
        End If

    End Sub

    Public Sub ConnectDB()

        strConnString = ConfigurationManager.ConnectionStrings("con").ConnectionString
        objConn = New SqlConnection(strConnString)

    End Sub

    Private Sub LoadSizeData()

        If IsNothing(Session("SizeTable")) Then
            dt = New DataTable()
            dt.Columns.Add(New DataColumn("TopWidth", GetType(String)))
            dt.Columns.Add(New DataColumn("MidWidth", GetType(String)))
            dt.Columns.Add(New DataColumn("BottomWidth", GetType(String)))
            dt.Columns.Add(New DataColumn("WidthAVG", GetType(String)))
            dt.Columns.Add(New DataColumn("LeftLength", GetType(String)))
            dt.Columns.Add(New DataColumn("RigthLength", GetType(String)))
            dt.Columns.Add(New DataColumn("LengthAVG", GetType(String)))
            Session("SizeTable") = dt
        End If

        dt = DirectCast(Session("SizeTable"), DataTable)
        gvS_LoadSize.DataSource = dt
        gvS_LoadSize.DataBind()

    End Sub

    Private Sub AddToTable()

        If txtPK_WidthTop.Text.Trim <> String.Empty And txtPK_WidthMid.Text.Trim <> String.Empty And txtPK_WidthBottom.Text.Trim <> String.Empty And txtPK_LengthLeft.Text.Trim <> String.Empty And txtPK_LengthRigth.Text.Trim <> String.Empty Then

            Dim dr As DataRow = dt.NewRow

            'TopWidth = txtPK_WidthTop.Text.Trim

            'dr("TopWidth") = TopWidth
            dr("TopWidth") = txtPK_WidthTop.Text.Trim
            dr("MidWidth") = txtPK_WidthMid.Text.Trim
            dr("BottomWidth") = txtPK_WidthBottom.Text.Trim
            'dr("WidthAVG") = ((CType(txtPK_WidthTop.Text.Trim, Integer) + CType(txtPK_WidthMid.Text.Trim, Integer) + CType(txtPK_WidthBottom.Text.Trim, Integer)) / 3).ToString("#,##0.00") 
            'dr("WidthAVG") = ((CType(txtPK_WidthTop.Text.Trim, Integer) + CType(txtPK_WidthMid.Text.Trim, Integer) + CType(txtPK_WidthBottom.Text.Trim, Integer)) / 3).ToString("#0.00") 
            dr("WidthAVG") = ((CType(txtPK_WidthTop.Text.Trim, Decimal) + CType(txtPK_WidthMid.Text.Trim, Decimal) + CType(txtPK_WidthBottom.Text.Trim, Decimal)) / 3).ToString("n2")
            dr("LeftLength") = txtPK_LengthLeft.Text.Trim
            dr("RigthLength") = txtPK_LengthRigth.Text.Trim
            'dr("LengthAVG") = ((CType(txtPK_LengthLeft.Text.Trim, Integer) + CType(txtPK_LengthRigth.Text.Trim, Integer)) / 2).ToString("#,##0.00") 
            'dr("LengthAVG") = ((CType(txtPK_LengthLeft.Text.Trim, Integer) + CType(txtPK_LengthRigth.Text.Trim, Integer)) / 2).ToString("#0.00") 
            dr("LengthAVG") = ((CType(txtPK_LengthLeft.Text.Trim, Decimal) + CType(txtPK_LengthRigth.Text.Trim, Decimal)) / 2).ToString("n2")

            dt.Rows.Add(dr)
            Session("SizeTable") = dt
            LoadSizeData()
            Reset()

        ElseIf txtPK_WidthTop.Text.Trim = String.Empty And txtPK_WidthMid.Text.Trim <> String.Empty And txtPK_WidthBottom.Text.Trim <> String.Empty And txtPK_LengthLeft.Text.Trim <> String.Empty And txtPK_LengthRigth.Text.Trim <> String.Empty Then
            MsgBox("กรุณากรอกความกว้างส่วนบน")
            txtPK_WidthTop.Focus()
        ElseIf txtPK_WidthTop.Text.Trim <> String.Empty And txtPK_WidthMid.Text.Trim = String.Empty And txtPK_WidthBottom.Text.Trim <> String.Empty And txtPK_LengthLeft.Text.Trim <> String.Empty And txtPK_LengthRigth.Text.Trim <> String.Empty Then
            MsgBox("กรุณากรอกความกว้างส่วนกลาง")
            txtPK_WidthMid.Focus()
        ElseIf txtPK_WidthTop.Text.Trim <> String.Empty And txtPK_WidthMid.Text.Trim <> String.Empty And txtPK_WidthBottom.Text.Trim = String.Empty And txtPK_LengthLeft.Text.Trim <> String.Empty And txtPK_LengthRigth.Text.Trim <> String.Empty Then
            MsgBox("กรุณากรอกความกว้างส่วนล่าง")
            txtPK_WidthBottom.Focus()
        ElseIf txtPK_WidthTop.Text.Trim <> String.Empty And txtPK_WidthMid.Text.Trim <> String.Empty And txtPK_WidthBottom.Text.Trim <> String.Empty And txtPK_LengthLeft.Text.Trim = String.Empty And txtPK_LengthRigth.Text.Trim <> String.Empty Then
            MsgBox("กรุณากรอกความยาวด้านซ้าย")
            txtPK_LengthLeft.Focus()
        ElseIf txtPK_WidthTop.Text.Trim <> String.Empty And txtPK_WidthMid.Text.Trim <> String.Empty And txtPK_WidthBottom.Text.Trim <> String.Empty And txtPK_LengthLeft.Text.Trim <> String.Empty And txtPK_LengthRigth.Text.Trim = String.Empty Then
            MsgBox("กรุณากรอกความยาวด้านขวา")
            txtPK_LengthRigth.Focus()
        Else
            MsgBox("กรุณากรอกข้อมูลให้ครบถ้วน")
            txtPK_WidthTop.Focus()
        End If

    End Sub

    Protected Sub btnPK_Add_Click(sender As Object, e As EventArgs) Handles btnPK_Add.Click

        'AddToTable()
        AddTODB()

    End Sub

    Private Sub AddTODB()

        Try
            ConnectDB()
            objConn.Open()

            strSQL = "SELECT ISNULL(MAX(RIGHT(PK_ID,2)),0) As PK_ID FROM Package"
            objCmd = New SqlCommand(strSQL, objConn)

            Count = objCmd.ExecuteScalar()

            iMAX = IIf(Count <= 0, 1, Count + 1)
            If iMAX < 100 Then
                strSQL = "INSERT INTO Package (PK_ID, PK_RECEIVEDATE) VALUES ('" & "PK" & CStr(Format(Now.Date.ToString("yyyyMMdd", New CultureInfo("en-US")))) & iMAX.ToString("00") & "',@PK_RECEIVEDATE)"
                objCmd = New SqlCommand(strSQL, objConn)

                objCmd.Parameters.Add("@PK_RECEIVEDATE", SqlDbType.Date).Value = Format(Now.Date.ToString("dd-MM-yyyy", New CultureInfo("en-US")))
                objCmd.ExecuteNonQuery()

                'ResetAll()
                'GridViewRawMaterial()
                'MsgBox("เพิ่มวัตถุดิบสำเร็จ")
            Else
                MsgBox("ข้อมูลเต็ม")
            End If

            strSQL = "SELECT ISNULL(MAX(RIGHT(S_ID,2)),0) As S_ID FROM Size"
            objCmd = New SqlCommand(strSQL, objConn)

            Count = objCmd.ExecuteScalar()

            iMAX = IIf(Count <= 0, 1, Count + 1)
            If iMAX < 100 Then
                strSQL = "INSERT INTO Size (S_ID) VALUES ('" & "S" & CStr(Format(Now.Date.ToString("yyyyMMdd", New CultureInfo("en-US")))) & iMAX.ToString("00") & "')"
                objCmd = New SqlCommand(strSQL, objConn)

                objCmd.ExecuteNonQuery()

                'ResetAll()
                'GridViewRawMaterial()
                MsgBox("เพิ่มวัตถุดิบสำเร็จ")
            Else
                MsgBox("ข้อมูลเต็ม")
            End If

            objConn.Close()

        Catch ex As Exception

            Response.Write("Error : " + ex.Message)

        End Try

    End Sub

    Protected Sub btnPK_Save_Click(sender As Object, e As EventArgs) Handles btnPK_Save.Click

        AddTODB()

    End Sub

End Class


แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2017-02-09 14:14:59 By : NUTKA
 


 

No. 10



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



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


ตอบความคิดเห็นที่ : 8 เขียนโดย : fonfire เมื่อวันที่ 2017-02-09 11:48:47
รายละเอียดของการตอบ ::
ผมทำได้และ
ตรงคำว่า "แล้วก็เอามาใส่ใน table รองด้วย" ผมนึกออกตรงคำนี้

ขอบคุณครับบบบบบบบบบบบ



ประวัติการแก้ไข
2017-02-09 14:19:20
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2017-02-09 14:18:43 By : NUTKA
 


 

No. 11



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

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

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


แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2017-02-09 17:19:49 By : mr.win
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : ผมต้องการ Add PK ของตาราง A ไปเก็บเป็น FK ที่สัมพันธ์กับตาราง B ยังไงครับ
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ 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, รับทำเว็บไซต์ รับเขียนโปรแกรม , รับทำบัญชี , โรงงานผลิตครีม , สำนักงานบัญชี , รับจดทะเบียนบริษัท , Pangpond , รถมือสอง

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