بسم الله الرحمن الرحيم
أول بحب أشكرك على هذا المجهود الكبير الذي تقدمونه في هذا المنتدى للمساعدة , أودعو الله أن يجعله في ميزان حسناتكم
أنه بجهز بمشروع تخرج باستخدام لغة vb.net 2007
وعملت اتصال بقاعدة بيانات اكسس ولكن وجدت بعض المشاكل في كل مما يلي :-
1- ايد أن اتأكد في حالة اضافة موظف عد وجدود رقم موظف متشابه حيث أنني أعرف جملة sql الازمة لكن لا أعرف كيف أضع الشرط
2-اريد عم بحث أكثر من مرة حيث الكود الذ أستخدمه هو
Public Class sarech
Dim constr As String = "Provider=MIcrosoft.jet.OLEDB.4.0;" & "Data Source=" & Application.StartupPath & "\MyData.mdb"
Dim conn As New OleDbConnection(constr)
Dim dataset1 As New DataSet
Dim sqls As String
Dim m As String
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Static m As Integer = 0
If TextBox1.Text = Trim("") Then
MsgBox(" éں ïي ¤§ ïںëں¢ éé ¥£ ")
Exit Sub
ElseIf RadioButton3.Checked = True Then
exactsearch()
ElseIf RadioButton4.Checked = True Then
generalsearch()
End If
conn.Open()
dataset1.Clear()
Dim dataapater1 As New OleDbDataAdapter(sqls, conn)
dataapater1.Fill(dataset1, "emp")
conn.Close()
TextBox2.DataBindings.Add("Text", dataset1, "emp.nameemp")
TextBox3.DataBindings.Add("Text", dataset1, "emp.idemp")
TextBox4.DataBindings.Add("Text", dataset1, "emp.idpassport")
DataGridView1.DataSource = dataset1
DataGridView1.DataMember = "emp"
If Me.BindingContext(dataset1, "emp").Count = 0 Then
MsgBox(" éںïي¤§ «¤éں¢ ")
Exit Sub
End If
End Sub
Public Sub exactsearch()
If RadioButton1.Checked Then
sqls = "SELECT * FROM emp WHERE nameemp= '" & TextBox1.Text & "' "
ElseIf RadioButton2.Checked Then
sqls = " SELECT * FROM emp WHERE idpassport= '" & TextBox1.Text & "' "
End If
End Sub
Public Sub generalsearch()
If RadioButton1.Checked Then
sqls = "SELECT * FROM emp WHERE nameemp LIKE '%" & TextBox1.Text & "' "
ElseIf RadioButton2.Checked Then
sqls = " SELECT * FROM emp WHERE idpassport LIKE '%" & TextBox1.Text & "' "
End If
End Sub
وجزاكم الله كل خير