 |
|
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
|
|
|
 |
 |
 |
 |
| Date :
2022-04-08 10:02:52 |
By :
2267496246628223 |
View :
568 |
Reply :
1 |
|
 |
 |
 |
 |
|
|
|
|
 |
