[sulimanalahdl]

اريد استجلاب اسم  الزبون من قاعدة البيانات 

 بالبحث عن اسمه

---

(06-08-18, 01:17 PM)sulimanalahdl كتب : اريد استجلاب اسم  الزبون من قاعدة البيانات 

 بالبحث عن اسمه

أوالبحث بالرقم ثم طباعة البيانات في التقرير

[sulimanalahdl]

من يتكرم بمساعدتي
يتابع المشاركة من البداية

[sendbad100]

السلام عليكم 

اعاني من ضيف في الوقت امام الحاسب.

وانت اضفت مشروع فارغ من الاكواد  وقاعدة بيانات فارغة 

لذك اضطررت لوضع مثال اخر  نزلته من المنتدى  وعدلت علية  اتمنى ان يفيدك 

1- يجب اضافة مكتبات في  الرفرينس        حسب الصورة المرفقة 

من القائمة Project   ثم   Reference  

كي تستطيع استخدام الاتصال بقاعدة البيانات بالكود 

[sulimanalahdl]

(07-08-18, 03:26 PM)sendbad100 كتب :

السلام عليكم 

اعاني من ضيف في الوقت امام الحاسب.

وانت اضفت مشروع فارغ من الاكواد  وقاعدة بيانات فارغة 

لذك اضطررت لوضع مثال اخر  نزلته من المنتدى  وعدلت علية  اتمنى ان يفيدك 

1- يجب اضافة مكتبات في  الرفرينس        حسب الصورة المرفقة 

من القائمة Project   ثم   Reference  

كي تستطيع استخدام الاتصال بقاعدة البيانات بالكود 

مشكور اخي سندباد

بس طلع عندي هذا الاشكال 

ارجو توضيح ذلك 

ايضا اريد ان يطبع حسب رقم الفاتورة المسجل

[sendbad100]

السلام عليكم

الخطاء   احد ثلاثة   اما اسم الجدول خطأ

او اسم السكشن خطأ

اواسم الليبل5  خطأ

او الليبل موجود في سيكشن ثاني 

استخدم الشرط HWERE    في الاستعلام  كما في استعلام العنوان     

[sulimanalahdl]

(08-08-18, 12:06 AM)sendbad100 كتب :

السلام عليكم

الخطاء   احد ثلاثة   اما اسم الجدول خطأ

او اسم السكشن خطأ

اواسم الليبل5  خطأ

او الليبل موجود في سيكشن ثاني 

استخدم الشرط HWERE    في الاستعلام  كما في استعلام العنوان     

بقي اشكال اريد فقط البيانات للرقم الذي تم اختياره في البحث

كما في هذا الكود 

هل يمكن تعدل

[sendbad100]

السلام عليكم

هل هذا هو المطلوب 

PHP كود :

Private Sub Command1_Click()


'هنا جلب بيانات العنوان
If rs.State = adStateOpen Then rs.Close
rs.Open "SELECT * FROM Tabel1 WHERE   [NO] = " & Val(Text1.Text), db, adOpenStatic, adLockPessimistic
 
    DataReport1.Sections("Section4").Controls("Name").Caption = rs![Nme]
    DataReport1.Sections("Section4").Controls("Age").Caption = rs![Old]



'هنا جلب بيانات  التقرير نفسة
If rs.State = adStateOpen Then rs.Close


' If rs.State = adStateOpen Then rs.Close    تم استبدال هذا الاستعلام
               
rs.Open "SELECT * FROM Tabel1 WHERE   [NO] = " & Val(Text1.Text), db, adOpenStatic, adLockPessimistic '   هل هذا هو المطلوب  'بهذا الاستعلام


Set DataReport1.DataSource = rs
 

DataReport1.Show



End Sub 


[sulimanalahdl]

(08-08-18, 02:44 AM)sendbad100 كتب :

السلام عليكم

هل هذا هو المطلوب 

PHP كود :

Private Sub Command1_Click()


'هنا جلب بيانات العنوان
If rs.State = adStateOpen Then rs.Close
rs.Open "SELECT * FROM Tabel1 WHERE   [NO] = " & Val(Text1.Text), db, adOpenStatic, adLockPessimistic
 
    DataReport1.Sections("Section4").Controls("Name").Caption = rs![Nme]
    DataReport1.Sections("Section4").Controls("Age").Caption = rs![Old]



'هنا جلب بيانات  التقرير نفسة
If rs.State = adStateOpen Then rs.Close


' If rs.State = adStateOpen Then rs.Close    تم استبدال هذا الاستعلام
               
rs.Open "SELECT * FROM Tabel1 WHERE   [NO] = " & Val(Text1.Text), db, adOpenStatic, adLockPessimistic '   هل هذا هو المطلوب  'بهذا الاستعلام


Set DataReport1.DataSource = rs
 

DataReport1.Show



End Sub 


نعم هذا الكود المطلوب

مشكور 

الله يعطيك العافية

[sulimanalahdl]

(08-08-18, 02:44 AM)sendbad100 كتب :

السلام عليكم

هل هذا هو المطلوب 

PHP كود :

Private Sub Command1_Click()


'هنا جلب بيانات العنوان
If rs.State = adStateOpen Then rs.Close
rs.Open "SELECT * FROM Tabel1 WHERE   [NO] = " & Val(Text1.Text), db, adOpenStatic, adLockPessimistic
 
    DataReport1.Sections("Section4").Controls("Name").Caption = rs![Nme]
    DataReport1.Sections("Section4").Controls("Age").Caption = rs![Old]



'هنا جلب بيانات  التقرير نفسة
If rs.State = adStateOpen Then rs.Close


' If rs.State = adStateOpen Then rs.Close    تم استبدال هذا الاستعلام
               
rs.Open "SELECT * FROM Tabel1 WHERE   [NO] = " & Val(Text1.Text), db, adOpenStatic, adLockPessimistic '   هل هذا هو المطلوب  'بهذا الاستعلام


Set DataReport1.DataSource = rs
 

DataReport1.Show



End Sub 


هذا الكود لجلب البيانات بحقل رقمي اريد تعديل الكون لحقل نصي 

هل من احد يساعدني في تعديل الكود

[sendbad100]

PHP كود :

rs.Open "SELECT * FROM Tabel1 WHERE   [NO] = '" & Trim(Text1.Text) & "'", db, adOpenStatic, adLockPessimistic '   هل هذا هو المطلوب  'بهذا الاستعلام 


جرب الاستعلام لم اجربة فقط عدلته على عجل 

السلام عليكم   

غير الاستعلام هكذا   اي  تضع  النص بين   كم في الاستعلام اعلاه    '  هنا النص '