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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] المساعدة في نقل سجلات من جدول الى جدول اخر مهندس حيدر 7 275 13-11-16, 02:16 PM
آخر رد: محمود بكرى
Sad [Acces2007] عاجل ارجو المساعدة لدي مشكلة مع برمجة زر البحث في الاكسس saimon 4 117 24-10-16, 07:54 PM
آخر رد: saimon
  [Acces2003] المساعدة في كود لحذف البيانات من الاستعلام محمد خلف زكي 2 143 28-08-16, 11:24 AM
آخر رد: محمد خلف زكي
  طلب مساعدة لكتابة الكود بشكل صحيح moftah70 1 222 12-07-16, 07:52 PM
آخر رد: aliday03
  [سؤال] كيف افتح الاتصال باستخدام هذا الكود سعود 2 360 12-07-16, 06:23 PM
آخر رد: aliday03
  [سؤال] المساعدة في مشروع عن مبيعات صيدلية romy mohamed 3 264 31-05-16, 04:48 PM
آخر رد: محمد كريّم
  ارجو المساعدة محتاج كود برمجي رامي الامير 0 147 01-04-16, 12:11 AM
آخر رد: رامي الامير
  [سؤال] navigator data on winform >>> لاتعمل , اتمنى المساعدة . محمد العكيلي 1 107 11-03-16, 05:25 PM
آخر رد: boudyonline
  اريد استبدال الكود المرفق بكود ابسط على ان يعطي نفس النتيجة ledoledo 1 167 02-02-16, 07:07 PM
آخر رد: ledoledo
  [VB.NET] عرض الكود بار djelloul 2 205 15-01-16, 11:39 PM
آخر رد: djelloul

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


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