تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] ممكن تعديل هذا الكود
#1
                                السلام عليم  

ممكن  تحويل هذا الكود الى دالة تستقبل اسم الخامة  وحجمها   واظهاره  وتخرجلى قيم الخامة على تكس بوكس


Dim DB As Database

'Dim rs1 As Recordset
'
'Set DB = OpenDatabase("union2.2.mdb")
'
'Set rs1 = DB.OpenRecordset("SELECT quantity FROM Nami WHERE material_name = '" + Text2.Text + "'")
'Set rs2 = DB.OpenRecordset("SELECT quantity FROM Badi WHERE material_name = '" + Text2.Text + "'")
'Set rs3 = DB.OpenRecordset("SELECT quantity FROM Nahi WHERE material_name = '" + Text2.Text + "'")
'
'Do While Not rs1.EOF
'If rs1("quantity") <> "" Then
'Text1.Text = Val(Text1.Text) + Val(rs1("quantity"))
'End If
'rs1.MoveNext
'Loop
'
'
'Do While Not rs2.EOF
'If rs2("quantity") <> "" Then
'Text6.Text = Val(Text6.Text) + Val(rs2("quantity"))
'End If
'rs2.MoveNext
'Loop
'
'
'
'Do While Not rs3.EOF
'If rs3("quantity") <> "" Then
'Text7.Text = Val(Text7.Text) + Val(rs3("quantity"))
'End If
'rs3.MoveNext
'Loop

ارجوا الاهتمام
الرد }}}}
تم الشكر بواسطة:
#2
ارجو ان يكون طلبك / ي في الملف المرفق


الملفات المرفقة
.txt   E.E Maher Salama.txt (الحجم : 988 بايت / التحميلات : 14)
الرد }}}}
تم الشكر بواسطة:
#3
شكرا على الكود ولكن انا اريد ان ابحس باسم الخامة فى جميع الجدول
Public Function find_material_name(ByVal material_name As String, ByVal quantity As String, Text As Object, Text1 As Object, Text2 As Object, Text3 As Object, Text4 As Object)

Set rs1 = New ADODB.Recordset
Set rs2 = New ADODB.Recordset
Set rs3 = New ADODB.Recordset


SQL1 = "SELECT " & quantity & " FROM Tb_ST WHERE " & material_name & " = '" + Text + "'"
SQL2 = "SELECT " & quantity & " FROM Tb_GR WHERE " & material_name & " = '" + Text + "'"
SQL3 = "SELECT " & quantity & " FROM Tb_FN WHERE " & material_name & " = '" + Text + "'"



rs1.Open SQL1, db, adOpenDynamic, adLockOptimistic
rs2.Open SQL2, db, adOpenDynamic, adLockOptimistic
rs3.Open SQL3, db, adOpenDynamic, adLockOptimistic



'
Do While Not rs1.EOF
If rs1(quantity) <> "" Then
Text1.Text = Val(Text1.Text) + Val(rs1(quantity))
End If
rs1.MoveNext
Loop
'
rs1.Close
'
Do While Not rs2.EOF
If rs2(quantity) <> "" Then
Text2.Text = Val(Text2.Text) + Val(rs2(quantity))
End If
rs2.MoveNext
Loop
'
rs2.Close
'
Do While Not rs3.EOF
If rs3(quantity) <> "" Then
Text3.Text = Val(Text3.Text) + Val(rs3(quantity))
End If
rs3.MoveNext
Loop
rs3.Close
Text4.Text = Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)




End Function
انا حولت الكود الى الدالة دة ولكن الدالة تبحث على اسم الخامة فى عمود واحد وانا اريد ان تبحث عن اسم الخامة فى الجدول كلة

ارجوا الاهتمام
الرد }}}}
تم الشكر بواسطة:
#4
text1 = GetFromDB1(StrSql1)
text2 = GetFromDB1(StrSql2)
text3 = GetFromDB1(StrSql3)
text4 = val(text1) + val(text2) + Val(text3)
ارجو ان اكون قد فهمت ما تريده صح
ملاحظة:
الاستعلامات المكتوبة تقوم بالبحث عن الكمية في حقل من جدول وليس في كل الجدول وبحسب اسم المادة
الرد }}}}
تم الشكر بواسطة:
#5
في البداية قم بتغيير نوع حقل الكمية الي رقم ثم استخدم هذه الدالة ، قم بتمرير اسم الجدول واسم الخامة للدالة :

كود :
Public Function Get_Qnty(zTableName As String,zItemName As String) As String

Dim DB As Database
Dim RS As Recordset

Set DB = OpenDatabase("union2.2.mdb")

Set RS = DB.OpenRecordset("SELECT SUM(quantity) As zquantity FROM " & Trim$( zTableName) & " Where material_name ='" & Trim$(zItemName) & "' quantity <> ''")

IF RS.RecordCount > 0 Then
     Get_Qnty = RS![zquantity]
Else
     Get_Qnty = "0"
End IF

End Function
الرد }}}}
تم الشكر بواسطة: Amir_alzubidy


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة في تطبيق هذا الكود bidaya 0 34 06-12-16, 04:46 AM
آخر رد: bidaya
  [سؤال] ممكن مساعدة في ايجاد كود او اداة لاظهار جدول في واجهة البرنامج مبرمج جديد 2 107 09-11-16, 03:48 AM
آخر رد: مبرمج جديد
  [vb6.0] الكود باستخدام فيجوال بيسك6 تالين الورفلي 2 95 23-10-16, 10:38 AM
آخر رد: Ashraf Elafify
  [vb6.0] ممكن نسخة فيجوال بيسك 6 كاملة iisys 2 121 03-10-16, 08:30 PM
آخر رد: iisys
  اريد تعديل هذا الكود للبحث لاى كلمه فى النص رجل الكهرباء 2 120 03-10-16, 02:19 AM
آخر رد: رجل الكهرباء
Shocked [مثال] ربط قاعدة بيانات محمية في تقرير كرستال عن طريق الكود ياسر عبد الكريم 2 114 26-09-16, 11:54 PM
آخر رد: ياسر عبد الكريم
  [vb6.0] طلب تعديل على برنامج iisys 21 602 23-09-16, 03:03 PM
آخر رد: iisys
  تعديل على كود استدعاء بيانات محددة من ثلاث جداول مصمم هاوي 10 291 16-09-16, 08:33 PM
آخر رد: Amir_alzubidy
  الاخوة الكرام نرجو المساعدة فى تعديل المرفق gadr 13 421 21-08-16, 04:50 PM
آخر رد: gadr
  [سؤال] ما هو الخطاء في هذا الكود allobaed 4 146 11-08-16, 06:04 PM
آخر رد: allobaed

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


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