[sniperjawadino]

السلام عليكم

إخواني الأعضاء

ما هي الإضافة البسيطة التي يمكنني وضعها لظهور نتيجة استعلام في مسج بوكس أو خلية في الداتا غريد

        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

جزاكم الله خيرا على المساعدة

[سعود]

اذا تريد بمربع رسالة فاستخدم اتصال مباشر واستخلاص القيمة مثلا

كود :

       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)

[sami2015]

If da.Fill(dt) > 0 Then MsgBox(dt.Rows(0).Item("n"))

[سعود]

اخي الكريم sami القيمة ليست حقل ليتم الربط بها وانما هي ناتج استعلام بجمع قيم عمود معين

[sami2015]

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]

إخواني سعود و sami2015 جعل لكم الله مساعدتكم في ميزان حسناتكم
أشكرك أخي سعود على طريقة الاتصال المباشر
وشكرا لك أخي sami2015 على الكود , فهو شغال كما كنت أريد الحمد لله