تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] أين الخطاء في الاستعلام في برنامجي المرفق ؟؟
#1
Question 
الاخوه الكرام
 السلام عليكم ورحمة وبركاته
أين الخطاء في الاستعلام في برنامجي المرفق ؟؟ Huh Huh Huh Huh Huh
والله يحفظكم ويرعاكم


الملفات المرفقة
.zip   Norrt.zip (الحجم : 9.48 ك ب / التحميلات : 30)
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد }}}}
تم الشكر بواسطة:
#2
PHP كود :
Private Sub Command2_Click()
 
   Set db OpenDatabase(App.Path "/db1.mdb"2)
 
   Set rs db.OpenRecordset("select * from [soft] Where [AcceiD] = " Val(Text1.Text) & " Or [Name] = '" Trim(Text2.Text) & "'")

 
   If rs.RecordCount 0 Then
        MsgBox 
"عفواً لايوجد سجل بهذا البحث"vbInformation vbMsgBoxRtlReading
    
    Else
        Text1
.Text rs("AcceiD").Value
        Text2
.Text rs("Name").Value

    End 
If
 
   
    rs
.Close
    db
.Close
End Sub 
الرد }}}}
#3
(30-04-16, 09:25 PM)amgad525 كتب :
PHP كود :
Private Sub Command2_Click()
 
   Set db OpenDatabase(App.Path "/db1.mdb"2)
 
   Set rs db.OpenRecordset("select * from [soft] Where [AcceiD] = " Val(Text1.Text) & " Or [Name] = '" Trim(Text2.Text) & "'")

 
   If rs.RecordCount 0 Then
        MsgBox 
"عفواً لايوجد سجل بهذا البحث"vbInformation vbMsgBoxRtlReading
    
    Else
        Text1
.Text rs("AcceiD").Value
        Text2
.Text rs("Name").Value

    End 
If
 
   
    rs
.Close
    db
.Close
End Sub 

اخي العزيز
 السلام عليكم ورحمة وبركاته
 لكم مني جزيل الشكر والتقدير
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد }}}}
تم الشكر بواسطة: Amir_alzubidy


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [vb6.0] كيف اغلاق ملف قاعدة بيانات اكسس مفتوحة من خلال برنامجي ؟؟ Microformt 3 66 21-09-17, 04:20 PM
آخر رد: Amir_alzubidy
  امل ان اجد احد فيكم من اعضاء المنتدى الكريم يقوم بالعديل لي علا المثال المرفق wolf1120 9 274 21-09-17, 02:06 PM
آخر رد: wolf1120
  من يقدر استبدال قاعد بيانات المثال المرفق ب (sqlite) scsi7000 1 75 19-09-17, 01:06 PM
آخر رد: Amir_alzubidy
Question [vb6.0] كيف يتم تعطيل عمل ازارار ctrl+Ait+Delete عند تشغيل برنامجي ؟؟ Microformt 4 129 13-09-17, 08:17 AM
آخر رد: Amir_alzubidy
  [سؤال] مشكلة في برنامجي أرجو حلها suzoki 1 88 08-09-17, 06:06 AM
آخر رد: suzoki
Question [vb6.0] الاستعلام برقم الموظف في برنامجي المرفق ؟ Microformt 9 209 27-08-17, 01:44 PM
آخر رد: Microformt
Question [vb6.0] كيف اجعل يظهر للمستخدم رسالة عند عدم وجود الاسم الذي يبحث عنه في برنامجي المرفق؟؟ Microformt 4 156 22-08-17, 07:00 PM
آخر رد: Microformt
  [vb6.0] ارجو المساعدة في حل مشكلة في البرنامج المرفق larbihamri 2 124 23-07-17, 03:19 AM
آخر رد: larbihamri
Question [vb6.0] هل يمكن عمل تلميح الاوامر قوائم برنامجي عند تحريك موشر الماوس عليه مثل الذي في الصو Microformt 3 174 19-07-17, 06:05 PM
آخر رد: Microformt
Question [vb6.0] هل يوجد برنامج تنصيب يبحث ويجمع ملفات برنامجي المصنوع من فجوال بيسك ؟؟ Microformt 3 161 11-07-17, 04:34 PM
آخر رد: Microformt

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


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