السلام عليكم
إخواني الأعضاء
ما هي الإضافة البسيطة التي يمكنني وضعها لظهور نتيجة استعلام في مسج بوكس أو خلية في الداتا غريد
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)
If da.Fill(dt) > 0 Then MsgBox(dt.Rows(0).Item("n"))
اخي الكريم sami القيمة ليست حقل ليتم الربط بها وانما هي ناتج استعلام بجمع قيم عمود معين
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"))
إخواني سعود و sami2015 جعل لكم الله مساعدتكم في ميزان حسناتكم
أشكرك أخي سعود على طريقة الاتصال المباشر
وشكرا لك أخي sami2015 على الكود , فهو شغال كما كنت أريد الحمد لله