+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : [سؤال] ارجو المساعدة فى هذا الكود عاجل (/showthread.php?tid=10826)
ارجو المساعدة فى هذا الكود عاجل - abdala - 30-11-14
كرا على الكود ولكن انا اريد ان ابحس باسم الخامة فى جميع الجدول
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
انا حولت الكود الى الدالة دة ولكن الدالة تبحث على اسم الخامة فى عمود واحد وانا اريد ان تبحث عن اسم الخامة فى الجدول كلة
انا اعمل الان على فجول بيسك دوت نت واردد تحويل الدود على داتا جريد فى الدوت نت
شكر
RE: ارجو المساعدة فى هذا الكود عاجل - abdala - 01-12-14
ارجوووووووووووو الرد
RE: ارجو المساعدة فى هذا الكود عاجل - Abu Ehab - 02-12-14
هذا الكود تابع لغة بيسك 6 وأنت موجود في قسم الدوت نت ..
RE: ارجو المساعدة فى هذا الكود عاجل - abdala - 02-12-14
نعم اخى ابو اهاب انا انتقلت الى الدوت نت
واريد تحويل الكود الى الدوت نت
RE: ارجو المساعدة فى هذا الكود عاجل - abdala - 07-12-14
ارجوا الرد
RE: ارجو المساعدة فى هذا الكود عاجل - الوليد ☺ - 07-12-14
السلام عليكم ورحمة الله
شوف أخوي عبدالله
الأسلوب اختلف في الدوت نت إلى أفضل من السابق
الحين تقدر تتصل بقاعدة البيانات وتجلب البيانات وتقرأها بسهولة أكثر
لو اطلعت على المواضيع وردودها ستجد فيها الكثير ومعظمها متشابهة وفيها شرح
الكود نفس ما تريد بثلاث استعلامات من ثلاث جداول وهي متشابهة في الأسلوب
قارن بين هذا الأسلوب والأسلوب القديم لتعرف الفرق وإن شاء الله تمام
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 String, ByVal quantity As String, _
txt As TextBox, text1 As TextBox, text2 As TextBox, text3 As Object, text4 As TextBox)
Dim sqlString1 As String = "SELECT " & quantity & " FROM Tb_ST WHERE " & material_name & " = '" & txt.Text & "' "
Using da As New OleDb.OleDbDataAdapter(sqlString1, connString)
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(sqlString2, connString)
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(sqlString3, connString)
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