![]() |
|
اريد كود للبحث التلقائي في DataGridView - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182) +--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183) +--- الموضوع : اريد كود للبحث التلقائي في DataGridView (/showthread.php?tid=22559) الصفحات:
1
2
|
RE: اريد كود للبحث التلقائي في DataGridView - ahmedbezia - 16-11-17 السلام عليكم يا اخوان ان لحد الان لم اجد الحل
ارجو من احد الاخو انوايمر ويعمل تعديل علي هد المثال المرفق
id ويكون البحث ضمن حقل
[b][attachment=16143][attachment=16143][/b]
(15-11-17, 08:25 PM)Rabeea Qbaha كتب : صديقي المثال شغال 100% و انا قمت بعمله قبل عده ايام لشخص هنا بالمنتدى السلام عليكم يا اخي ان لحد الان لم اجد الحل
ارجو منك تعديل علي هد المثال المرفق
id ويكون البحث ضمن حقل
[b]
WindowsApplication2.rar (الحجم : 153.33 ك ب / التحميلات : 0) WindowsApplication2.rar (الحجم : 153.33 ك ب / التحميلات : 0) [/b]RE: اريد كود للبحث التلقائي في DataGridView - a.ahmed - 16-11-17 (16-11-17, 01:13 PM)ahmedbezia كتب : لان Target CPU: x86 عندي لايضه اختيارات < Tools < Options < Project and Solutions < General Show advanced build configuration: Checked WindowsApplication2.vbproj PHP كود : <?xml version="1.0" encoding="utf-8"?>RE: اريد كود للبحث التلقائي في DataGridView - tryold - 16-11-17 تفضل اخي هذا المثال RE: اريد كود للبحث التلقائي في DataGridView - Rabeea Qbaha - 16-11-17 قمت بعمل المثال وقمت باضافته الى قسم المشاريع الجاهزه تفضل : http://vb4arb.com/vb/showthread.php?tid=22581&pid=109602#pid109602 RE: اريد كود للبحث التلقائي في DataGridView - ahmedbezia - 16-11-17 (16-11-17, 05:27 PM)tryold كتب : تفضل اخي هذا المثال بارك الله فيك اخي مشكور تمام لاكن كيف اربط حقل ايدي با قاعدة البينات لان الحقل لايضهر ناتج البحث اي انو غير مربوط با قاعدة البينات ارجو الاجابة بارك الله فيك واسف علي الازعاج Imports System.Data.OleDb Imports System.Data Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim CnString As String = "provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\data.mdb;user id=admin;jet oledb:database password=987" Dim Conn As New OleDbConnection(CnString) conn = New OleDb.OleDbConnection(str) End Sub Private Sub DataGridView1_CellEndEdit(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit Dim itemName As String = DataGridView1.CurrentRow.Cells(0).Value If e.ColumnIndex = 0 Then 'فحص الاتصال بقاعدة البيانات If conn.State = ConnectionState.Open Then conn.Close() End If conn.Open() Dim cmd As New OleDbCommand() cmd.Connection = conn cmd.CommandText = "select * from sila where itemName =@itemName" cmd.Parameters.AddWithValue("@itemName ", itemName) Dim dr As OleDbDataReader = cmd.ExecuteReader While dr.Read DataGridView1.CurrentRow.Cells(1).Value = dr.Item(1) DataGridView1.CurrentRow.Cells(2).Value = dr.Item(2) DataGridView1.CurrentRow.Cells(3).Value = dr.Item(3) DataGridView1.CurrentRow.Cells(4).Value = dr.Item(4) DataGridView1.CurrentRow.Cells(5).Value = dr.Item(5) End While dr.Close() conn.Close() End If End Sub اين الخطئ هنا |