สอนโค้ด VB2010 หน่อยค่ะ คือต้องการสร้าง CreditID ให้เป็นแบบนี้ "CR56010001" CR=ย่อมาจากคำว่าCredit, 56=พ.ศ., 01=รหัสเดือน, 0001 คือรหัสที่รันต่อท้าย
Code (VB.NET) MessageBox.Show("CR" & Microsoft.VisualBasic.Right(Now.Year + 543, 2) & Microsoft.VisualBasic.Right("0" & Now.Month, 2) & "0001")
Date :
2013-05-16 13:24:25By :
thep
ก็ qurey ข้อมูลออกมาก่อน ตัด string นำค่ามา + แล้วค่อยกำหนดใส่ txtCreID.Text
Date :
2013-05-17 09:03:55By :
zero1150kfc
Code (VB.NET) Dim sql As String = "Select isnull(max(convert(int,right(Credit_ID,len(Credit_ID)-6))),0)+1 from Credit"
Dim com As New OleDbCommand(sql, conn)
Dim max As String = com.ExecuteScalar
txtCreID.Text = ("CR" & Microsoft.VisualBasic.Right(Now.Year + 543, 2) & Microsoft.VisualBasic.Right("0" & Now.Month, 2) & Microsoft.VisualBasic.Right("000" & max, 4))
Date :
2013-05-17 10:25:49By :
thep
อย่าบอกนะว่า query max id มาบวก 1
Date :
2013-05-17 12:23:47By :
ห้ามตอบเกินวันละ 2 กระทู้
ตอบความคิดเห็นที่ : 9 เขียนโดย : ห้ามตอบเกินวันละ 2 กระทู้ เมื่อวันที่ 2013-05-17 13:53:54 รายละเอียดของการตอบ ::
ผมว่ามันแล้วแต่กรณี
ที่คุณให้ผมดู มันเป็น auto run Number มันก็คงต้องทำอย่างนั้น โอเค
แต่ถ้ากรณีที่ไม่ได้ใช้ auto run Number และเรากำหนดให้ Column นั้นๆ เป็น Primary Key ด้วย มันก็คงต้อง ใช้ max + 1
Code (SQL)
CREATE TABLE [MyTable](
[Code] [nvarchar](50) Primary Key,
[Name] [nvarchar](50) NULL
)
insert into MyTable(code,name)
select 'CR'+convert(varchar,right(year(getdate())+543,2))+right('0'+convert(varchar,month(getdate())),2)+right('000'+
convert(varchar,(select isnull(max(convert(int,right(code,len(code)-6))),0)+1 from MyTable)),4),'thaicreate'
OR
Code (SQL)
insert into MyTable(id,name)
select (select isnull(max(id),0) +1 from MyTable),'name'
Date :
2013-05-17 15:26:54By :
thep
ผมก็พอมีบ้างครับ แต่มันก็ยังไม่สมบูรณ์สักที (2505 - ปัจจุบัน)
Date :
2013-05-17 15:54:47By :
ผ่านมา
วิธีที่หนึ่ง
Date :
2013-05-17 15:57:51By :
ผ่านมา
ต้องไปเก็บค่าเช่าบ้าน javascript:void(0);
Date :
2013-05-17 16:02:00By :
ผ่านมา
อ่า ผมพอจะเข้าใจ Concept บ้างละ IDENT_CURRENT http://iknowkungfoo.com/blog/index.cfm/2008/6/1/Please-stop-using-SELECT-MAX-id
ประวัติการแก้ไข
Date :
2013-05-17 16:03:42By :
zero1150kfc
ถ้าคนเรา รู้ เท่าทันกัน นั่นคือปัญหา ?สีแสวงเหาะ ว่า Computer มีกี่ภาษา? คำตอบที่ถูกต้อง : มีภาษาเดียว
Date :
2013-05-17 16:46:40By :
ผ่านมา
ผมเจอแล้วกับคำตอบที่ว่า คำตอบที่ถูกต้อง : มีภาษาเดียว
Date :
2013-05-17 16:54:01By :
ผ่านมา
แสดงว่า record ประจำเดือนๆนึง ไม่ถึง 9999
Date :
2013-05-17 17:38:52By :
amj
ขอบคุณทุกๆคำตอบนะคะ.....ขอบคุณอย่างยิ่งค่ะตอนนี้กระจ่างในคำตอบขึ้ันมากๆ แล้วนะคะ ขอบคุณทุกคนค่ะที่สละเวลามาตอบคำถาม
Date :
2013-05-18 11:00:12By :
borobirt
ถ้าใช้หลาย ๆ เครื่องพร้อมกัน ระวังจะรันมาได้เลขเดียวกันน่ะครับ
Date :
2013-05-18 12:58:32By :
fonfire
แล้วถ้าทำเป็น auto number เวลาเรียก join กันหลายตารางอะครับ เหมือนจะงงๆเวลาเรียกข้อมูล
Date :
2013-05-18 15:56:21By :
ไก่
มันมีหลายวิธี อยู่ที่ว่าเราจะเลือกใช้?Code (VB.NET)
Date :
2013-05-18 17:26:32By :
ผ่านมา
Code (SQL)
CREATE TABLE [MyTable](
[ID] [int] IDENTITY(1,1) Primary Key Clustered,
[MyCode] [nvarchar](50) NULL,
[MyName] [nvarchar](50) NULL
)
Code (SQL)
INSERT INTO MyTable
(MyCode, MyName)
VALUES ('CR' + SUBSTRING(CONVERT(NVARCHAR(4), YEAR(GETDATE()) + 543), 3, 2) + SUBSTRING(REPLACE(CONVERT(NVARCHAR(8), GETDATE(), 103), '/', ''), 3, 2)
+ REPLICATE('0', 6 - LEN(IDENT_CURRENT('MyTable'))) + CONVERT(NVARCHAR(6), IDENT_CURRENT('MyTable')), 'Thaicreate')
รันแล้วจะได้แบบนี้ // --> CR5605000001
Date :
2013-05-20 08:42:48By :
ห้ามตอบเกินวันละ 2 กระทู้
ถ้าเป็น VB หรือ C# มันมี GUID เอามาใช่ได้ป่ะคับ มีข้อดีข้อเสียอย่างไรครับผม
Date :
2013-05-20 10:03:30By :
ผู้อยากรู้ช่วยตอบทีขอบพระคุณครับ
ปกติผมทำแบบนี้ครับ
Date :
2013-05-20 11:36:25By :
fonfire
ตอบความคิดเห็นที่ : 7 เขียนโดย : ห้ามตอบเกินวันละ 2 กระทู้ เมื่อวันที่ 2013-05-17 12:23:47 รายละเอียดของการตอบ ::
Dim sql As String = "Select is isnull(max(convert(int,right(Credit_ID,len(Credit_ID)-6)),0)+1) from Credit"
Dim com As New OleDbCommand(sql, conn)
Dim max As String = com.ExecuteScalar ***เมื่อรันแล้วติดตรงนี้อะค่ะ ฟ้อง error แบบนี้ Syntax error (missing operator) in query expression 'is isnull(max(convert(int,right(Credit_ID,len(Credit_ID)-6)),0)+1)'.
txtCreID.Text = ("CR" & Microsoft.VisualBasic.Right(Now.Year + 543, 2) & Microsoft.VisualBasic.Right("0" & Now.Month, 2) & Microsoft.VisualBasic.Right("000" & max, 4))
Date :
2013-05-21 16:55:01By :
borobirt
Server 00
Load balance : Server 00
