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

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
انا حولت الكود الى الدالة دة ولكن الدالة تبحث على اسم الخامة فى عمود واحد وانا اريد ان تبحث عن اسم الخامة فى الجدول كلة 


انا اعمل الان على فجول بيسك دوت نت  واردد تحويل الدود على داتا جريد فى الدوت نت 


شكر  
الرد }}}
تم الشكر بواسطة:
#2
ارجوووووووووووو الرد
الرد }}}
تم الشكر بواسطة:
#3
هذا الكود تابع لغة بيسك 6 وأنت موجود في قسم الدوت نت ..
Abu Ehab : Microsoft Partner  & Systems Developer
 Youtube   Facebook    Twitter   
الرد }}}
تم الشكر بواسطة:
#4
نعم اخى ابو اهاب انا انتقلت الى الدوت نت

واريد تحويل الكود الى الدوت نت
الرد }}}
تم الشكر بواسطة:
#5
ارجوا الرد
الرد }}}
تم الشكر بواسطة:
#6


السلام عليكم ورحمة الله

شوف أخوي عبدالله

الأسلوب اختلف في الدوت نت إلى أفضل من السابق

الحين تقدر تتصل بقاعدة البيانات وتجلب البيانات وتقرأها بسهولة أكثر

لو اطلعت على المواضيع وردودها ستجد فيها الكثير ومعظمها متشابهة وفيها شرح

الكود نفس ما تريد بثلاث استعلامات من ثلاث جداول وهي متشابهة في الأسلوب

قارن بين هذا الأسلوب والأسلوب القديم لتعرف الفرق وإن شاء الله تمام
PHP كود :
' mdb إذا ملف الأكسس نوعه '
Dim connString As String "Provider=Microsoft.Jet.OleDb.4.0; Data Source=db1.mdb"

' accdb إذا ملف الأكسس نوعه '
''
Dim connString As String "Provider=Microsoft.Ace.OleDb.12.0; Data Source=database1.accdb"


Public Sub find_material_name(ByVal material_name As StringByVal quantity As String_
                              txt 
As TextBoxtext1 As TextBoxtext2 As TextBoxtext3 As Objecttext4 As TextBox)

    
Dim sqlString1 As String "SELECT " quantity " FROM Tb_ST WHERE " material_name " = '" txt.Text "' "
    
Using da As New OleDb.OleDbDataAdapter(sqlString1connString)
        
Dim dt As New DataTable
        
If da.Fill(dt) > 0 Then
            Dim dr 
As DataRow dt.Rows(0)
            
text1.Text Val(text1.Text) + Val(dr(quantity))
        
End If
    
End Using

    Dim sqlString2 
As String "SELECT " quantity " FROM Tb_GR WHERE " material_name " = '" txt.Text "' "
    
Using da As New OleDb.OleDbDataAdapter(sqlString2connString)
        
Dim dt As New DataTable
        
If da.Fill(dt) > 0 Then
            Dim dr 
As DataRow dt.Rows(0)
            
text2.Text Val(text2.Text) + Val(dr(quantity))
        
End If
    
End Using

    Dim sqlString3 
As String "SELECT " quantity " FROM Tb_FN WHERE " material_name " = '" txt.Text "' "
    
Using da As New OleDb.OleDbDataAdapter(sqlString3connString)
        
Dim dt As New DataTable
        
If da.Fill(dt) > 0 Then
            Dim dr 
As DataRow dt.Rows(0)
            
text3.Text Val(text3.Text) + Val(dr(quantity))
        
End If
    
End Using

    text4
.Text Val(text1.Text) + Val(text2.Text) + Val(text3.Text)

End Sub 


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  الرجاء المساعدة المتألق9 0 348 15-03-23, 09:41 PM
آخر رد: المتألق9
  ارجو الرد بسرعة بنت بنغازي 1 1,078 21-03-22, 06:49 AM
آخر رد: Amir_Alzubidy
  [Acces2010] اريد تعديل الكود للاكسس بسام محمدغانم 0 833 13-10-21, 09:14 PM
آخر رد: بسام محمدغانم
  المرجو المساعدة على توزيع الطلاب وفق شروط محددة fohah 0 974 07-10-20, 12:02 AM
آخر رد: fohah
  [Acces2010] ارجوكم ما هو الخطا فى الكود ؟ abomosaab alagan 1 1,110 16-09-20, 01:25 AM
آخر رد: معاند الحظ
  انشاء قاعدة بيانات SQL مع الجداول بواسط الكود aiman 1 3,943 26-12-19, 03:30 PM
آخر رد: osamaalymaghraby
  [SQL] هل ممكن المساعده في هذا الكود php mysql fadisat 0 1,429 07-08-19, 11:30 PM
آخر رد: fadisat
  أضافة زر إلى الفورم بواسطة الكود djelloul 1 1,871 02-05-19, 01:55 PM
آخر رد: PalmTree
  لعدم وجود رد على سؤالي كتبته هنا بطريقة أوضح ,, ارجو المساعدة ahmed_elwerfalli 1 1,610 28-04-18, 06:09 PM
آخر رد: ahmed_elwerfalli
  [كود] المساعدة في وضع صورة لكل موظف وادي العوضي 3 2,470 23-03-18, 06:34 PM
آخر رد: حيدر العراقي

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


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