تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كيف احول الكود الى دوت نت
#1
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

شكرااااا
الرد }}}}
تم الشكر بواسطة:
#2
أضن ان من الامثل تتبع الكود واستبدال الداله بداله سيكون افضل لك .. لاني تغير كود كامل في غايه الصعوبه ..! والعفو



[صورة مرفقة: g5qidgW.jpg]

ســبحــانك الـلهم بـحمدك , الـلهم لا عــلم لـنا الى مــأ علــمتــنا , الـلهـم علــمنـا ما جــهلـنا وانــفـعنــا بــما عــلمــتنـا انــك انـتَ الـسـميع الــعلــيم الـحكـيم ~~!I!

الرد }}}}
تم الشكر بواسطة: المبرمج الطـــموح
#3
رايي ان الاهم هي الفكرة .. ماهي؟
وياليت يتم تصوير الفورم لكي يتم تطبيق مثال
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: المبرمج الطـــموح
#4

.rar   Test_Batch.rar (الحجم : 198.33 ك ب / التحميلات : 59)
.rar   Test_Batch.rar (الحجم : 198.33 ك ب / التحميلات : 59)
.rar   Test_Batch.rar (الحجم : 198.33 ك ب / التحميلات : 59)
.rar   Test_Batch.rar (الحجم : 198.33 ك ب / التحميلات : 59)
.rar   Test_Batch.rar (الحجم : 198.33 ك ب / التحميلات : 59)
.rar   Test_Batch.rar (الحجم : 198.33 ك ب / التحميلات : 59)
.rar   Test_Batch.rar (الحجم : 198.33 ك ب / التحميلات : 59)
.rar   Test_Batch.rar (الحجم : 198.33 ك ب / التحميلات : 59)
.rar   Test_Batch.rar (الحجم : 198.33 ك ب / التحميلات : 59) شكرا على الاهتمام

طريقة الكود هى

عندى صنف موجود فى اكثر من حقل  بشرط المجموعة  اما ان تكون st او gr او fn

ابحث عن قبمة الصنف بشرط الاسم والمجموعة  وبين تارخين

تظهر القيم الصتف على حسب المجموعات السابقة

بمعنى عندى ذورة  قمتة فى مجموعة st  = 100
بمعنى عندى ذورة  قمتة فى مجموعة gr = 77
بمعنى عندى ذورة  قمتة فى مجموعة  fn=78

اى قيمة الذورة فى كل مجموعة   السابقة  

ساحاول رفع المثال  مع قاعدة بينات اكسيس
الرد }}}}
تم الشكر بواسطة:
#5
ارجوا الرد
الرد }}}}
تم الشكر بواسطة:
#6
'طريقة البحث عن صنف منغير فى كل جدول
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

دة الطريقة للافادة الحمد للة
شكراا
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طلب مساعدة لكتابة الكود بشكل صحيح moftah70 1 221 12-07-16, 07:52 PM
آخر رد: aliday03
  [سؤال] كيف افتح الاتصال باستخدام هذا الكود سعود 2 360 12-07-16, 06:23 PM
آخر رد: aliday03
  احتاج مساعدة بتعديل كود نسخ احتياطي قاعدة أكيسس ابي احول نسخ اتوماتيكي رهف العريفي 4 307 03-06-16, 07:50 AM
آخر رد: رهف العريفي
  اريد استبدال الكود المرفق بكود ابسط على ان يعطي نفس النتيجة ledoledo 1 167 02-02-16, 07:07 PM
آخر رد: ledoledo
  [VB.NET] عرض الكود بار djelloul 2 205 15-01-16, 11:39 PM
آخر رد: djelloul
  [سؤال] طريقة الاتصال بقاعدة البيانات هل يمكن تعديل الكود elhon.tec 3 1,014 27-05-15, 02:53 AM
آخر رد: mbk2006
  [سؤال] ارجو المساعدة فى هذا الكود عاجل abdala 5 875 07-12-14, 03:48 AM
آخر رد: الوليد ☺
Sad [سؤال] ربط قاعدة بينات الاكسس بالفجوال عن طريق الكود عمار العيثاوي 2 655 07-05-14, 10:51 PM
آخر رد: عمار العيثاوي
  انشاء قاعدة بيانات SQL عن طريق الكود aiman 5 1,369 07-12-13, 04:11 PM
آخر رد: aiman
  انشاء قاعدة بيانات SQL مع الجداول بواسط الكود aiman 0 688 07-12-13, 04:09 PM
آخر رد: aiman

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم