˹á
 úҹ
  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
  [b] , ...
2017-10-21 23:35:27
  [b] , ...
2017-10-20 10:05:06
  [b]5 ...
2017-10-18 08:19:17
  - ...
2017-10-18 07:17:11
  [b] ...
2017-10-18 06:07:31
  [b] 96 ...
2017-10-18 06:05:28
  - ...
2017-10-18 05:49:56
  code ͧ VB ú...
2017-09-28 16:50:02
  ҨѺ ͧ
...

2017-07-11 09:59:35
  ö͡Ѻ anycast ...
2017-07-05 10:12:35
  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]
ͺз
´

- - - - - - - - - - - - - - ʹѺʹع- - - - - - - - - - - - - -

 
 
µͨ Ѻͧ 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