+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : [سؤال] كيف احول الكود الى دوت نت (/showthread.php?tid=11628)
كيف احول الكود الى دوت نت - abdala - 08-03-15
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
شكرااااا
RE: كيف احول الكود الى دوت نت - a_almisery - 08-03-15
أضن ان من الامثل تتبع الكود واستبدال الداله بداله سيكون افضل لك .. لاني تغير كود كامل في غايه الصعوبه ..! والعفو
RE: كيف احول الكود الى دوت نت - سعود - 08-03-15
رايي ان الاهم هي الفكرة .. ماهي؟
وياليت يتم تصوير الفورم لكي يتم تطبيق مثال
RE: كيف احول الكود الى دوت نت - abdala - 08-03-15
[attachment=6735][attachment=6735][attachment=6735][attachment=6735][attachment=6735][attachment=6735][attachment=6735][attachment=6735][attachment=6735]شكرا على الاهتمام
طريقة الكود هى
عندى صنف موجود فى اكثر من حقل بشرط المجموعة اما ان تكون st او gr او fn
ابحث عن قبمة الصنف بشرط الاسم والمجموعة وبين تارخين
تظهر القيم الصتف على حسب المجموعات السابقة
بمعنى عندى ذورة قمتة فى مجموعة st = 100
بمعنى عندى ذورة قمتة فى مجموعة gr = 77
بمعنى عندى ذورة قمتة فى مجموعة fn=78
اى قيمة الذورة فى كل مجموعة السابقة
ساحاول رفع المثال مع قاعدة بينات اكسيس
RE: كيف احول الكود الى دوت نت - abdala - 13-03-15
ارجوا الرد
RE: كيف احول الكود الى دوت نت - abdala - 16-03-15
'طريقة البحث عن صنف منغير فى كل جدول
Public Sub TankName(ByVal TankName As String, ByRef Text1 As Integer, ByRef Text2 As Integer, ByRef Text3 As Integer, ByRef Text4 As Integer)
'
Dim sql, sql2, sql3 As String
'======================================================
Sql = String.Format("SELECT sum( MixWeight) FROM TankNames WHERE (TankName = '{0}') AND (Grop_Type = '{1}')", TankName, "st")
Dim cmd As New OleDb.OleDbCommand(Sql, conn)
conn.Open()
Dim reader As OleDbDataReader = cmd.ExecuteReader()
While reader.Read()
Dim values(reader.FieldCount - 1) As Object
Dim fieldCount As Integer = reader.GetValues(values)
For i As Integer = 0 To fieldCount - 1
If reader.IsDBNull(i) Then
Text1 = 0
Else
Text1 = Val(Text1) + Val(reader.GetValue(i))
End If
Next
End While
reader.NextResult()
reader.Close()
'====================================================
sql2 = String.Format("SELECT sum( MixWeight) FROM TankNames WHERE (TankName = '{0}') AND (Grop_Type = '{1}')", TankName, "gr")
Dim cmd2 As New OleDbCommand(sql2, conn)
Dim reader2 As OleDbDataReader = cmd2.ExecuteReader()
While reader2.Read()
Dim values(reader2.FieldCount - 1) As Object
Dim fieldCount As Integer = reader2.GetValues(values)
For i As Integer = 0 To fieldCount - 1
If reader2.IsDBNull(i) Then
Text2 = 0
Else
Text2 = Val(Text2) + Val(reader2.GetValue(i))
End If
Next
End While
reader2.NextResult()
reader2.Close()
'================================================================
sql3 = String.Format("SELECT sum( MixWeight) FROM TankNames WHERE (TankName = '{0}') AND (Grop_Type = '{1}')", TankName, "fn")
Dim cmd3 As New OleDbCommand(sql3, conn)
Dim reader3 As OleDbDataReader = cmd3.ExecuteReader()
While reader3.Read()
Dim values(reader3.FieldCount - 1) As Object
Dim fieldCount As Integer = reader3.GetValues(values)
For i As Integer = 0 To fieldCount - 1
If reader3.IsDBNull(i) Then
Text3 = 0
Else
Text3 = Val(Text3) + Val(reader3.GetValue(i))
End If
Next
End While
reader3.NextResult()
reader3.Close()
conn.Close()
Text4 = Val(Text1) + Val(Text2) + Val(Text3)
End Sub
دة الطريقة للافادة الحمد للة
شكراا