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

        da = New OleDbDataAdapter("select sum(a) as n from Table1 WHERE Num LiKE '" & (textbox1) & "' ", cn)
        da.Fill(dt)

وضعت هذا الحل لكن غير شغال
DataGridView3.Rows(0).Cells(0).Value = dt


جزاكم الله خيرا على المساعدة
الرد }}}}
تم الشكر بواسطة:
#2
اذا تريد بمربع رسالة فاستخدم اتصال مباشر واستخلاص القيمة مثلا

كود :
       Dim con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=db.accdb")
       Dim cm As New OleDb.OleDbCommand("select sum(tn) from tb", con)
       If con.State = ConnectionState.Closed Then
           con.Open()
       End If
       MsgBox(cm.ExecuteScalar)
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: sniperjawadino , محمود رغمان
#3
If da.Fill(dt) > 0 Then MsgBox(dt.Rows(0).Item("n"))
الرد }}}}
تم الشكر بواسطة: sniperjawadino
#4
اخي الكريم sami القيمة ليست حقل ليتم الربط بها وانما هي ناتج استعلام بجمع قيم عمود معين
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: sami2015 , sniperjawadino
#5
da = New OleDbDataAdapter("select sum(a) as n from Table1 WHERE Num LiKE '" & (textbox1) & "' ", cn)

If da.Fill(dt) > 0 Then MsgBox(dt.Rows(0).Item("n"))
الرد }}}}
تم الشكر بواسطة: sniperjawadino , محمود رغمان
#6
إخواني سعود و sami2015 جعل لكم الله مساعدتكم في ميزان حسناتكم
أشكرك أخي سعود على طريقة الاتصال المباشر
وشكرا لك أخي sami2015 على الكود , فهو شغال كما كنت أريد الحمد لله
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن شرح لطريقة ربط أكثر من جدول اكسس ؟ أبووسم 2 69 اليوم, 12:23 AM
آخر رد: أبووسم
  استفسار بخصوص عدم ظهور اداة عرض ملف pdf في الادوات عباسة 7 122 أمس, 08:07 PM
آخر رد: عباسة
  كمبو بوكس داخل الداتا جريد فارس احمد السيد 4 87 أمس, 12:16 AM
آخر رد: مساعدة
  ظهور خطا عند حذف ملف HATEM KAREM 2 59 17-02-17, 03:14 AM
آخر رد: HATEM KAREM
  طريقة ظهور اسم المستخدم في جميع صفحات الويب عباسة 0 64 14-02-17, 03:17 PM
آخر رد: عباسة
Question [سؤال] محتاج طريقة لعرض الأسماء المكررة في الداتا بيز refaat130 3 96 06-02-17, 07:50 PM
آخر رد: sendbad100
  كيفية اظهار قاءمة عند النقر بزر الفأرة الايمن على الداتا قريد فيو في فيجوال 2008 المتألق9 2 74 05-02-17, 01:43 AM
آخر رد: المتألق9
  ممكن احد يساعدني في التكست بوكس محمد بوقزاحة 4 91 01-02-17, 07:04 PM
آخر رد: محمد بوقزاحة
  مساعده في برمجة الداتا قرد فيو معتز الجازوي 2 78 01-02-17, 12:34 AM
آخر رد: معتز الجازوي
  ممكن كود البوتن بالشكل ده MOSTAFA.KAMEL 7 206 24-01-17, 02:14 AM
آخر رد: مساعدة

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


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