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

Registered : 108,987

HOME > .NET Framework > Forum > รบกวนสอบถาม VB.6 แต่อยากได้โค๊ดแบบนี้ใน VB.net ต้องเขียนประมาณไหนได้ครับแนะนำให้ด้วยน่ะครับ เพิ่งมาศึกษา VB.Net



 

รบกวนสอบถาม VB.6 แต่อยากได้โค๊ดแบบนี้ใน VB.net ต้องเขียนประมาณไหนได้ครับแนะนำให้ด้วยน่ะครับ เพิ่งมาศึกษา VB.Net

 



Topic : 136649



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



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



Private Sub Cmdok_Click()
Dim sqlFarmer3 As String
Dim rsFarmer3 As New ADODB.Recordset
Dim sqlUpdate_RETURN3 As String
Dim comCANE_RETURN3 As New ADODB.Command
Dim sqlUpdateRent As String
Dim comRent As New ADODB.Command

Dim FFF As String
Dim R As Double
Dim RETURN1 As Double
Dim b As Integer
Dim i3 As String
Dim Fdate As String
Dim Tdate As String
Fdate = Format(txtFDate.Text, "dd/mm/yyyy")
Tdate = Format(txtTDate.Text, "dd/mm/yyyy")
Conn2.BeginTrans
sqlFarmer3 = "SELECT * From CPC_TRUC "
' sqlFarmer3 = sqlFarmer3 & " WHERE REPORTDATE BETWEEN '" & Format((Fdate), "mm/dd/yyyy") & "'"
' sqlFarmer3 = sqlFarmer3 & " AND '" & Format((Tdate), "mm/dd/yyyy") & "'"
' sqlFarmer3 = sqlFarmer3 & " AND PRINT_W='Y'"
' sqlFarmer3 = sqlFarmer3 & " Where PRINT_W='Y'"
'sqlFarmer3 = sqlFarmer3 & " AND (PERIOD_NO='" & txtPer.Text & "')"
'sqlFarmer3 = sqlFarmer3 & " AND LOAN>0"
sqlFarmer3 = sqlFarmer3 & " ORDER BY TRUCK_Q"


With rsFarmer3
If .State = adStateOpen Then .Close
.ActiveConnection = Conn2
.CursorType = adOpenForwardOnly
.CursorLocation = adUseClient
.Open sqlFarmer3
If .RecordCount = 0 Then
'Exit
Else
b = 0
i3 = 0
.MoveFirst
pgbProcess.Min = 0
pgbProcess.Max = .RecordCount
pgbProcess.Value = 0
R = 0
Do While Not .EOF
' MsgTxt.Caption = "¡ÓÅѧ¹Ó˹Õéà¢éÒÃкº FMS"
FFF = .Fields("TRUCK_Q")
i3 = i3 + 1
' MsgTxt.Caption = "¡ÓÅѧ»ÃÐÁÇżÅÃÇÁ¢éÍÁÙÅ"
sqlUpdateRent = "INSERT INTO CPC_TRUC (TRUCK_Q,Landno,FMCODE,FMCODE_B1, TRUCK_NO, Carduid,OWNCODE,regtruck,KEEP_NO,OWNCODE_KEEP,"
sqlUpdateRent = sqlUpdateRent & "CUT_NO,OWNCODE_CUT,PRINT_Q,REF_DOC1,"
sqlUpdateRent = sqlUpdateRent & "Q_ID,DATE_IN,REPORTDATE,TRUCK_Chk,Qtype,GROUPCODE)"


' Landno,NameLan,Disappear,SUPZONE)"

' ' sqlUpdateRent = sqlUpdateRent & "JobCode,SumTan,SumAmnt,GasQty,GasAmnt,TransAmnt,AssociateAmnt,"
sqlUpdateRent = sqlUpdateRent & " VALUES('" & .Fields("TRUCK_Q") & "',"
sqlUpdateRent = sqlUpdateRent & "'" & .Fields("Landno") & "',"
sqlUpdateRent = sqlUpdateRent & "'" & .Fields("FMCODE") & "',"
sqlUpdateRent = sqlUpdateRent & "'" & .Fields("FMCODE_B1") & "',"
sqlUpdateRent = sqlUpdateRent & "'" & .Fields("TRUCK_NO") & "',"
sqlUpdateRent = sqlUpdateRent & "'" & .Fields("Carduid") & "',"
sqlUpdateRent = sqlUpdateRent & "'" & .Fields("OWNCODE") & "',"
sqlUpdateRent = sqlUpdateRent & "'" & .Fields("regtruck") & "',"
sqlUpdateRent = sqlUpdateRent & "'" & .Fields("KEEP_NO") & "',"
sqlUpdateRent = sqlUpdateRent & "'" & .Fields("OWNCODE_KEEP") & "',"
sqlUpdateRent = sqlUpdateRent & "'" & .Fields("CUT_NO") & "',"
sqlUpdateRent = sqlUpdateRent & "'" & .Fields("OWNCODE_CUT") & "',"
sqlUpdateRent = sqlUpdateRent & "'" & .Fields("PRINT_Q") & "',"
sqlUpdateRent = sqlUpdateRent & "'" & .Fields("REF_DOC1") & "',"
sqlUpdateRent = sqlUpdateRent & "'" & .Fields("Q_ID") & "',"
sqlUpdateRent = sqlUpdateRent & "'" & Format(.Fields("DATE_IN"), "mm/dd/yyyy hh:mm:ss") & "',"
sqlUpdateRent = sqlUpdateRent & "'" & Format(.Fields("REPORTDATE"), "mm/dd/yyyy") & "',"
sqlUpdateRent = sqlUpdateRent & "'" & .Fields("TRUCK_Chk") & "',"
sqlUpdateRent = sqlUpdateRent & "'" & .Fields("Qtype") & "',"
sqlUpdateRent = sqlUpdateRent & "" & .Fields("GROUPCODE") & ")"

With comRent
.ActiveConnection = Conn1
.CommandType = adCmdText
.CommandText = sqlUpdateRent
.Execute
End With
pgbProcess.Value = pgbProcess.Value + 1
lblPercent.Caption = Int(pgbProcess.Value * 100 / pgbProcess.Max) & "%"
lblPercent.Refresh
.MoveNext
b = b + 1
R = R + 1
Label1.Caption = "จำนวน " & R & " รายการ"
Loop
End If
End With
Conn2.CommitTrans
Unload Me
End Sub
อันนี้เป็น VB.6 แต่อยากได้โค๊ดแบบนี้ใน VB.net ต้องเขียนประมาณไหนได้ครับแนะนำให้ด้วยน่ะครับ เพิ่งมาศึกษา VB.Net



Tag : .NET, VB.NET







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2022-04-08 10:02:52 By : 2267496246628223 View : 186 Reply : 1
 

 
new project สร้าง UI ให้เหมือนกับของเดิม
แล้ววางโค้ด...สังเกต error แล้วแก้ตามคำแนะนำ






แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2022-04-09 15:03:38 By : 009
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : รบกวนสอบถาม VB.6 แต่อยากได้โค๊ดแบบนี้ใน VB.net ต้องเขียนประมาณไหนได้ครับแนะนำให้ด้วยน่ะครับ เพิ่งมาศึกษา VB.Net
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ 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: Voake, Comcube, รับทำเว็บไซต์ รับเขียนโปรแกรม , pangpond.com , pangpond.co.th , สำนักงานบัญชี.com , รถมือสอง

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