تقييم الموضوع :
  • 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 


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] المساعدة - بجملة استعلام بين عدة جداول safalo 3 131 14-08-17, 02:06 AM
آخر رد: safalo
  [كود] المساعدة في وضع صورة لكل موظف وادي العوضي 0 110 15-07-17, 11:59 AM
آخر رد: وادي العوضي
  [كود] المساعدة في كود بحث برقم التسلسل اذا كان الرقم غير موجود داخل قاعدة بيانات تخرج رسالة وادي العوضي 3 185 14-07-17, 09:43 AM
آخر رد: وادي العوضي
  [كود] المساعدة في معرفة اين الخطأ في كود الاضافة لصورة موظف وادي العوضي 2 127 11-07-17, 05:56 PM
آخر رد: وادي العوضي
  تعديل كود فاتورة مبيعات بلغة #C أرجو المساعدة أبو راشد عبدالوهاب 5 232 11-07-17, 12:56 AM
آخر رد: أبو راشد عبدالوهاب
  المساعدة في طريقة تحويل اسماء حقول الداتا كريد فيو الى العربية وادي العوضي 7 228 08-07-17, 03:07 PM
آخر رد: وادي العوضي
  [سؤال] ما هو الخطأ فى هذا الكود احمد عبد الحكيم 1 124 07-07-17, 01:12 AM
آخر رد: silverlight
  عاجل لو سمحتم djelloul 8 252 20-04-17, 10:37 PM
آخر رد: djelloul
  المساعدة في عمل استعلام قاعدة بيانات sqlserver djelloul 0 198 17-04-17, 07:13 PM
آخر رد: djelloul
  طلب المساعدة عاجلة لو سمحتم djelloul 8 335 05-04-17, 12:48 AM
آخر رد: Abu Ehab

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


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