+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] عايز ابحث في الاكسس بالفيجوال (/showthread.php?tid=27933)
عايز ابحث في الاكسس بالفيجوال - اسامه الهرماوي - 17-12-18
السلام عليكم.
انا الحمد لله اقوم بتصميم برنامج لادارة معمل تحاليل طيبة.
١/عايز لما اجي اكتب في خانة الطبيب وهي عبارة عن تيكست يقترح عليا الاسماء من جدول من الاكسس..
وشكرا..
RE: عايز ابحث في الاكسس بالفيجوال - Rabeea Qbaha - 17-12-18
PHP كود :
Private Sub auto_complete()
Try
If Conn.State = ConnectionState.Closed Then
Conn.Open()
End If
Dim cmd As New OleDbCommand("SELECT MaterialName FROM Materials", Conn)
Dim ds As New DataSet
Dim da As New OleDbDataAdapter(cmd)
da.Fill(ds, "list")
Dim col As New AutoCompleteStringCollection
Dim i As Integer
For i = 0 To ds.Tables(0).Rows.Count - 1
col.Add(ds.Tables(0).Rows(i)(0).ToString())
Next
Conn.Close()
TxTMaterialName.AutoCompleteSource = AutoCompleteSource.CustomSource
TxTMaterialName.AutoCompleteCustomSource = col
TxTMaterialName.AutoCompleteMode = AutoCompleteMode.Suggest
Catch ex As Exception
End Try
End Sub
وتستدعي الميثود اينما تريد
PHP كود :
auto_complete
RE: عايز ابحث في الاكسس بالفيجوال - اسامه الهرماوي - 17-12-18
طب ممكن مثال.
RE: عايز ابحث في الاكسس بالفيجوال - Rabeea Qbaha - 17-12-18
تفضل سيكون ما طلبت في خانة ال name في form 2
RE: عايز ابحث في الاكسس بالفيجوال - اسامه الهرماوي - 17-12-18
ولكن اخي انا متصل بالكومبوبوكس ... فاذا ابطلت عملة
تفعل هذا الكود واذا فعلت الكومبوبوكس..
يظهر لي هذة الرسالة...
تظهر لي هذه الصورة...
تظهر لي هذه الصورة...
الحمد لله اكتشفت الخطأ وهو اني اخلي حدث التيكست DoubleClick
وبس....
شكرا لمن ساعدني
RE: عايز ابحث في الاكسس بالفيجوال - elgokr - 18-12-18
بالتوفيق اخى اسامه الهرماوي
تحياتى لك ولاخى Rabeea Qbaha
على المساهمة الرائعة
وتمنياتى لكم التوفيق