30-10-15, 01:29 AM
السلام عليكم ورحمة الله وبركاتة
ه
ياأخوان أنا مبتداء في البرمجة ومازلت في بداية الطريق تابعت كثير من الدروس عبر اليوتيوب وعبر هذا المنتدى االرائع وأسأل الله لي ولكم التوفيق
واجهتني مشكلة في كود البحث وأنا من اربع ايام في محاولات مستمرة لحلها ولكن بلى فائدة تظهرلي رسالة خطئ كمافي الصورة
وهذا الفورم بالكامل
أرجو أن أجد الحل لديكم
وشكراً لكم
ه
ياأخوان أنا مبتداء في البرمجة ومازلت في بداية الطريق تابعت كثير من الدروس عبر اليوتيوب وعبر هذا المنتدى االرائع وأسأل الله لي ولكم التوفيق
واجهتني مشكلة في كود البحث وأنا من اربع ايام في محاولات مستمرة لحلها ولكن بلى فائدة تظهرلي رسالة خطئ كمافي الصورة
كود :
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
zarsw.Clear()
Dim cmd As New OleDbCommand("slect * from zarsw where like@[الاسم]", co)
cmd.Parameters.Add("@[الاسم]", OleDbType.VarChar).Value = "%" & TextBox20.Text.Trim & "%"
dazarsw = New OleDbDataAdapter(cmd)
dazarsw.Fill(zarsw)
DataGridView1.DataSource = zarsw
End Sub
End Class
وهذا الفورم بالكامل
كود :
Imports System.Data
Imports System.Data.OleDb
Public Class Form2
Dim co As New OleDbConnection
Dim dazarsw As New OleDbDataAdapter
Dim zarsw As New DataTable
Private Sub GroupBox1_Enter(sender As Object, e As EventArgs) Handles GroupBox1.Enter
End Sub
Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
End Sub
Private Sub GroupBox2_Enter(sender As Object, e As EventArgs) Handles GroupBox2.Enter
End Sub
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
co.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=swcc.accdb;Jet OleDb:Database Password =vah[ldglvdlphl];"
co.Open()
dazarsw = New OleDbDataAdapter("select * from zarsw", co)
dazarsw.Fill(zarsw)
DataGridView1.DataSource = zarsw
End Sub
Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
End Sub
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
zarsw.Clear()
Dim cmd As New OleDbCommand("slect * from zarsw where like@[الاسم]", co)
cmd.Parameters.Add("@[الاسم]", OleDbType.VarChar).Value = "%" & TextBox20.Text.Trim & "%"
dazarsw = New OleDbDataAdapter(cmd)
dazarsw.Fill(zarsw)
DataGridView1.DataSource = zarsw
End Sub
End Class
أرجو أن أجد الحل لديكم
وشكراً لكم
اللهم يا ارحم الراحمين ارحم اخي اباليث رحمة واسعة