تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة في عرض بيانات محددة في التقرير
#1
أرجو التعديل على كود التقرير التالي
كود :
If Trim(Combotasnif2.Text) = "" Then
MsgBox "íÌÈ ÇÎÊíÇÑ ÊÕäíÝ ÇáßÊÈ ÇæáÇ", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "ÍÇáÉ ÇáÇÌÑÇÁ"
Combotasnif2.SetFocus
Exit Sub: End If

Call Connect_DataBase
If RS.State = adStateOpen Then RS.Close
RS.Open "SELECT * FROM [Tab_aliieara] ", cn, adOpenStatic, adLockOptimistic

If RS.RecordCount <= 0 Then
  MsgBox "ÚÝæÇð ... áã íÊã ÇáÚËæÑ Úáì Ãí ßÊÇÈ ãõÚÜÇÑ", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "ÊäÈíÜå"
  Combotasnif2.SetFocus
  Exit Sub
End If

Dim x As String

x = Combotasnif2.Text

Unload Raliieara2

If cn.State = 1 Then cn.Close
Raliieara2.DataControl1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Initial Catalog=library ;Data Source=" & ServerName
RS.CursorLocation = adUseClient
If RS.State = 1 Then RS.Close
Raliieara2.DataControl1.Source = "Select * From Tab_aliieara Where tasnif_BooK='" & Trim(Combotasnif2.Text) & "'  order by IDCod"

Raliieara2.Show

والتعديل في هذا الجزء بحيث يتضمن عرض البيانات في التقرير حسب التصنيف المحدد من الكومبوكس Combotasnif2

كود :
RS.Open "SELECT * FROM [Tab_aliieara] ", cn, adOpenStatic, adLockOptimistic
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد
تم الشكر بواسطة:
#2
Thumbs Down 
تم بحمد الله تعديل الكود

كود :
RS.Open "Select * From Tab_Books Where tasnif_BooK ='" & Trim(Combotasnif2.Text) & "'", cn, adOpenStatic, adLockPessimistic
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل كود أظهار بيانات الحضور والغياب مصمم هاوي 3 158 , 01:06 AM
آخر رد: مصمم هاوي
  طباعة بيانات الطلبة في الفليكس قريد مصمم هاوي 1 120 11-04-21, 01:58 AM
آخر رد: مصمم هاوي
  [سؤال] مساعدة في عمل هذا الكود العبادي 2 10 456 01-04-21, 09:46 PM
آخر رد: اسلام الكبابى
  مساعدة في امتحاني Zahora 0 152 14-03-21, 08:06 PM
آخر رد: Zahora
Rainbow مساعدة في كود حذف الحروف المكررة العبادي 2 10 648 07-03-21, 05:27 AM
آخر رد: اسلام الكبابى
  مشكلة عدم ظهور البيانات في التقرير ahmed201 8 730 25-02-21, 09:27 PM
آخر رد: ahmed201
  مشكلة في تنسيق النسبة المئوية في التقرير مصمم هاوي 10 586 22-02-21, 09:19 PM
آخر رد: Ahmed_Mansoor
  [سؤال] لايمكن الاتصال بقاعدة بيانات MYsql ناجح احمد 7 1,033 07-02-21, 06:13 PM
آخر رد: ahmed201
  احناج مثال لكيفية استيراد بيانات من ملف اكسيل الى قاعدة البيانات عن طريق الفيجوال amro1965 0 206 19-01-21, 06:22 PM
آخر رد: amro1965
  [vb6.0] مساعدة فى انشاء تقريرباستخدام active report aboezzat84 0 192 10-01-21, 10:53 PM
آخر رد: aboezzat84

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


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