+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] ظهور نتيجة استعلام في خلية في الداتا غريد -ممكن- (/showthread.php?tid=11134)
ظهور نتيجة استعلام في خلية في الداتا غريد -ممكن- - sniperjawadino - 11-01-15
السلام عليكم
إخواني الأعضاء
ما هي الإضافة البسيطة التي يمكنني وضعها لظهور نتيجة استعلام في مسج بوكس أو خلية في الداتا غريد
da = New OleDbDataAdapter("select sum(a) as n from Table1 WHERE Num LiKE '" & (textbox1) & "' ", cn)
da.Fill(dt)
da.Fill(dt)
وضعت هذا الحل لكن غير شغال
DataGridView3.Rows(0).Cells(0).Value = dt
جزاكم الله خيرا على المساعدة
RE: ظهور نتيجة استعلام في خلية في الداتا غريد -ممكن- - سعود - 11-01-15
اذا تريد بمربع رسالة فاستخدم اتصال مباشر واستخلاص القيمة مثلا
كود :
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)RE: ظهور نتيجة استعلام في خلية في الداتا غريد -ممكن- - sami2015 - 11-01-15
If da.Fill(dt) > 0 Then MsgBox(dt.Rows(0).Item("n"))
RE: ظهور نتيجة استعلام في خلية في الداتا غريد -ممكن- - سعود - 11-01-15
اخي الكريم sami القيمة ليست حقل ليتم الربط بها وانما هي ناتج استعلام بجمع قيم عمود معين
RE: ظهور نتيجة استعلام في خلية في الداتا غريد -ممكن- - sami2015 - 12-01-15
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"))
If da.Fill(dt) > 0 Then MsgBox(dt.Rows(0).Item("n"))
RE: ظهور نتيجة استعلام في خلية في الداتا غريد -ممكن- - sniperjawadino - 12-01-15
إخواني سعود و sami2015 جعل لكم الله مساعدتكم في ميزان حسناتكم
أشكرك أخي سعود على طريقة الاتصال المباشر
وشكرا لك أخي sami2015 على الكود , فهو شغال كما كنت أريد الحمد لله