30-11-14, 12:04 AM
كرا على الكود ولكن انا اريد ان ابحس باسم الخامة فى جميع الجدول
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
انا حولت الكود الى الدالة دة ولكن الدالة تبحث على اسم الخامة فى عمود واحد وانا اريد ان تبحث عن اسم الخامة فى الجدول كلة
انا اعمل الان على فجول بيسك دوت نت واردد تحويل الدود على داتا جريد فى الدوت نت
شكر
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
انا حولت الكود الى الدالة دة ولكن الدالة تبحث على اسم الخامة فى عمود واحد وانا اريد ان تبحث عن اسم الخامة فى الجدول كلة
انا اعمل الان على فجول بيسك دوت نت واردد تحويل الدود على داتا جريد فى الدوت نت
شكر