تقييم الموضوع :
  • 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 بايت / التحميلات : 44)
الرد }}}
تم الشكر بواسطة:
#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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 0 73 05-03-24, 02:40 PM
آخر رد: مصمم هاوي
  اختصار الكود حسب المثال المرفق abde6726 2 282 29-10-23, 11:00 AM
آخر رد: abde6726
  اختصار الكود حسب المثال المرفق abde6726 0 220 28-10-23, 05:01 PM
آخر رد: abde6726
Question [vb6.0] عندي مشكلة في هذا الكود حيث انه لا يقبل الا رقم فقط اريد ان يقبل الارقام والاحرف ؟ Microformt 1 269 25-10-23, 04:10 PM
آخر رد: Amir_Alzubidy
  (تم التعديل) تعديل كود حذف بيانات طالب مصمم هاوي 3 1,228 12-10-22, 07:36 PM
آخر رد: مصمم هاوي
  تعديل على كود استدعاء بيانات محددة من ثلاث جداول مصمم هاوي 11 5,198 14-09-22, 11:49 PM
آخر رد: رضوان الجماعي
  تعديل ترتيب أرقام الصفحات تصاعدياً مصمم هاوي 3 845 13-07-22, 03:20 AM
آخر رد: مصمم هاوي
  تعديل كود نهى علي 2 760 13-05-22, 12:01 AM
آخر رد: نهى علي
  ممكن البرنامج يبعت رسايل للموبايل عن طريق النت رجل الكهرباء 5 1,568 12-05-22, 12:52 PM
آخر رد: الاصيله
  تعديل على كود المجموع مصمم هاوي 0 752 03-03-22, 08:46 PM
آخر رد: مصمم هاوي

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


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