15-10-18, 03:18 AM
(آخر تعديل لهذه المشاركة : 17-10-18, 06:20 AM {2} بواسطة asemshahen5.)
كود :
Dim StrSql As String="Select * From TableName Where ColumnName ='"& Txt_ColumnName.Text &"'"
'أو هذا
Dim StrSql As String="Select * From TableName Where ColumnName Like '%"& Txt_ColumnName.Text &"%'"
Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=DB0.mdb;User Id=admin;Password=;")
Dim da As New OleDb.OleDbDataAdapter(StrSQL, cn)
Dim dt As New DataTable
dt.Clear()
da.Fill(dt)سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر
