تقييم الموضوع :
  • 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 على الكود , فهو شغال كما كنت أريد الحمد لله
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن مساعدة طباعة دفاتر صكوك مصرفية الزوي 0 23 أمس, 07:42 AM
آخر رد: الزوي
  مشكلة ظهور الارقام في تقرير الكريستال ريبورت باللغة الانجليزية محمد صلاح ابراهيم 1 49 15-07-18, 05:07 PM
آخر رد: elgokr
  [VB.NET] طريقة طباعة نتيجة البحث في الداتاريبورت larbihamri 3 134 11-07-18, 05:56 PM
آخر رد: ghaner joseph
  ممكن تعرفونى ليه المشكله دى والتى تظهر بالصورة خالد كامل1 4 77 01-07-18, 03:28 AM
آخر رد: elgokr
  [سؤال] اريد الطريقه الصحيحه لعمل FilterRow للداتا جريد ثم حفظ البيانات من الداتا جريد لقاعده dametucorazon 6 122 30-06-18, 12:45 AM
آخر رد: dametucorazon
  [سؤال] عند ربط الاكسل بالفيجول بيسك دوت نت تظهر رسالة خطأ ممكن الحل اسيل1 1 61 28-06-18, 08:23 AM
آخر رد: elgokr
Information [VB.NET] السلام عليكم اخوان ممكن مساعده بكود حذف فراس محي 3 104 27-06-18, 12:37 PM
آخر رد: boudyonline
  ممكن احد يعمل المشروع اخواني المبرمجين نور الهدى الهدى 14 451 21-06-18, 04:51 PM
آخر رد: نور الهدى الهدى
  البحث داخل الداتا جريد فيو Osama Bayoumy 3 132 19-06-18, 09:50 AM
آخر رد: elgokr
  خطأ (يجب أن تستخدم العملية استعلام قابل للتحديث) ZaerAllail 4 99 18-06-18, 05:27 PM
آخر رد: ZaerAllail

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


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