12-10-23, 04:24 PM
(آخر تعديل لهذه المشاركة : 12-10-23, 06:48 PM {2} بواسطة new_programer.)
السلام عليكم
اريد كتابة الكود فى موديول لاستخدامة فى كامل المشروع :
اريد كتابة الكود فى موديول لاستخدامة فى كامل المشروع :
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