18-10-18, 08:56 PM
(آخر تعديل لهذه المشاركة : 18-10-18, 08:58 PM {2} بواسطة asemshahen5.)
كود :
Dim StrSQL as string = "Select * From Table_Name Where Column_Name Like '%" & Cmbsearch.Text & "%'"
Dim cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\NamsXT.mdb;User Id=admin;Password=;")
Dim da As New OleDbDataAdapter(StrSQL, cn)
Dim dt As New DataSet
da.Fill(dt,"Table_Name")
Dgv_Table.DataSource = dt.Tables("Table_Name")سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر