12-12-15, 04:22 PM
'التحقق من اسم الصنف
Dim sqlstr As String = "Select nameitem From items Where nameitem=@nameitem"
Dim cmd As New OleDb.OleDbCommand(sqlstr, con)
cmd.Parameters.AddWithValue("@nameitem", TextBox3.Text)
If con.State = ConnectionState.Closed Then con.Open()
dr = cmd.ExecuteReader
If dr.HasRows Then
MsgBox("الإسم موجود مسبقا في قاعدة البيانات")
TextBox3.Focus()
Return
End If
dr.Close()
con.Close()
End If
Dim sqlstr As String = "Select nameitem From items Where nameitem=@nameitem"
Dim cmd As New OleDb.OleDbCommand(sqlstr, con)
cmd.Parameters.AddWithValue("@nameitem", TextBox3.Text)
If con.State = ConnectionState.Closed Then con.Open()
dr = cmd.ExecuteReader
If dr.HasRows Then
MsgBox("الإسم موجود مسبقا في قاعدة البيانات")
TextBox3.Focus()
Return
End If
dr.Close()
con.Close()
End If