السلام عليكــم ورحمـة الله وبركاتــه ،،
برجاء النظر إلى هذا الموضوع والمساعده
أريد إستخدام هذا الكود فى
صفحة asp
للبحث عن الداتا داخل الداتا بيس
وهذه الصورة من البرنامج المستخدمة فيه الميثود وشغاله تمام
السلام عليكــم ورحمـة الله وبركاتــه ،،
هذا الكود المراد تعديله لأستخدمه فى البحث
Static m As Integer = 0
If TextBox1.Text = Trim("") Then Exit Sub
If RadioButton4.Checked = True Then
ExactSearch()
ElseIf RadioButton5.Checked = True Then
GeneralSearch()
End If
Conn.Open()
Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)
DataAdapter1.Fill(DataSet1, "Table1")
Conn.Close()
TextBox2.DataBindings.Add("Text", DataSet1, "Table1.RMPName")
TextBox3.DataBindings.Add("Text", DataSet1, "Table1.RMPAdd")
TextBox4.DataBindings.Add("Text", DataSet1, "Table1.Mobile")
TextBox5.DataBindings.Add("Text", DataSet1, "Table1.RMSName")
TextBox6.DataBindings.Add("Text", DataSet1, "Table1.GlsDate")
TextBox7.DataBindings.Add("Text", DataSet1, "Table1.RollNum")
TextBox8.DataBindings.Add("Text", DataSet1, "Table1.Karrar")
TextBox9.DataBindings.Add("Text", DataSet1, "Table1.Talab")
TextBox10.DataBindings.Add("Text", DataSet1, "Table1.Elmohamy")
TextBox11.DataBindings.Add("Text", DataSet1, "Table1.Phone")
DataGridView1.DataSource = DataSet1
DataGridView1.DataMember = "Table1"
Button1.Enabled = False
If Me.BindingContext(DataSet1, "Table1").Count = 0 Then
MsgBox("لايوجد, حاول البحث مرة أخرى ")
Me.Close()
Exit Sub
End If
Button2.Enabled = True
Button3.Enabled = True
End Sub
Public Sub ExactSearch()
If RadioButton1.Checked = True Then
SQLstr = "SELECT * FROM Table1 WHERE RMPName = '" & TextBox1.Text & "'"
ElseIf RadioButton2.Checked = True Then
SQLstr = "SELECT * FROM Table1 WHERE RMPAdd = '" & TextBox1.Text & "'"
ElseIf RadioButton3.Checked = True Then
SQLstr = "SELECT * FROM Table1 WHERE Mobile = '" & TextBox1.Text & "'"
ElseIf RadioButton6.Checked = True Then
SQLstr = "SELECT * FROM Table1 WHERE RNo = '" & TextBox1.Text & "'"
ElseIf RadioButton7.Checked = True Then
SQLstr = "SELECT * FROM Table1 WHERE Elmohamy = '" & TextBox1.Text & "'"
ElseIf RadioButton8.Checked = True Then
SQLstr = "SELECT * FROM Table1 WHERE RM = '" & TextBox1.Text & "'"
End If
End Sub
Public Sub GeneralSearch()
If RadioButton1.Checked = True Then
SQLstr = "SELECT * FROM Table1 WHERE RMPName LIKE '%" & TextBox1.Text & "%'"
ElseIf RadioButton2.Checked = True Then
SQLstr = "SELECT * FROM Table1 WHERE RMPAdd LIKE '%" & TextBox1.Text & "%'"
ElseIf RadioButton3.Checked = True Then
SQLstr = "SELECT * FROM Table1 WHERE Mobile LIKE '%" & TextBox1.Text & "%'"
ElseIf RadioButton6.Checked = True Then
SQLstr = "SELECT * FROM Table1 WHERE RNo LIKE '%" & TextBox1.Text & "%'"
ElseIf RadioButton7.Checked = True Then
SQLstr = "SELECT * FROM Table1 WHERE Elmohamy LIKE '%" & TextBox1.Text & "%'"
ElseIf RadioButton8.Checked = True Then
SQLstr = "SELECT * FROM Table1 WHERE RM LIKE '%" & TextBox1.Text & "%'"
End If
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim NewMDIChild As New Form1()
NewMDIChild.MdiParent = MDIParent2
NewMDIChild.Show()
Me.Close()
End Sub
Private Sub Button6_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button6.MouseMove
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If MsgBox("هل تريد حذف السجل الحالي", MsgBoxStyle.OkCancel) = MsgBoxResult.Cancel Then
Exit Sub
End If
Dim SavInto As New OleDb.OleDbCommand
Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)
SavInto.Connection = Conn
SavInto.CommandType = CommandType.Text
SavInto.CommandText = "DELETE FROM Table1 WHERE Phone ='" & Trim(TextBox11.Text) & "'"
Conn.Open()
SavInto.ExecuteNonQuery()
DataSet1.Clear()
DataAdapter1.Fill(DataSet1, "Table1")
Conn.Close()
MsgBox("تمت عملية الحذف في قاعدة البيانات بنجاح")
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Button4.Enabled = True
Button5.Enabled = True
Button3.Enabled = False
Button2.Enabled = False
TextBox2.ReadOnly = False
TextBox3.ReadOnly = False
TextBox4.ReadOnly = False
TextBox5.ReadOnly = False
TextBox6.ReadOnly = False
TextBox7.ReadOnly = False
TextBox8.ReadOnly = False
TextBox9.ReadOnly = False
TextBox10.ReadOnly = False
TextBox11.ReadOnly = False
m = TextBox9.Text
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim SavInto As New OleDb.OleDbCommand
Dim adapter2 As New OleDbDataAdapter(SQLstr, Conn)
SavInto.Connection = Conn
SavInto.CommandType = CommandType.Text
SavInto.CommandText = "UPDATE Table1 SET RMPName = '" & Trim(TextBox2.Text) & "' , RMPAdd SA إسم الموكل= '" & Trim(TextBox3.Text) & "' , Mobile= '" & Trim(TextBox4.Text) & "' , RMSName = '" & Trim(TextBox5.Text) & "' , GlsDate = '" & Trim(TextBox6.Text) & "' , RollNum = '" & Trim(TextBox7.Text) & "' , Karrar = '" & Trim(TextBox8.Text) & "' , Talab = '" & Trim(TextBox9.Text) & "' , Elmohamy = '" & Trim(TextBox10.Text) & "' , Phone = '" & Trim(TextBox11.Text) & "' WHERE Mobile ='" & m & "'"
Conn.Open()
SavInto.ExecuteNonQuery()
Conn.Close()
Button4.Enabled = False
Button5.Enabled = False
Button3.Enabled = True
Button2.Enabled = True
TextBox2.ReadOnly = True
TextBox3.ReadOnly = True
TextBox4.ReadOnly = True
TextBox5.ReadOnly = True
TextBox6.ReadOnly = True
TextBox7.ReadOnly = True
TextBox8.ReadOnly = True
TextBox9.ReadOnly = True
TextBox10.ReadOnly = True
TextBox11.ReadOnly = True
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Button4.Enabled = False
Button5.Enabled = False
Button3.Enabled = True
Button2.Enabled = True
TextBox2.ReadOnly = True
TextBox3.ReadOnly = True
TextBox4.ReadOnly = True
TextBox5.ReadOnly = True
TextBox6.ReadOnly = True
TextBox7.ReadOnly = True
TextBox8.ReadOnly = True
TextBox9.ReadOnly = True
TextBox10.ReadOnly = True
TextBox11.ReadOnly = True
End Sub
Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
End Sub
Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter
End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
End Sub
End Class
السلام عليكــم ورحمـة الله وبركاتــه ،،
نست أبلغكوا أن الداتا بيس المستخدمة فى البرنامج أكسس
واللى مستخدمة فى الويب سيكوال سيرفر 2005