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

Registered : 109,037

HOME > .NET Framework > Forum > ช่วยแก้โค๊ดการเพิ่มข้อมูลยาให้หน่อยครับ มันมีปัญหาในการrun



 

ช่วยแก้โค๊ดการเพิ่มข้อมูลยาให้หน่อยครับ มันมีปัญหาในการrun

 



Topic : 056665

Guest




คือผมเขียนโปรแกรมเพิ่มข้อมูลยาโดยรับข้อมูลจากTextbox โดยเอารหัสยาเป็นกุญแจหลัก มีการตรวจสอบคือ ท่าหากรหัสยาซ้ำกับรหัสในฐานข้อมูลให้ทำการอัพเดทข้อมูลยา แต่ท่าหากไม่มีในฐานข้อมูลก็ให้INSERTเข้าฐานข้อมูลธรรมดา แต่ว่ามัน มี runtime errorช่วยดูให้หน่อยครับ

Imports System.IO
Imports System.Data
Imports System.Data.SqlClient

Public Class AddDrug

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_exit.Click
Me.Close()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_save.Click
Dim strconn, strdata, strup As String
Dim num, total, old As Integer
Dim read As SqlDataReader
Dim data As New DataSet
strconn = "Data Source=JERRANAI-PC\SQLEXPRESS;Initial Catalog=DrugStore;Integrated Security=True"
Dim conn As New SqlConnection(strconn)
conn.Open()
strdata = "SELECT DRUG_ID FROM DRUG WHERE DRUG_ID ='" & txt_id.Text & "'"
Dim sqlcomm As New SqlCommand(strdata, conn)
Dim result = sqlcomm.ExecuteNonQuery()

If read.HasRows = True Then
strup = "UPDATE DRUG SET DRUG_TOTAL=@total WHERE DRUG.DRUG_ID ='" & txt_id.Text & "'"
Dim sqlup As New SqlCommand(strup, conn)
Dim view As New SqlDataAdapter(sqlup)
num = txt_total.Text
old = data.Tables("DRUG").Rows(0)(8).ToString
total = old + num
MessageBox.Show(total)
With sqlcomm
.Parameters.Clear()
.CommandType = CommandType.Text
.CommandText = strdata
.Connection = conn
.Parameters.Add("total", SqlDbType.Int).Value = total
read = sqlcomm.ExecuteReader()
If result < 1 Then
MessageBox.Show("บันทึกข้อมูลผิดพลาด", "ล้มเหลว", MessageBoxButtons.OK, MessageBoxIcon.Error)
txt_id.Text = ""
txt_dprice.Text = ""
txt_exp.Text = ""
txt_low.Text = ""
txt_name.Text = ""
date_exp.Value = Date.Today
txt_total.Text = ""
txt_unit.Text = ""
com_type.Text = ""
txt_id.Focus()
Else
MessageBox.Show("บันทึกเรียบร้อย", "เรียบร้อย", MessageBoxButtons.OK, MessageBoxIcon.Information)
txt_id.Text = ""
txt_dprice.Text = ""
txt_exp.Text = ""
txt_low.Text = ""
date_exp.Value = Date.Now
txt_name.Text = ""
txt_total.Text = ""
txt_unit.Text = ""
com_type.Text = ""
txt_id.Focus()
End If

End With
Else
Dim strIn = "INSERT INTO DRUG(DRUG_ID,DRUG_NAME,DRUG_PRICE,DRUG_LOW,DRUG_EXP,DRUG_BEXP,DRUG_UNIT,DRUG_TYPE,DRUG_TOTAL)VALUES(@id,@name,@price,@low,@exp,@bexp,@unit,@type,@total)"
Dim sqlIn As New SqlCommand(strIn, conn)
With sqlIn
.Parameters.Clear()
.CommandType = CommandType.Text
.CommandText = strdata
.Connection = conn
.Parameters.Add("id", SqlDbType.NChar).Value = txt_id.Text
.Parameters.Add("name", SqlDbType.NVarChar).Value = txt_name.Text
.Parameters.Add("price", SqlDbType.Money).Value = txt_dprice.Text
.Parameters.Add("low", SqlDbType.Int).Value = txt_low.Text
.Parameters.Add("exp", SqlDbType.Date).Value = date_exp.Text
.Parameters.Add("bexp", SqlDbType.Int).Value = txt_exp.Text
.Parameters.Add("unit", SqlDbType.NVarChar).Value = txt_unit.Text
.Parameters.Add("type", SqlDbType.NVarChar).Value = com_type.Text
.Parameters.Add("total", SqlDbType.Int).Value = txt_total.Text
read = sqlcomm.ExecuteReader()
If result < 1 Then
MessageBox.Show("บันทึกข้อมูลผิดพลาด", "ล้มเหลว", MessageBoxButtons.OK, MessageBoxIcon.Error)
txt_id.Text = ""
txt_dprice.Text = ""
txt_exp.Text = ""
txt_low.Text = ""
txt_name.Text = ""
date_exp.Value = Date.Today
txt_total.Text = ""
txt_unit.Text = ""
com_type.Text = ""
txt_id.Focus()
Else
MessageBox.Show("บันทึกเรียบร้อย", "เรียบร้อย", MessageBoxButtons.OK, MessageBoxIcon.Information)
txt_id.Text = ""
txt_dprice.Text = ""
txt_exp.Text = ""
txt_low.Text = ""
date_exp.Value = Date.Now
txt_name.Text = ""
txt_total.Text = ""
txt_unit.Text = ""
com_type.Text = ""
txt_id.Focus()
End If
End With
End If
conn.Close()
End Sub

Private Sub tbx_dbexp_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_exp.TextChanged

End Sub

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim strConn, strData As String
strConn = "Data Source=JERRANAI-PC\SQLEXPRESS;Initial Catalog=DrugStore;Integrated Security=True"
Dim conn As New SqlConnection(strConn)
conn.Open()
strData = "SELECT DRUG_ID FROM DRUG WHERE DRUG_ID ='" & txt_id.Text & "'"
Dim sqlcomm As New SqlCommand(strData, conn)
Dim read As SqlDataReader
read = sqlcomm.ExecuteReader
If read.HasRows = True Then
Dim num, total, old As Integer
strData = "UPDATE DRUG SET DRUG_TOTAL=@total WHERE DRUG.DRUG_ID ='" & txt_id.Text & "'"
Dim strcomm As New SqlCommand(strData, conn)
Dim view As New SqlDataAdapter(sqlcomm)
Dim data As New DataSet
num = txt_total.Text
old = data.Tables("DRUG").Rows(0)(8).ToString
total = old + num
With sqlcomm
.Parameters.Clear()
.CommandType = CommandType.Text
.CommandText = strData
.Connection = conn
.Parameters.Add("total", SqlDbType.Int).Value = total
MessageBox.Show(total)
End With
Dim result = sqlcomm.ExecuteNonQuery()
If result < 1 Then
MessageBox.Show("บันทึกข้อมูลผิดพลาด", "ล้มเหลว", MessageBoxButtons.OK, MessageBoxIcon.Error)
txt_id.Text = ""
txt_dprice.Text = ""
txt_exp.Text = ""
txt_low.Text = ""
txt_name.Text = ""
date_exp.Value = Date.Today
txt_total.Text = ""
txt_unit.Text = ""
com_type.Text = ""
txt_id.Focus()
Else
MessageBox.Show("บันทึกเรียบร้อย", "เรียบร้อย", MessageBoxButtons.OK, MessageBoxIcon.Information)
txt_id.Text = ""
txt_dprice.Text = ""
txt_exp.Text = ""
txt_low.Text = ""
date_exp.Value = Date.Now
txt_name.Text = ""
txt_total.Text = ""
txt_unit.Text = ""
com_type.Text = ""
txt_id.Focus()
End If
read.Close()
conn.Close()
Else

strData = "INSERT INTO DRUG(DRUG_ID,DRUG_NAME,DRUG_PRICE,DRUG_LOW,DRUG_EXP,DRUG_BEXP,DRUG_UNIT,DRUG_TYPE,DRUG_TOTAL)VALUES(@id,@name,@price,@low,@exp,@bexp,@unit,@type,@total)"
Dim strcomm As New SqlCommand(strData, conn)
With strcomm
.Parameters.Clear()
.CommandType = CommandType.Text
.CommandText = strData
.Connection = conn
.Parameters.Add("id", SqlDbType.NChar).Value = txt_id.Text
.Parameters.Add("name", SqlDbType.NVarChar).Value = txt_name.Text
.Parameters.Add("price", SqlDbType.Money).Value = txt_dprice.Text
.Parameters.Add("low", SqlDbType.Int).Value = txt_low.Text
.Parameters.Add("exp", SqlDbType.Date).Value = date_exp.Text
.Parameters.Add("bexp", SqlDbType.Int).Value = txt_exp.Text
.Parameters.Add("unit", SqlDbType.NVarChar).Value = txt_unit.Text
.Parameters.Add("type", SqlDbType.NVarChar).Value = com_type.Text
.Parameters.Add("total", SqlDbType.Int).Value = txt_total.Text
Dim result = strcomm.ExecuteNonQuery()
If result < 1 Then
MessageBox.Show("บันทึกข้อมูลผิดพลาด", "ล้มเหลว", MessageBoxButtons.OK, MessageBoxIcon.Error)
txt_id.Text = ""
txt_dprice.Text = ""
txt_exp.Text = ""
txt_low.Text = ""
txt_name.Text = ""
date_exp.Value = Date.Today
txt_total.Text = ""
txt_unit.Text = ""
com_type.Text = ""
txt_id.Focus()

Else
MessageBox.Show("บันทึกเรียบร้อย", "เรียบร้อย", MessageBoxButtons.OK, MessageBoxIcon.Information)
txt_id.Text = ""
txt_dprice.Text = ""
txt_exp.Text = ""
txt_low.Text = ""
date_exp.Value = Date.Now
txt_name.Text = ""
txt_total.Text = ""
txt_unit.Text = ""
com_type.Text = ""
txt_id.Focus()
End If
End With
End If
End Sub
End Class



Tag : .NET, Ms SQL Server 2008, VB.NET, VS 2010 (.NET 4.x)







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2011-02-28 15:54:16 By : เด็กน้อยขี้ดื้อ View : 1334 Reply : 15
 

 

No. 1



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



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


Error ตรงไหนหรอครับ






แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-03-01 08:09:58 By : kaimuk
 


 

No. 2

Guest


Dim result = strcomm.ExecuteNonQuery()
มันบอกว่ายังไม่ได้ปิดreaderครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-03-01 08:17:40 By : เด็กน้อยขี้ดื้อ
 

 

No. 3



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



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


runtime error
ตรงนี้แหละครับเวลารันแล้วใส่ข้อมูลพอกดเพิ่มจะเป็ฯแบบนี้
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-03-01 08:36:55 By : เด็กน้อยขี้ดื้อ
 


 

No. 4



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



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


เหมือนว่าครั้งแรกไปสั่งให้มัน Read แล้วจะไป Execute ทับอีกรอบไม่ได้น่ะครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-03-01 10:39:04 By : 3rds
 


 

No. 5



โพสกระทู้ ( 1,348 )
บทความ ( 1 )



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


Connection ใดที่เปิด DataReader อยู่
จะไม่สามารถ Execute Command อื่นได้
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-03-01 11:29:55 By : หางอึ่ง
 


 

No. 6

Guest


ไม่ค่อยเข้าใจครับ ลองหาที่ปิดอยู่แต่ไม่รู็ตรงปิดตรงไหนครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-03-01 11:41:25 By : เด็กน้อยขี้ดื้อ
 


 

No. 7



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



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


ไม่เข้าจัยว่า เปิดฐานข้อมูลแล้วต้อง
conn.Open()

บรรทัดนี้อีกทำมัยอะ ไม่เข้าใจ ลองดูโค๊ดอีกทีนะ
ลอง มาร์ค ตัวที่บอกแล้วลอง Run อีกทีนะ อาจเป็นที่ตัวนี้ก่าได้
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-03-01 12:24:33 By : angelrings0
 


 

No. 8



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



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


ลองดูแล้วไม่ได้ครับ หรือว่าหลักการของผมจะคิดผิดมันเลยไม่ได้
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-03-01 12:46:20 By : เด็กน้อยขี้ดื้อ
 


 

No. 9



โพสกระทู้ ( 1,348 )
บทความ ( 1 )



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


ค่อยๆ พยายามทำความเข้าใจนะครับ

คุณใช้ sqlcomm ซึ่งใช้ Connection conn เพื่อเปิด DataReader read
ขณะที่ read ยังเปิดใช้งาน (ยังไม่มีการใช้คำสั่ง read.Close())
จะไม่สามารถใช้ sqlcomm เพื่อ Execute Command ใดๆ ได้

โดย Concept ของ ADO.NET
เมื่อต้องการแก้ไขข้อมูลในฐานข้อมูล กรณีที่เราจำเป็นต้องเรียกรายการในฐานข้อมูลเดิมก่อน เช่น อยากบวกจำนวนเพิ่มเข้าไปในฟิล์ด Amount แต่ก็อยากรู้ว่าก่อนบวกเพิ่มนั้น Amount มีค่าเป็นเท่าไหร่

1. ต้องใช้ DataAdapter Fill ข้อมูลใน DataTable ก่อน (โดยอาจ SELECT มาเฉพาะฟิล์ดที่ต้องการ แต่ที่แน่ๆ คือต้องเอา ฟิล์ดที่เป็น Primary Key มาด้วย)
2. จากนั้นก็แก้ไขข้อมูลใน DataTable แต่ละ Row ตามต้องการ
3. ใช้ DataAdapter หรือ Command Update ข้อมูล
ถ้าเป็นข้อมูลปริมาณมาก ขอแนะนำเป็นอย่างยิ่งว่าให้ใช้ DataAdapter
...
คงเข้าใจยากอยู่
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-03-01 13:13:33 By : หางอึ่ง
 


 

No. 10



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



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


เอาแบบง่ายๆเลยนะ [u]เปิดอ่านข้อมูล นำมามาใช้แล้ว ก็ปิดเล[/u]ย พอเปิดอ่านอีกทีจะได้ไม่ ERROR
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-03-01 13:25:57 By : duzija1
 


 

No. 11



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



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


คือผมยังไม่ค่อยเข้าใจหลักการอ่านข้อมูลเท่าไรนะครับ คือผมเอา read มาฟาค่าที่รับจากtxt_id แล้วใช้read.hasrowดูว่าตรงกันไหมท่่าตรงให้updateข้อมูล ท่าไม่ให้insert แบบนี้ได้ไหมครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-03-01 13:54:58 By : เด็กน้อยขี้ดื้อ
 


 

No. 12



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



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


เอา CODE ตรง btn_save_Click
เอามาทั้งอันได้ไหม เดี๋ยวแก้ให้ดูเป็นตัวอย่าง

ดูรูป กับ CODE ที่ให้มา เหมือนจะไม่ค่อยตรงกัน


ประวัติการแก้ไข
2011-03-01 15:54:27
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-03-01 15:34:59 By : duzija1
 


 

No. 13



โพสกระทู้ ( 1,348 )
บทความ ( 1 )



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


Code (VB.NET)
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim strConn, strData As String
strConn = "Data Source=JERRANAI-PC\SQLEXPRESS;Initial Catalog=DrugStore;Integrated Security=True"
Dim conn As New SqlConnection(strConn)
conn.Open()
strData = "SELECT DRUG_ID FROM DRUG WHERE DRUG_ID ='" & txt_id.Text & "'"
Dim sqlcomm As New SqlCommand(strData, conn)
Dim read As SqlDataReader
read = sqlcomm.ExecuteReader
If read.HasRows = True Then
Dim num, total, old As Integer
strData = "UPDATE DRUG SET DRUG_TOTAL=@total WHERE DRUG.DRUG_ID ='" & txt_id.Text & "'"
Dim strcomm As New SqlCommand(strData, conn)
Dim view As New SqlDataAdapter(sqlcomm)
Dim data As New DataSet
num = txt_total.Text
old = data.Tables("DRUG").Rows(0)(8).ToString
total = old + num
With sqlcomm
.Parameters.Clear()
.CommandType = CommandType.Text
.CommandText = strData
.Connection = conn
.Parameters.Add("total", SqlDbType.Int).Value = total
MessageBox.Show(total)
End With
Dim result = sqlcomm.ExecuteNonQuery()
If result < 1 Then
MessageBox.Show("บันทึกข้อมูลผิดพลาด", "ล้มเหลว", MessageBoxButtons.OK, MessageBoxIcon.Error)
txt_id.Text = ""
txt_dprice.Text = ""
txt_exp.Text = ""
txt_low.Text = ""
txt_name.Text = ""
date_exp.Value = Date.Today
txt_total.Text = ""
txt_unit.Text = ""
com_type.Text = ""
txt_id.Focus()
Else
MessageBox.Show("บันทึกเรียบร้อย", "เรียบร้อย", MessageBoxButtons.OK, MessageBoxIcon.Information)
txt_id.Text = ""
txt_dprice.Text = ""
txt_exp.Text = ""
txt_low.Text = ""
date_exp.Value = Date.Now
txt_name.Text = ""
txt_total.Text = ""
txt_unit.Text = ""
com_type.Text = ""
txt_id.Focus()
End If
read.Close()
conn.Close()
Else

strData = "INSERT INTO DRUG(DRUG_ID,DRUG_NAME,DRUG_PRICE,DRUG_LOW,DRUG_EXP,DRUG_BEXP,DRUG_UNIT,DRUG_TYPE,DRUG_TOTAL)VALUES(@id,@name,@price,@low,@exp,@bexp,@unit,@type,@total)"
Dim strcomm As New SqlCommand(strData, conn)
With strcomm
.Parameters.Clear()
.CommandType = CommandType.Text
.CommandText = strData
.Connection = conn
.Parameters.Add("id", SqlDbType.NChar).Value = txt_id.Text
.Parameters.Add("name", SqlDbType.NVarChar).Value = txt_name.Text
.Parameters.Add("price", SqlDbType.Money).Value = txt_dprice.Text
.Parameters.Add("low", SqlDbType.Int).Value = txt_low.Text
.Parameters.Add("exp", SqlDbType.Date).Value = date_exp.Text
.Parameters.Add("bexp", SqlDbType.Int).Value = txt_exp.Text
.Parameters.Add("unit", SqlDbType.NVarChar).Value = txt_unit.Text
.Parameters.Add("type", SqlDbType.NVarChar).Value = com_type.Text
.Parameters.Add("total", SqlDbType.Int).Value = txt_total.Text
Dim result = strcomm.ExecuteNonQuery()
If result < 1 Then
MessageBox.Show("บันทึกข้อมูลผิดพลาด", "ล้มเหลว", MessageBoxButtons.OK, MessageBoxIcon.Error)
txt_id.Text = ""
txt_dprice.Text = ""
txt_exp.Text = ""
txt_low.Text = ""
txt_name.Text = ""
date_exp.Value = Date.Today
txt_total.Text = ""
txt_unit.Text = ""
com_type.Text = ""
txt_id.Focus()

Else
MessageBox.Show("บันทึกเรียบร้อย", "เรียบร้อย", MessageBoxButtons.OK, MessageBoxIcon.Information)
txt_id.Text = ""
txt_dprice.Text = ""
txt_exp.Text = ""
txt_low.Text = ""
date_exp.Value = Date.Now
txt_name.Text = ""
txt_total.Text = ""
txt_unit.Text = ""
com_type.Text = ""
txt_id.Focus()
End If
End With
End If
End Sub


แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-03-01 19:29:39 By : หางอึ่ง
 


 

No. 14



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



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


ผมทำได้แล้วครับ ใช้ try catch เอาครับ ขอบคุณทุกความเห็นมากนะครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-03-01 19:46:20 By : เด็กน้อยขี้ดื้อ
 


 

No. 15



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



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


ทำได้อย่างไรก็เอามาโชว์หน่อยก็ดีนะครับ เป็นแนวทางให้คนอื่น
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-03-03 14:34:44 By : duzija1
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : ช่วยแก้โค๊ดการเพิ่มข้อมูลยาให้หน่อยครับ มันมีปัญหาในการrun
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

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

Notice

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

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







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

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