Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,038

HOME > ASP > ASP Forum > ใครเก่ง asp ช่วยแปลง Code ตัวนี้ให้ทีครับ AutoGenerateJobNo

ใครเก่ง asp ช่วยแปลง Code ตัวนี้ให้ทีครับ AutoGenerateJobNo

เริ่มหัวข้อใหม่

Guest

Code

Private Sub AutoGenerateJobNo()
Dim sqlTmp As String = ""
Dim comTmp As SqlCommand = New SqlCommand
Dim tmpJobNo As String = ""

Dim FirstID As Integer = 0
Dim LastID As Integer = 0

sqlTmp = "SELECT TOP 1 RepairID FROM RepairAsset "
sqlTmp &= " ORDER BY RepairID DESC"

Dim strConn As String
strConn = DBConnString.strConn

With Conn
If .State = ConnectionState.Open Then .Close()
.ConnectionString = strConn
.Open()
End With

Try
With comTmp
.CommandType = CommandType.Text
.CommandText = sqlTmp
.Connection = Conn
drTmp = .ExecuteReader()

drTmp.Read()

tmpJobNo = CStr(drTmp.Item("RepairID"))

FirstID = CInt(StringFromLeft(tmpJobNo, 4))
LastID = CInt(StringFromRight(tmpJobNo, 5))

LastID = LastID + 1

lblJobNo.Text = FirstID.ToString("0000") & LastID.ToString("00000")
End With
Catch
lblJobNo.Text = ThisYear.ToString() & "00001"
End Try

drTmp.Close()
End Sub

Tag : - - - -

Date : 2009-01-14 15:59:48

By : กิตติศักดิ์

View : 1385

Reply : 3

No. 1

เด่น

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

อยากแปลงเป็นภาษา ASP ของเดิมเป็น VB2005

Date : 2009-01-14 16:23:36

By : kittisakp

No. 2

Guest

Code (VB.NET)

Sub AutoGenerateJobNo()
dim conn
dim rs
dim sqlTmp
Dim FirstID
Dim LastID

Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")

sqlTmp = "SELECT TOP 1 RepairID FROM RepairAsset "
sqlTmp &= " ORDER BY RepairID DESC"
rs.open sqlTmp,conn,1
if not rs.eof and not rs.bof then
firstID = cint(left(rs("RepairID"),4))
firstID= right("0000" & firstid,4)
lastID = cint(left(rs("RepairID"),5))+1
lastID= right("00000" & lastid,5)

'****** what is lblJobNo.Text
lblJobNo.Text = firstId & lastid
else
lblJobNo.Text = year(now()) & "000001"
end if
rs.close
conn.close
set rs = nothing
set conn = nothing
end sub

Date : 2009-01-19 13:42:29

By : ลองดู

No. 3

เด่น

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

ขอบคุณมากเลยครับ...

Date : 2009-01-20 16:22:16

By : kittisakp

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : ใครเก่ง asp ช่วยแปลง Code ตัวนี้ให้ทีครับ AutoGenerateJobNo

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

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

Notice

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

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก