الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ما الخطأ فى الكود التالى - اريد جلب كود الشركة بمجرد تحديدها من Combo box

بدأه مجـدى في 6 أبريل 2016 · 2 رد · 473 مشاهدة · في قسم قواعد البيانات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

If cn.State = 1 Then cn.Close
cn.Open "provider=microsoft.jet.oledb.4.0;data source =" & App.Path + "\Sys.sys;Jet OLEDB:Database"
If rsitem1.State = 1 Then rsitem1.Close
rsitem1.Open " select * from CompanyINFO where CompanyName like '" & CCompanyName.Text & "*" & "'", cn, adOpenDynamic, adLockOptimistic
If Not rsitem1.EOF Then
        TCompanyID.Text = rsitem1.Fields(0).Value
        rsitem1.MoveNext
End If
        rsitem1.Close
 

#2

ممكن تجرب تعيير *

بال %

#3

هذا هو تصحيح الخطأ فى الكود :- 

  

If CN.State = 1 Then CN.Close
CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Sys.sys;Persist Security Info=False"
If rsitem1.State = 1 Then rsitem1.Close
rsitem1.Open "Select CompanyCode From CompanyINFO Where CompanyName='" & Trim$(CCompanyName.Text) & "'", CN, adOpenStatic, adLockOptimistic
If rsitem1.RecordCount > 0 Then
   If Not IsNull(rsitem1![CompanyCode]) Then TCompanyID.Text = rsitem1![CompanyCode] Else TCompanyID.Text = ""
Else
   TCompanyID.Text = ""
End If
If rsitem1.State = 1 Then rsitem1.Close

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…