31-03-17, 05:43 PM
31-03-17, 05:48 PM
السلام عليكم
أي مشروع تقصد، هل المشروع في الموضوع السابق؟
أي مشروع تقصد، هل المشروع في الموضوع السابق؟
31-03-17, 06:14 PM
(31-03-17, 05:48 PM)مساعدة كتب : [ -> ]السلام عليكم
أي مشروع تقصد، هل المشروع في الموضوع السابق؟
أعتذر منك لم يتم ارفاق المشروع في الموضوع
تم التعديل
31-03-17, 06:51 PM
تفضل التعديل مع إضافة زر لإظهار كافة البيانات مثل قبل البحث
كود :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'CarDataSet.AllCars' table. You can move, or remove it, as needed.
Me.AllCarsTableAdapter.Fill(Me.CarDataSet.AllCars)
'تغيير لغة المفاتيح للعربية
InputLanguage.CurrentInputLanguage = InputLanguage.InstalledInputLanguages.Cast(Of InputLanguage).Where(Function(x) x.Culture.Name.ToLower.StartsWith("ar")).FirstOrDefault()
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
TextBox2.Focus()
TextBox2.SelectAll()
End Sub
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
TextBox3.Focus()
TextBox4.SelectAll()
End Sub
Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
TextBox4.Focus()
TextBox4.SelectAll()
End Sub
Private Sub TextBox4_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress
If (e.KeyChar < "0" Or e.KeyChar > "9") And e.KeyChar <> ControlChars.Back Then e.Handled = True
End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
Dim cars As String = Me.TextBox1.Text & " " & Me.TextBox2.Text & " " & Me.TextBox3.Text & " " & Me.TextBox4.Text
cars = cars.Trim.Replace("ه", "هـ")
AllCarsBindingSource.Filter = "[cars]='" & cars & "'"
TextBox1.Focus()
TextBox1.SelectAll()
End Sub
'زر إضافة لإظهر كافة البيانات
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
AllCarsBindingSource.Filter = ""
End Sub
End Class31-03-17, 07:24 PM
يعجز لساني عن شكرك ، فلك مني صالح الدعاء في يوم هذا الجمعة الكريم
اللهم أسعده و حقق أمانية و أرزقه من واسع فضلك
اللهم أسعده و حقق أمانية و أرزقه من واسع فضلك
31-03-17, 07:27 PM
وهذا حل آخر بالكود ضع الكود في زر البحث لديك وشاهد النتجية
ولكن حل الاستاذ مساعدة جميل لأنه تعامل مع البيانات الموجودة في الذاكرة ،،،
عكسي انا فتحت الداتا بيز وسحبت البيانات منها
كود :
If Button3.Text = "إبــــحــــث" Then
Button3.Text = "لا تبحث"
Dim newcars As String = TextBox1.Text & " " & TextBox2.Text & " " & TextBox3.Text & " " & TextBox4.Text
Dim dp As New OleDb.OleDbDataAdapter("select * from AllCars where Cars = '" & newcars & "'", My.Settings.CarConnectionString)
Dim ds As New DataSet
dp.Fill(ds)
DataGridView1.DataSource = ds.Tables(0)
Else
Button3.Text = "إبــــحــــث"
'إرجاع البيانات كاملة
DataGridView1.DataSource = AllCarsBindingSource
End Ifولكن حل الاستاذ مساعدة جميل لأنه تعامل مع البيانات الموجودة في الذاكرة ،،،
عكسي انا فتحت الداتا بيز وسحبت البيانات منها
31-03-17, 08:16 PM
جزاكم الله خير أستاذ أبووسم وأستاذ حريف برمجة
31-03-17, 08:25 PM
(31-03-17, 08:16 PM)مساعدة كتب : [ -> ]جزاكم الله خير أستاذ أبووسم وأستاذ حريف برمجة
وياك ومن تحب .
03-04-17, 01:52 PM
(31-03-17, 08:25 PM)حريف برمجة كتب : [ -> ](31-03-17, 08:16 PM)مساعدة كتب : [ -> ]جزاكم الله خير أستاذ أبووسم وأستاذ حريف برمجة
وياك ومن تحب .
كـعـادتــك دائماً حريص و متألق في الردود على الاعضاء ، جزاك الله خير وكثر من أمثالك
03-04-17, 03:11 PM
If Not IsNumeric(TextBox1.Text) Then
MsgBox("ارجو ادخال رقم التسجيل")
Exit Sub
End If
sql = "select ( n,n1,n2,......Nn)or (*) from Table Name where The primary key field=" & TextBox1.Text
DataAdapter.SelectCommand = New SqlCommand(sql, connection)
DataSet.Clear()
DataAdapter.Fill(DataSet, " Table Name")
If (DataSet.Tables(" Table Name").Rows.Count = 0) Then
MsgBox("الكتاب غير موجود")
Exit Sub
End If
''''''''''''''''''
DataSet.Clear()
DataGridView1.DataSource = DataSet
DataGridView1.DataMember = " Table Name"
MsgBox("ارجو ادخال رقم التسجيل")
Exit Sub
End If
sql = "select ( n,n1,n2,......Nn)or (*) from Table Name where The primary key field=" & TextBox1.Text
DataAdapter.SelectCommand = New SqlCommand(sql, connection)
DataSet.Clear()
DataAdapter.Fill(DataSet, " Table Name")
If (DataSet.Tables(" Table Name").Rows.Count = 0) Then
MsgBox("الكتاب غير موجود")
Exit Sub
End If
''''''''''''''''''
DataSet.Clear()
DataGridView1.DataSource = DataSet
DataGridView1.DataMember = " Table Name"