[farid34000]

السلام عليكم
قمت بإنشاء مشروع متابعة لكن تفاجأت بعدم القيام بالبحث عن جزء من الكلمة بخاصية '%' ولا يمكن البحث الا على الكلمة الكاملة مثل هذه الامثلة:
البحث عن الرقم 1112221 في Ticket يجب أن يكون كاملا مثلا لا يجب ان يكون 111 او 1112 وإلا لن يظهر حتى باضافة خاصية '%" في المثال الموضح في الاسفل
Private Sub Command13_Click()
On Error Resume Next
a = InputBox("input Ticket")
Adodc1.RecordSource = "select * from SUIVIE_PDR where Ticket='" & a & "'"
Adodc1.CommandType = adCmdText
Adodc1.Refresh
End Sub

البحث بالاسم كذلك يجب ان يكون كاملا مثلا : Amar، لو كتبت AM فلن تظهر حتى باضافة خاصية '%" في المثال الموضح في الاسفل

Private Sub Command14_Click()
On Error Resume Next
a = InputBox("entrée le Nom de Client")
Adodc1.RecordSource = "select * from SUIVIE_PDR where Nom_Client='" & a & "'"
Adodc1.CommandType = adCmdText
Adodc1.Refresh
End Sub

لو قمت بتغيير البرمجية إلى :
= "SELECT * FROM SUIVIE_PDR WHERE Ticket LIKE '%" & searchString & "%'"
فلا يقوم المحرر باظهار اي شيء او يظهرها فارغة وكأن الشيء المراد البحث عنه لا يوجد

أود مساعدتي في عمل مثلا زر للبحث المخصص مثلا كل تكست بزر بحث خاص بها وكذا زر يبحث عن اي شيء في قاعدة البينات سواء جملة كاملة أو جزء من الكلمة
وشكرا لكم

[Taha Okla]

وعليكم السلام ورحمة الله وبركاته

في الاصدارات القديمة من الفيجول بيزك  استخدم (*)  بدلاً من (%)
يعني جرب :

كود :

= "SELECT * FROM SUIVIE_PDR WHERE Ticket LIKE '*" & searchString & "*'"

[farid34000]

للاسف تطلع النتيجة فارغة

[farid34000]

هل يمكن لاحدكم حل المشكلة؟

[Taha Okla]

(29-05-24, 02:56 PM)farid34000 كتب : هل يمكن لاحدكم حل المشكلة؟

لاحظ أن Am لا تساوي AM  ولا تساوي am ولا تساوي aM  فكل منها تعتبر قيمة مختلفة..
ارفع نسخة من المشروع للاطلاع

[farid34000]

(29-05-24, 03:38 PM)Taha Okla كتب :

(29-05-24, 02:56 PM)farid34000 كتب : هل يمكن لاحدكم حل المشكلة؟

لاحظ أن Am لا تساوي AM  ولا تساوي am ولا تساوي aM  فكل منها تعتبر قيمة مختلفة..
ارفع نسخة من المشروع للاطلاع

بارك الله فيك اخي، اعلم أن الكتابة MIN -MAJ تختلف لكن أنا مبتدئ واريد عمل البرنامج ليتسنى لي القيام بأمور اخرى، لاني اريد اضافة الطباعة بعد البحث أو التصنيف أو طباعة فقط ما يتم التأشير عليه.
تفضل المشروع كاملا وشكرا مسبقا على المساعدة وجزاك الله خيرا
https://www.mediafire.com/file/g4115um1q...8.rar/file

[Taha Okla]

البحث المطابق :

كود :

Dim A As String
A = InputBox("input Ticket")
Adodc1.RecordSource = "select * from SUIVIE_PDR where Ticket = '" & Trim(A) & "'"
Adodc1.CommandType = adCmdText

Adodc1.Refresh

البحث المشابه :

كود :

Dim A As String
A = InputBox("input Ticket")
Adodc1.RecordSource = "select * from SUIVIE_PDR where Ticket Like '%" & Trim(A) & "%'"
Adodc1.CommandType = adCmdText

Adodc1.Refresh

---

بحث مطابق :

كود :

Dim A As String
A = InputBox("input le Nom de Client")
Adodc1.RecordSource = "select * from SUIVIE_PDR where nom_Client = '" & Trim(A) & "'"
Adodc1.CommandType = adCmdText
Adodc1.Refresh

بحث مشابه : 

كود :

Dim A As String
A = InputBox("input le Nom de Client")
Adodc1.RecordSource = "select * from SUIVIE_PDR where nom_Client Like '%" & Trim(A) & "%'"
Adodc1.CommandType = adCmdText
Adodc1.Refresh

[farid34000]

(30-05-24, 01:48 AM)Taha Okla كتب : البحث المطابق :

كود :

Dim A As String
A = InputBox("input Ticket")
Adodc1.RecordSource = "select * from SUIVIE_PDR where Ticket = '" & Trim(A) & "'"
Adodc1.CommandType = adCmdText

Adodc1.Refresh

البحث المشابه :

كود :

Dim A As String
A = InputBox("input Ticket")
Adodc1.RecordSource = "select * from SUIVIE_PDR where Ticket Like '%" & Trim(A) & "%'"
Adodc1.CommandType = adCmdText

Adodc1.Refresh

---

بحث مطابق :

كود :

Dim A As String
A = InputBox("input le Nom de Client")
Adodc1.RecordSource = "select * from SUIVIE_PDR where nom_Client = '" & Trim(A) & "'"
Adodc1.CommandType = adCmdText
Adodc1.Refresh

بحث مشابه : 

كود :

Dim A As String
A = InputBox("input le Nom de Client")
Adodc1.RecordSource = "select * from SUIVIE_PDR where nom_Client Like '%" & Trim(A) & "%'"
Adodc1.CommandType = adCmdText
Adodc1.Refresh

شكرا لك وباركالله فيك يا استاذنا، سأجرب وارد عليك ان شاء الله

---

المشكلة كلها كانت في ( Trim(A)) يا للعجب بحثت عن جميع الحلول ولم أجدها الا عندك، بارك الله فيك
يا ريت معادلة ترتيب الجدول بالابجدية أو اظهار فقط في الجدول مثلا منتج فيه جزء من الاسم REF ولا يظهر الباقي.
كما أطلب منك ان امكن عند البحث يقوم بتغيير لون الصف الذي ظهرت فيه النتيجة وعندما لا توجد نتيجة في البحث يظهر عبارة لا توجد نتيجة وشكرا مسبقا

[Taha Okla]

إذا كنت تريد التحكم بقاعدة البيانات وجداولها بشكل أكثر احترافية وديناميكية
عليك الاتصال بقاعدة البيانات وجداولها من خلال الكود .. وليس من خلال الأدوات.

هناك أمثلة كثيرة في هذا المنتدى يمكنك الاطلاع عليها والتعلم منها..

[farid34000]

(31-05-24, 02:49 AM)Taha Okla كتب : إذا كنت تريد التحكم بقاعدة البيانات وجداولها بشكل أكثر احترافية وديناميكية
عليك الاتصال بقاعدة البيانات وجداولها من خلال الكود .. وليس من خلال الأدوات.

هناك أمثلة كثيرة في هذا المنتدى يمكنك الاطلاع عليها والتعلم منها..

بارك الله فيك يا استاذنا، مشكلة البحث تم علاجها بمساعداتك، بقي شيء لم أجد له أي حل وهو كيفية نقل معلومات داتاقريد التي تم فرزها الى ملف خارجي اكسل او وورد وهذا لاستعمالها في طباعة تقرير خارجي أو للارشفة برقم ticket
حاولت عدة مرات بطريقة textMatrix
Private Sub SaveToExcel_Click() Dim xlApp As Object Dim xlWorkbook As Object Dim xlWorksheet As Object Dim i As Integer Dim j As Integer ' Check if DataGridView has rows If DataGridView1.Rows.Count = 0 Then MsgBox "No data available to export!", vbExclamation Exit Sub End If ' Create a new instance of Excel Set xlApp = CreateObject("Excel.Application") xlApp.Visible = True ' Add a new workbook Set xlWorkbook = xlApp.Workbooks.Add Set xlWorksheet = xlWorkbook.Worksheets(1) ' Export data from DataGridView to Excel For i = 0 To DataGridView1.Rows.Count - 1 For j = 0 To DataGridView1.Columns.Count - 1 xlWorksheet.Cells(i + 1, j + 1).Value = DataGridView1.Rows(i).Cells(j).Value Next j Next i ' Release Excel objects Set xlWorksheet = Nothing Set xlWorkbook = Nothing Set xlApp = Nothing MsgBox "Data has been exported to Excel successfully!", vbInformation End Sub

بحيث أنه دائما يتوقف ويقول خطأ سواء في التي ذكرتها اولا أو في For j = 0 To DataGridView1.Columns.Count - 1
يا ريت يا استاذي مساعدتي في حل هذه المشكلة مع الشكر الجزيل