หน้าแรก
 การบ้าน
  C/C++ new
  Java new
 Sourcecode.TV
  Android
  Blackberry
  C/C++
  Java
  Linux
  Windows Phone
  แจ้งเรื่องที่ต้องการ
 บทความ
  .NET
  Android
  Blackberry
  C++Builder
  Delphi
  Java
  Mobile
  Open Source
  Pocket PC
  Visual Basic
  Web
  Windows Phone
  Others
 แบบเรียนฟรี
  ASP
  ASP.NET Webmatrix
  C++
  eVB
  J2ME
  Java
  PHP
 ซอร์สโค้ด
  Android
  ASP
  C++
  VC++
  CGI-Perl
  Delphi
  Java
  jQuery
  PHP
  Visual Basic
  .NET
 บริการจากเรา
  เปิดท้าย... ขายโค้ด
  DoodeeHosting
  รับออกแบบ พัฒนาเว็บไซต์
  Freeware
  อัตราค่าโฆษณา
  รายชื่อลูกค้า
  สถิติผู้เข้าเว็บ
 ดาว์นโหลด
 ค้นหาข้อมูล
 กระดานสนทนา
  .NET
  C/C++
  Delphi
  Java
  Palm/PocketPC
  Visual Basic
  Web
  อื่นๆ
 กระดานงาน
 ลิงค์เว็บ
 เกี่ยวกับผม
 อัตราค่าโฆษณา
Social Network

Facebook  Twitter  YouTube
 New Article
 Webboard
 Freelanceboard
Freeware
โปรแกรมเบอร์ดี (BerDee)
โปรแกรมเบอร์ดี (Android)
เกมส์เป่ายิ้งฉุบ
เกมส์เป่ายิ้งฉุบ(Android)
WebcamMonitor
WebcamMonitor(Windows)
scSendMail
scSendMail(Windows)
MSN Caption
MSN Caption(Windows)
  Freelance comment
  ติดต่อสอบถามมาได้ตลอดนะครับ...
2015-07-29 13:35:58
  ถ้าผมต้องการเว็บที่พัฒนาด้วย HTML5 ...
2015-01-18 15:33:54
  ถ้าผมต้องการเว็บที่พัฒนาด้วย HTML5 ...
2015-01-18 15:32:51
  ติดต่อสอบถามเข้ามาได้นะคับ
งานเล...

2014-01-06 12:47:38
  ถ้ายังหาคนสอนไม่ได้ ก็ลองศึกษาเองได...
2013-07-06 01:04:37
  สนใจส่งขอบเขตมาคุยราคาก่อนได้นะคับ...
2013-03-24 18:54:20
  ถ้ายังไม่มีคนรับงานติดต่อได้ครับ 08...
2012-12-16 19:18:14
  สนใจคะ ติดต่อ 0905076277...
2012-11-12 11:07:46
  รับทำโปรเจ็คนักศึกษาหรือบริษัท
ส...

2012-10-29 03:10:46
  sukit_te34@hotmail.com...
2012-10-29 03:09:36
  Webboard comment
  ผมลอง gotoxy แล้วแต่ก็ยังเอ...
2017-08-28 11:45:52
  ลองสร้างตัวแปลอีกตัวไว้ใน u...
2017-08-27 20:09:01
  #define GLUT_DISABLE_ATEXIT...
2017-08-27 12:53:17
  ผมมีคลิปสอนให้แล้ว ดูให้เข้...
2017-08-27 10:50:02
  รับ สอน matlab เขียน matlab...
2017-06-03 16:27:23
  เฉพาะทางขนาดนี้ คงต้องดูหาข...
2017-05-25 16:18:08
  โห เครื่องรุ่นไหนครับ os รุ...
2017-05-25 16:12:47
  ถ้าเขียน php ก็ใช้ curl ส่...
2017-04-20 01:04:20
  เขียนโค้ดไม่เป็น เอาโค้ดไป ...
2017-03-27 12:50:54
  คือสงสัยว่าทำไม ต้องอัพเดทด...
2017-03-27 12:37:20
  Homework comment
  ขอบคุณมากครับ...
2017-08-16 18:27:25
  ทำเอง งง เอง กะลังทำใหม่ค่ะ ^^...
2017-04-18 18:40:46
  ทำเอง งง เอง กะลังทำใหม่ค่ะ ^^...
2017-04-18 18:37:54
  ประเด็นแรก flowchart มันไม่มีภ...
2017-04-18 17:43:33
  อยากได้ flowchart ค่ะ เป็นภาษา...
2017-04-18 16:25:29
  kungking คำถามคืออะไรครับ ?...
2017-03-18 23:28:36
  จงเขียนโปรแกรมแสดงผลรวมของตัวเ...
2017-03-06 10:56:25
  ก็โค้ดทำงานคล้ายๆแบบนี้หละ แต่...
2016-09-06 01:00:12
  ผมอยากทราบว่าโค้ดนับถอยหลังเป็...
2016-09-05 09:31:27
  ได้โค้ดแล้ว ลองศึกษาแล้วเขียนผ...
2016-04-22 00:47:49
  Article comment
  น่าจะได้ครับ ไม่เคยลอง
กล่...

2017-07-11 09:59:35
  สามารถใช้ต่อกับ anycast ได้ไหม...
2017-07-05 10:12:35
  ครับ คุณ "ติด" แล้วลองนึกต่อว่...
2016-06-18 15:21:09
  vs2008 c# ครับ ขอบคุณครับ...
2016-06-17 14:39:30
  ผมใช้ vs c# ทำตามทุขั้นตอนแต่ต...
2016-06-17 14:37:44
  ต้องวิเคราะห์ครับ "ว่าจริงๆ ส่...
2016-03-12 23:36:05
  ผมส่งข้อความในวง LAN ได้เฉพาะค...
2016-03-12 18:25:42
  โปรแกรม Terminal บน Mac ก็เป็น...
2016-02-16 11:02:01
  โปรแกรม Terminal คืออะไรหรอคะ...
2016-02-16 05:58:21
  ไปตั้ง โครงการไว้เลยครับ ที่
2016-01-25 13:29:55
  9Mcode comment
  อยากได้...
2014-02-21 08:52:19

Link Exchange

อัตราค่าโฆษณา
Statistics of Sourcecode in Thailand
 
 Webboard

- - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -

กระทู้ #3513 [Vb]

ช่วยหน่อยคะ อยากทำ Auto-number พอเปลี่ยนเดือนใหม่แล้วให้รันที่ 0001 ใหม่คะ

ทำแบบให้ autorun ได้แล้วแต่เหลือเพียงให้เวลาขึ้นเดือนใหม่ ให้เป็น 0001 คะ
จากคุณ : Miint / gfocemoobin@gmail.com [2014-05-05 09:18:37]  

110.171.44.215 ความคิดเห็น #29045 (จาก IP: 110.171.44.215)
Code Class GenID
+++++++++++++++++++++++++++++
Public Function AutoGenerateID(ByVal _sTable As String, ByVal _sColumn As String, ByVal _sJOBLOGIDNAME As String, ByVal _sJOBYEAR As String, ByVal _sJOBMONTH As String) As String
Dim strConn As String
strConn = connection.StrConn
With Conn
If .State = ConnectionState.Open Then .Close()
.ConnectionString = strConn
.Open()
Dim oledb As String

Dim oledbresult As Integer
oledb = "SELECT Count(" + _sJOBLOGIDNAME + ") FROM " + _sTable + ""

Try

Dim Mycmd As New OleDbCommand(oledb, Conn)
Myreader = Mycmd.ExecuteReader()
Myreader.Read()

oledbresult = CInt(Myreader.Item(0))
Myreader.Close()
AutoGenerateID = Format(oledbresult + 1, "0000")


Catch ex As Exception
AutoGenerateID = "0001"
End Try
End With

End Function
จากคุณ : Miint / gfocemoobin@gmail.com [2014-05-05 11:37:13]

110.171.44.215 ความคิดเห็น #29046 (จาก IP: 110.171.44.215)
Page load
++++++++++++++++++++++
Public Class creat
Inherits System.Web.UI.Page
Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Payuda\Documents\Database2.mdb"
Dim da As New OleDbDataAdapter
Dim ds As New DataSet
Dim Cn As New OleDbConnection(strConn)
Dim sGenID As GenID = New GenID
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Cn = New OleDbConnection(strConn)
Cn.Open()
Dim sGenID As GenID

TextBox1.Text = AutoGenID()

End Sub

Public Function AutoGenID() As String

Dim GCLTID As String
Dim CLTID As String
Dim ids As String
Dim sTable As String
Dim sColumn As String
Dim sJOBLOGIDNAME As String
Dim sJOBYEAR As String
Dim sJOBMONTH As String

sTable = "JOBLOG"
sColumn = "JOBLOGID"
sJOBLOGIDNAME = "JOBLOGIDNAME"
sJOBYEAR = "JOBYEAR"
sJOBMONTH = "JOBMONTH"
GCLTID = sGenID.AutoGenerateID(sTable, sColumn, sJOBLOGIDNAME, sJOBYEAR, sJOBMONTH)
Dim sYear As String = Year(Now).ToString("0000")
Dim sMonth As String = Month(Now).ToString("00")
CLTID = "JLG-" & sYear & sMonth & GCLTID

Return CLTID

End Function
จากคุณ : Miint / gfocemoobin@gmail.com [2014-05-05 11:38:40]

110.171.44.215 ความคิดเห็น #29047 (จาก IP: 110.171.44.215)
ตอนนี้แปลงโค้ดใหม่แล้วค่ะ พอเปลี่ยนเดือนใหม่รัน 0001 ใหม่แล้ว แต่พอสร้างงานอันต่อไปมันไม่รัน 0002 อะคะ<br>==========================<br>Public Class GenID<br> Dim Conn As New OleDbConnection<br> Dim com As OleDbCommand<br> Dim da As OleDbDataAdapter<br> Dim ds As New DataSet<br> Dim Myreader As OleDbDataReader<br> Public Function AutoGenerateID(ByVal _sTable As String, ByVal _sColumn As String, ByVal _sJOBLOGIDNAME As String) As String<br> Dim strConn As String<br> strConn = connection.StrConn<br> With Conn<br> If .State = ConnectionState.Open Then .Close()<br> .ConnectionString = strConn<br> .Open()<br> Dim oledb As String<br> Dim cMonth As String = \
จากคุณ : Miint / gfocemoobin@gmail.com [2014-05-05 17:02:28]

110.171.44.215 ความคิดเห็น #29048 (จาก IP: 110.171.44.215)
ตอนนี้แปลงโค้ดใหม่แล้วค่ะ พอเปลี่ยนเดือนใหม่รัน 0001 ใหม่แล้ว แต่พอสร้างงานอันต่อไปมันไม่รัน 0002 อะคะ
**************************
Public Class GenID
Dim Conn As New OleDbConnection
Dim com As OleDbCommand
Dim da As OleDbDataAdapter
Dim ds As New DataSet
Dim Myreader As OleDbDataReader
Public Function AutoGenerateID(ByVal _sTable As String, ByVal _sColumn As String, ByVal _sJOBLOGIDNAME As String) As String
Dim strConn As String
strConn = connection.StrConn
With Conn
If .State = ConnectionState.Open Then .Close()
.ConnectionString = strConn
.Open()
Dim oledb As String
Dim cMonth As String = "JLG-" & Date.Now.Year.ToString("0000") & Date.Now.Month.ToString("00")

Dim oledbresult As Integer
oledb = "SELECT max(" + _sJOBLOGIDNAME + ") FROM " + _sTable + ""

Try

Dim Mycmd As New OleDbCommand(oledb, Conn)
Myreader = Mycmd.ExecuteReader()
Myreader.Read()
'AutoGenerateID = Myreader.Item(0).ToString.Substring(0, 10)
'AutoGenerateID = cMonth.Substring(0, 10)
'AutoGenerateID = Myreader.Item(0).ToString.Substring(10, 4)
If Myreader.Item(0).ToString.Substring(0, 10) <> cMonth.Substring(0, 10) Then
AutoGenerateID = cMonth & Format(oledbresult + 1, "0000")
Else
'oledbresult = CInt(Myreader.Item(0))
'oledbresult = CInt(oledbresult + 1)
'AutoGenerateID = oledbresult.ToString("0000")
AutoGenerateID = Myreader.Item(0)
End If

Myreader.Close()
Catch ex As Exception
AutoGenerateID = cMonth & Format(oledbresult + 1, "0000")


End Try
End With

End Function

End Class
จากคุณ : Miint / gfocemoobin@gmail.com [2014-05-05 17:04:05]

110.171.44.215 ความคิดเห็น #29049 (จาก IP: 110.171.44.215)
ทำได้แล้วคะ เอามาแปะไว้เพื่อเป็นประโยชน์กับคนอื่นๆ
=========================
Public Function AutoGenerateID(ByVal _sTable As String, ByVal _sColumn As String, ByVal _sJOBLOGIDNAME As String) As String
Dim strConn As String
strConn = connection.StrConn
With Conn
If .State = ConnectionState.Open Then .Close()
.ConnectionString = strConn
.Open()
Dim oledb As String
Dim cMonth As String = "JLG-" & Date.Now.Year.ToString("0000") & Date.Now.Month.ToString("00")

Dim oledbresult As Integer
oledb = "SELECT max(" + _sJOBLOGIDNAME + ") FROM " + _sTable + ""
Try
Dim Mycmd As New OleDbCommand(oledb, Conn)
Myreader = Mycmd.ExecuteReader()
Myreader.Read()
If Myreader.Item(0).ToString.Substring(0, 10) <> cMonth.Substring(0, 10) Then
AutoGenerateID = cMonth & Format(oledbresult + 1, "0000")
Else
oledbresult = CInt(Myreader.Item(0).ToString.Substring(10, 4))
AutoGenerateID = cMonth & Format(oledbresult + 1, "0000")
End If
Myreader.Close()
Catch ex As Exception
AutoGenerateID = cMonth & Format(oledbresult + 1, "0000")


End Try
End With

End Function
จากคุณ : Miint / gfocemoobin@gmail.com [2014-05-06 08:58:02]

58.8.2.149 ความคิดเห็น #29050 (จาก IP: 58.8.2.149)
คือว่าอาจจากคำถามก็ไม่เข้าใจว่าต้องการสื่ออะไร และแม้กระทั่งตอบแล้ว ผมก็ไม่เข้าใจ แต่ก็เห็นว่า มีการใส่เงื่อนไขการทำงานเพิ่มเข้าไป ก็อยากแนะนำว่า อาจไม่ต้องยกโค้ดจริงมา แค่หยิบมาเฉพาะโค้ดที่ต้องการ เช่น เดิมทำงานจากโค้ดนี้ได้ผลยังไง แต่ต้องการให้ได้ผลยังไง น่าจะทำให้ต่อไปผมถ้าพอช่วยได้จะได้ช่วย

สุดท้ายคือการบ่นให้คนอื่นฟัง มันไม่เกิดประโยชน์เท่ากับการที่อธิบายให้คนอื่นฟังว่ากำลังเกิดปัญหาอะไร และต้องการแก้ไข
จากคุณ : maddog [2014-05-06 15:49:49]

110.171.44.215 ความคิดเห็น #29051 (จาก IP: 110.171.44.215)
ขอโทษด้วยคะ มือใหม่หัดทำ อธิบายไม่ค่อยถูก ก็เลยทำได้แค่นี้คะ
จากคุณ : Miint / gfocemoobin@gmail.com [2014-05-06 16:21:10]

61.90.38.237 ความคิดเห็น #29052 (จาก IP: 61.90.38.237)
มันเป็นปัญหาของทั้งมือใหม่ และมือเก่าครับ คือการอธิบายปัญหา ให้คนอื่นเข้าใจ มันยากกว่าการแก้ไขเองด้วยซ้ำ

ทำให้คนที่เค้าอยากจะช่วยไม่เข้าใจคำถาม บางคนอาจถามว่า "สรุปถามว่าอะไร" หรือ บางคนก็เงียบไม่ตอบ ทำให้เสียโอกาสที่จะได้รับความช่วยเหลือ
จากคุณ : maddog [2014-05-07 09:32:56]
ตอบกระทู้
  • ห้ามการโฆษณา หากต้องการติดต่อหาลูกค้า ติดต่อโฆษณาโดยตรงได้ที่ webmaster@sourcecode.in.th
  • ห้ามใช้คำหยาบและคำพูดที่ไม่เหมาะสม
  • ขอสงวนสิทธิหากตรวจพบ ข้อความที่ไม่เหมาะสม ข้อความนั้นจะถูกลบทันที
ชื่อ
อีเมล์
รายละเอียด

- - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -

 
 
สายต่อจอ สำหรับเครื่อง macbook pro 2016 (usb-c to HDMI)
สายต่อจอ สำหรับเครื่อง macbook pro 2016 (usb-c to HDMI) ความละเอียดระดับ 4K
หัวแปลง Mini DisplayPort to HDMI Adapter หัวแปลง Mini DisplayPort to HDMI Adapter สำหรับเครื่อง macbook air/pro, mac mini
หัวแปลง Mini DisplayPort to HDMI Adapter สำหรับเครื่อง macbook air/pro, mac mini
สายต่อหูฟัง และชาร์จไฟ สำหรับ iPhone 7 และ 7 Plus
สายต่อหูฟัง และชาร์จไฟ สำหรับ iPhone 7 และ 7 Plus
หัวแปลงจาก USB-C Type ไปเป็น USB 3.1 สำหรับ MacBook
หัวแปลงจาก USB-C Type ไปเป็น USB 3.1 สำหรับ MacBook
ไขควงสำหรับเครื่อง Macbook Air/Pro
ไขควง สำหรับแกะเครื่อง Macbook Air/Pro (300บาท)
HDMI เข้า 3 ออก  1 มีรีโมท
HDMI เข้า 3 ออก 1 มีรีโมท (350บาท)
คลิปสอนเขียนโปรแกรม
เรียนเขียนโปรแกรมดอทเน็ต
เรียนเขียนโปรแกรมแอนดรอยด์
เรียนเขียนโปรแกรมเบล็คเบอร์รี่
เรียนเขียนโปรแกรมซี ซีพลัสพลัส
เรียนเขียนโปรแกรมจาวา
เรียนการใช้งานลินุกส์
เรียนการเขียนโปรแกรมวินโดว์โฟน
เรียนการเขียนโปรแกรมพีเฮชพี มายเอสคิวเอล
9M Blog บอกเล่าเรื่องราว การเขียนโปรแกรมของ นายเอ็ม
บริการ ถ่ายภาพรับปริญญา
OrmSin.com: ขายหนังสืองานฝีมือไทย-ญี่ปุ่น-จีน (country crafts)
อัตราค่าโฆษณา
 
Tutorial
eVB Tutorial
ASP.NET Webmatrix Tutorial
J2ME Tutorial
C++  Tutorial
Java  Tutorial
PHP Tutorial
ASP Tutorial
 
แบบสำรวจ
Freelance รับพัฒนาโปรแกรม

Home - Article - Tutorial - Sourcecode - Dev Handbook - Search - WebBoard - Links - About Us

สงวนลิขสิทธิ์ ห้ามคัดลอก ทำซ้ำ แก้ไข ดัดแปลง ไม่ว่าในรูปแบบใด โดยไม่ได้รับอนุญาตเป็นลายลักษณ์อักษร
เลขทะเบียนพาณิชย์อิเล็กทรอนิกส์จากกระทรวงพาณิชย์: 7100503002000
Copyright 2001 SourceCode.in.th