تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ما الخطأ فى هذا الكود - اريد جلب كود الشركة بمجرد اختيار اسم الشركة من الـ Combo1
#1


If cn.State = 1 Then cn.Close
cn.Open "provider=microsoft.jet.oledb.4.0;data source =" & App.Path + "\Sys.sys;Jet OLEDBBig Grinatabase"
If rsitem1.State = 1 Then rsitem1.Close
rsitem1.Open " select distinct(CompanyName) 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
أهلا أخي الكريم , لنفترض أن إسم حقل كود الشركة هو CompanyCode وإذا كان غير ذلك فقم بتغييره في هذا الكود , هذا كودك بعد تعديله :

PHP كود :
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) & "'"CNadOpenStaticadLockOptimistic
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 
الرد }}}
#3
بارك الله فيك اخى أحمد وجعلها فى ميزان حسناتك وزادك علماً.
لا اله الا انت سبحانك انى كنت من الظالمين.
اللهم انك عفو كريم حليم تحب العفو فاعفوا عنا.
اللّهُمَّ اغْفِرْ لِي وَلِوالِدَيَّ وَارْحَمْهُما كَما رَبَّيانِي صَغِيراً، اللَّهُمَّ اجْزِهِما بِالاِحْسانِ إِحْسانا وَبِالسَّيِّئاتِ غُفْرانا، اللَّهُمَّ اغْفِرْ لِلْمُؤْمِنينَ وَالمُؤْمِناتِ الاَحْياءِ مِنْهُمْ وَالاَمْواتِ.
سبحان الله والحمدلله ولا إله إلا الله والله أكبر زنه عرشك ومداد كلماتك ورضاء نفسك وكما ينبغى لجلال شأنك وعظيم سلطانك وعدد ما كان وعدد ما سيكون وعدد الحركات و السكون وعدد ما نعلم وعدد مالانعلم وعدد كل شيئ احصيته بعلمك يا كريم
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , محمد ئوزبك , محمد ئوزبك


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد تصحيح الخلل abde6726 2 350 04-11-23, 11:11 PM
آخر رد: abde6726
  اريد طريقة تصدير بيانات الاكتف ريبورت لملف اكسل scsi7000 0 299 03-11-23, 10:41 AM
آخر رد: scsi7000
  اريد طريقه او مثال ...للطباعة من الجهتين في الاكتيف ريبورت scsi7000 4 433 02-11-23, 11:06 PM
آخر رد: Microformt
  اختصار الكود حسب المثال المرفق abde6726 2 282 29-10-23, 11:00 AM
آخر رد: abde6726
  اختصار الكود حسب المثال المرفق abde6726 0 220 28-10-23, 05:01 PM
آخر رد: abde6726
  اريد طريقة لطباعة مستند مكون من صفحتين علي ورقة وحدة من الجهتين scsi7000 2 371 25-10-23, 07:38 PM
آخر رد: scsi7000
Question [vb6.0] عندي مشكلة في هذا الكود حيث انه لا يقبل الا رقم فقط اريد ان يقبل الارقام والاحرف ؟ Microformt 1 269 25-10-23, 04:10 PM
آخر رد: Amir_Alzubidy
Question [vb6.0] اريد إذا كان قيمة المحول صفر يظهر لي رسالة هل يمكن ذلك ؟ Microformt 0 371 20-03-23, 08:33 PM
آخر رد: Microformt
  [كود] اريد المساعده mohamed memoo 0 370 01-12-22, 07:23 PM
آخر رد: mohamed memoo
Question [vb6.0] كيف امنع المستخدم إدخال في Text نص عربي اريد إدخال انجليزي فقط ؟ Microformt 5 914 26-11-22, 01:25 PM
آخر رد: عبدالمؤمن

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم