08-03-15, 12:33 AM
(آخر تعديل لهذه المشاركة : 08-03-15, 12:36 AM {2} بواسطة abdala.
تعديل السبب: التوضيح
)
Public Sub find_material(ByVal TankName As String, ByVal MixWeight As String, ByRef txt_TankName As String, ByRef Text1 As Integer, ByRef Text2 As Integer, ByRef Text3 As Integer, ByRef Text4 As String)
Dim SQL1, SQL2, SQL3 As String
Dim date1, date2 As String
date1 = Me.DTPicker1.Value
date2 = Me.DTPicker2.Value
SQL1 = String.Format("SELECT {0} FROM Report_Data WHERE {1} = '{2}' AND [group] like '{3}' AND [mix_date] between '{4}' and '{5}' ", MixWeight, TankName, txt_TankName, "ST", date1, date2)
SQL2 = String.Format("SELECT {0} FROM Report_Data WHERE {1} = '{2}' AND [group] like '{3}' AND [mix_date] between '{4}' and '{5}'", MixWeight, TankName, txt_TankName, "GR", date1, date2)
SQL3 = String.Format("SELECT {0} FROM Report_Data WHERE {1} = '{2}' AND [group] like '{3}' AND [mix_date] between '{4}' and '{5}'", MixWeight, TankName, txt_TankName, "FN", date1, date2)
rs1 = New ADODB.Recordset
rs2 = New ADODB.Recordset
rs3 = New ADODB.Recordset
rs1.Open(SQL1, db, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockBatchOptimistic, 1)
rs2.Open(SQL2, db, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockBatchOptimistic, 1)
rs3.Open(SQL3, db, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockBatchOptimistic, 1)
'rs1.Open(SQL1, db, CursorTypeEnum.adOpenDynamic, LockTypeEnum.adLockOptimistic)
'rs2.Open(SQL2, db, CursorTypeEnum.adOpenDynamic, LockTypeEnum.adLockOptimistic)
'rs3.Open(SQL3, db, CursorTypeEnum.adOpenDynamic, LockTypeEnum.adLockOptimistic)
Do While Not rs1.EOF
If rs1.Fields(MixWeight).Value <> "0" Then
Text1 = Val(Text1) + Val(rs1.Fields(MixWeight).Value)
End If
rs1.MoveNext()
Loop
rs1.Close()
Do While Not rs2.EOF
If rs2.Fields(MixWeight).Value <> "0" Then
Text2 = Val(Text2) + Val(rs2.Fields(MixWeight).Value)
End If
rs2.MoveNext()
Loop
rs2.Close()
Do While Not rs3.EOF
If rs3.Fields(MixWeight).Value <> "0" Then
Text3 = Val(Text3) + Val(rs3.Fields(MixWeight).Value)
End If
rs3.MoveNext()
Loop
rs3.Close()
Text4 = Val(Text1) + Val(Text2) + Val(Text3)
End Sub
هذة الدالة تعمل بADODB
كيف احولها الى data tabal هى التى تستقبل القيم واعرضها فى textboxs
اى استخدم system.data.sql بدلا من ADODB
شكرااااا