+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : رجاء التعديل على الكود المرفق - كلاس لعرض كود المورد (/showthread.php?tid=47306)
رجاء التعديل على الكود المرفق - كلاس لعرض كود المورد - new_programer - 12-10-23
السلام عليكم
اريد كتابة الكود فى موديول لاستخدامة فى كامل المشروع :
PHP كود :
Public Sub Get_Data_Code()
Dim cmd As New SqlCommand("select VindorID from VindorsTbl where VindorName=@Vindor", conn)
cmd.Parameters.Add("@Vindor", SqlDbType.Int).Value = txtName.Text
If conn.State = ConnectionState.Closed Then conn.Open()
Dim drSrch As SqlDataReader = cmd.ExecuteReader
drSrch.Read()
If drSrch.HasRows Then
txtVindorID.Text = drSrch(0)
drSrch.Close()
conn.Close()
Else
MsgBox(" الكود غير موجود", MsgBoxStyle.Exclamation, "خطاء لا يوجدالبيانات")
drSrch.Close()
conn.Close()
End If
drSrch.Close()
conn.Close()
Exit Sub
End Sub
RE: رجاء التعديل على الكود المرفق - كلاس لعرض كود المورد - Taha Okla - 12-10-23
وعليكم السلام ورحمة الله وبركاته
أكتب كود فعلي لاستخراج رقم المورد بعد معرفه اسمه وارفعه
وسيقوم الشباب بالتعديل عليه وجعله كود عام ..
RE: رجاء التعديل على الكود المرفق - كلاس لعرض كود المورد - new_programer - 12-10-23
تم تحديث الموضوع
RE: رجاء التعديل على الكود المرفق - كلاس لعرض كود المورد - Taha Okla - 12-10-23
إن كان الكود المطلوب من حقل واحد من نفس الجدول على طول المشروع
يكفي أن تكتب الكود التالي :
كود :
Public Function Get_Data_Code(SupName As String) As String
Dim cmd As New SqlCommand("select VindorID from VindorsTbl where VindorName=@Vindor", Conn)
cmd.Parameters.Add("@Vindor", SqlDbType.Int).Value = SupName 'txtName.Text
If Conn.State = ConnectionState.Closed Then Conn.Open()
Dim drSrch As SqlDataReader = cmd.ExecuteReader
drSrch.Read()
Dim IDn As String
If drSrch.HasRows Then
IDn = drSrch(0) ' txtVindorID.Text = drSrch(0)
Else
IDn = "0"
' MsgBox(" الكود غير موجود", MsgBoxStyle.Exclamation, "خطاء لا يوجدالبيانات")
' لا تحتاج للارسالة - إن لم يكن الرقم موجود يعيد الرقم صفر
End If
drSrch.Close()
Conn.Close()
Return IDn
End Functionوالاستدعاء يكون بالكود التالي :
كود :
txtVindorID.Text = Get_Data_Code(txtName.Text)أما إن كان اسم الجدول يختلف من نافذة لأخرى فتحتاج إضافة بارمترات بما يتغير عندك
فإن كان هناك عندك عدة تغييرات
أرفق هنا عدة أكواد مختلفة لنفس المطلوب بإختلاف النوافذ .. لنصنع منها كود مشترك .. يناسب كل النوافذ..
RE: رجاء التعديل على الكود المرفق - كلاس لعرض كود المورد - new_programer - 13-10-23
PHP كود :
Public Function Get_Data_Code2(ByVal SupName As String, ByVal TableName As String, ByVal ColumnName As String, ByVal ColumnName2 As String)
Dim cmd As New SqlCommand("select " & ColumnName & " from " & TableName & " where " & ColumnName2 & "=@SupName", conn)
cmd.Parameters.Add("@SupName", SqlDbType.VarChar).Value = SupName 'txtName.Text
If conn.State = ConnectionState.Closed Then conn.Open()
Dim drSrch As SqlDataReader = cmd.ExecuteReader
drSrch.Read()
Dim IDn As String
If drSrch.HasRows Then
IDn = drSrch(0) ' txtVindorID.Text = drSrch(0)
Else
IDn = "0"
' MsgBox(" الكود غير موجود", MsgBoxStyle.Exclamation, "خطاء لا يوجدالبيانات")
' لا تحتاج للارسالة - إن لم يكن الرقم موجود يعيد الرقم صفر
End If
drSrch.Close()
conn.Close()
Return IDn
End Function
كود الاستدعاء
PHP كود :
'txtDrawerID.Text = Get_Data_Code2(txtDrawer.Text, "DrawerTbl", "DrawerID", "DrawerName")
اشكرك جدا اخى الكريم : Taha Okla
الكود يعمل وتم التعديل علية للعمل دون تقيد مع بيانات ثابتة
اشكرا مرة اخري Taha Okla
ربنا يجعلة فى ميزان حسناتك ويذيدك علم