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


الملفات المرفقة
.zip   softr-Fixed.zip (الحجم : 15.83 ك ب / التحميلات : 79)

الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم

- المطلوب غير واضح , يبدو أنك أخطأت في المثال , لأنه هذا المثال كان لسؤال سابق لك , يرجى التوضيح .

- في هذا الرابط : http://vb4arb.com/vb/showthread.php?tid=1168

- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد }}}}
تم الشكر بواسطة:
#3
ما شاء الله عليك يا أخي VB_Coder من السباقين للمساعدة...
منقطع .. للدراسة Confused
الرد }}}}
تم الشكر بواسطة: VB_Coder
#4
(08-12-13, 11:07 PM)VB_Coder كتب : السلام عليكم

- المطلوب غير واضح , يبدو أنك أخطأت في المثال , لأنه هذا المثال كان لسؤال سابق لك , يرجى التوضيح .

- في هذا الرابط : http://vb4arb.com/vb/showthread.php?tid=1168

- تحياتي .

-----
اخي العزيز
السﻻم عليكم ورحمة الله وبركاته
ﻻ يوجد خطاء في المثال ولكن السوال هذه المره
كيف انشي نفس اﻻستعلام المجود في المثال السابق بصيغة sql؟
والله يحفظكم ويرعاكم

الرد }}}}
تم الشكر بواسطة:
#5
السلام عليكم

- معليش أعتذر منك أخي العزيز ، لازال ماتريده غامض ، أرجو التوضيح أكثر .

- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد }}}}
تم الشكر بواسطة:
#6
السلام عليكم ورحمة الله وبركاته
[code]Dim SQLs As String

SQLs = "Select Operation as ÑÞã_ÇáÚãáíÉ" & _
",Date as ÊÇÑíÎ_ÇáÚãáíÉ" & _
",Statement as ÇáÈíÇä" & _
",Format(Deposit,'0.00') as ÅíÏÇÚ" & _
",Format(Clouds,'0.00') as ÇáÓÍÈ" & _
",Format(Balance,'0.00') as ÇáÑÕíÏ_ÇáãÊÈÞí" & _
" From sam2 Where Account_Number=" & Val(Trim$(Text.Text)) & _
" Order By Date,Operation ASC"

If RS.State = adStateOpen Then RS.Close
RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic

DoEvents

If RS.RecordCount > 0 Then
Set MSHFlexGrid1.DataSource = RS
Else
MsgBox "áã íÊã ÇáÚËæÑ Úáì ÑÞã ÇáÍÓÇÈ"
End If
بالتوفيق
الرد }}}}
تم الشكر بواسطة:
#7
Question 
(09-12-13, 07:57 AM)VB_Coder كتب : السلام عليكم

- معليش أعتذر منك أخي العزيز ، لازال ماتريده غامض ، أرجو التوضيح أكثر .

- تحياتي .
-------------------------------------------------------------------------------------
اخي العزيز
السلام عليكم ورحمة وبركاته
اريد ان يكون استعلام البرنامج مثال صيغه هذا الاستعلام
Set rs = db.OpenRecordset("SELECT * FROM sam1 WHERE Account_Number=" & Val(txtNo.Text))
مع عدم ذكر اسماء حقول اسماء فيلكس في الاستعلام
والله يحفظكم ويرعاكم

الرد }}}}
تم الشكر بواسطة:
#8
السلام عليكم

- إذا كان لايهمك ظهور أسماء أعمدة الفليكس قريد بالعربي فقم فقط بإزالة التسمية المستعاره التي بالعربي في الإستعلام , وأنتهت المشكلة , أما إذا كنت تريد ظهور أسماء الأعمدة بالعربي فهناك طريقتين ,
- الأولى :- هي أن تقوم بتسمية حقول الجدول نفسه بالعربي وأيضاً لابد أن تكتبها بالعربي في الإستعلام وهذه الطريقة غير مستحسنه لأنك ربما قد تواجه مشاكل .
- الثانية أن تقوم بتغيير أو ‘إعادة تسمية أعمدة الفليكس قريد في كل مرة تسند نتيجة الإستعلام في الفليكس قريد , كما يلي :
كود :
MSHFlexGrid1.TextMatrix(0,0)="Name"

- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد }}}}
تم الشكر بواسطة: Microformt
#9
(09-12-13, 11:02 PM)VB_Coder كتب : السلام عليكم

- إذا كان لايهمك ظهور أسماء أعمدة الفليكس قريد بالعربي فقم فقط بإزالة التسمية المستعاره التي بالعربي في الإستعلام , وأنتهت المشكلة , أما إذا كنت تريد ظهور أسماء الأعمدة بالعربي فهناك طريقتين ,
- الأولى :- هي أن تقوم بتسمية حقول الجدول نفسه بالعربي وأيضاً لابد أن تكتبها بالعربي في الإستعلام وهذه الطريقة غير مستحسنه لأنك ربما قد تواجه مشاكل .
- الثانية أن تقوم بتغيير أو ‘إعادة تسمية أعمدة الفليكس قريد في كل مرة تسند نتيجة الإستعلام في الفليكس قريد , كما يلي :
كود :
MSHFlexGrid1.TextMatrix(0,0)="Name"

- تحياتي .
----------------------------------------------------------------------------------
اخي العزيز
السلام عليكم ورحمة وبركاته
لكم مني جزيل الشكر والتقدير والله يحفظكم ويرعاكم

الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طباعة الاستعلام في activeReport كنونو 2 50 28-11-16, 05:19 AM
آخر رد: كنونو
  سؤالين في مشروعي المرفق كنونو 10 282 13-11-16, 05:49 PM
آخر رد: Amir_alzubidy
Question [vb6.0] كيف انشي ترقيم تلقي عند انقر على امر جديد في برنامجي المرفق ؟؟ Microformt 4 137 05-11-16, 06:20 PM
آخر رد: كنونو
  ربط برنامجي بصفحة انترنت على الانترنت عبدالله الصافي 1 77 30-10-16, 01:21 AM
آخر رد: Ahmed_Mansoor
Lightbulb [سؤال] مسأله استعلام ADODC / VB6 / MS access mustafaalnassah 3 73 30-10-16, 01:05 AM
آخر رد: Ahmed_Mansoor
Question [vb6.0] كيف اشترط على المستخدم ان يحدد السجل الذي اريد حذفه في برنامجي المرفق ؟؟ Microformt 2 87 21-10-16, 01:31 PM
آخر رد: Microformt
  'نرجو التعديل على المرفق gadr 2 68 14-10-16, 03:41 AM
آخر رد: gadr
Question [vb6.0] كيف احفظ خيارات برنامجي المرفق في ملف ini ؟ Microformt 15 357 09-10-16, 11:10 AM
آخر رد: MicroDoha
Question [vb6.0] كيف اجعل برنامجي المرفق يخذ سمات الوندز ؟؟ Microformt 0 65 07-10-16, 05:12 PM
آخر رد: Microformt
  [vb6.0] كيف اجعل عند إدارج مسار الصورة في Text تظهر الصوره في برنامج المرفق ؟؟ Microformt 1 83 07-10-16, 12:37 PM
آخر رد: Amir_alzubidy

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


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