02-10-13, 05:10 PM
(آخر تعديل لهذه المشاركة : 02-10-13, 05:23 PM {2} بواسطة @@أبورائد@@.)
السلام عليكم ورحمة الله وبركاته
عندي طريقة أستخدمتها قديماً، أرجو أن تفيدكم (لاحظوا: توجد مسافة موجود في نهاية كل جملة نصية)
السلام عليكم ورحمة الله وبركاته
عندي طريقة أستخدمتها قديماً، أرجو أن تفيدكم (لاحظوا: توجد مسافة موجود في نهاية كل جملة نصية)
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sql As String = "SELECT * FROM [table1] "
Dim where As String = ""
If Me.txtName1.Text.Trim <> "" Then where &= "AND [name1] = @name1 "
If Me.txtName2.Text.Trim <> "" Then where &= "AND [name2] = @name2 "
If Me.txtName3.Text.Trim <> "" Then where &= "AND [name3] = @name3 "
If where <> "" Then sql &= "WHERE " & where.Substring(4)
Dim comm As New OleDb.OleDbCommand(sql, conn)
If Me.txtName1.Text.Trim <> "" Then comm.Parameters.AddWithValue("@name1", Me.txtName1.Text.Trim)
If Me.txtName2.Text.Trim <> "" Then comm.Parameters.AddWithValue("@name2", Me.txtName2.Text.Trim)
If Me.txtName3.Text.Trim <> "" Then comm.Parameters.AddWithValue("@name3", Me.txtName3.Text.Trim)
MsgBox(sql)
Dim dt As New DataTable
Dim da As New OleDb.OleDbDataAdapter(comm)
If da.Fill(dt) > 0 Then
'
'
'
End If
End Subالسلام عليكم ورحمة الله وبركاته
