+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] معرفة الخطأ (/showthread.php?tid=44553)
معرفة الخطأ - MOHAMMED ALZWI - 14-12-22
السلام عليكم
مامعنى رسالة الخطأ
وطريقة حل الخطأ
الكود صحيح 100%
هل يوجد مشكلة بالتاريخ
========================================CODE
Dim STR__ = "SELECT SUM(DEBIT) , SUM(CREDIT) FROM DET_IMP WHERE IMP_CODE ='" & TXT_IMP_CODE.Text & "' AND BUY_DATE < '" & D1.Value & "'"
Dim CMD As New SqlClient.SqlCommand(STR__, SQLCON)
Dim DA As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(CMD)
Dim DT As New DataTable("DET_IMPOTER")
DA.Fill(DT)
RE: معرفة الخطأ - أبو خالد الشكري - 15-12-22
جرب تعديل الكود إلى الشكل التالي :
كود :
Dim STR__ As String
STR__ = "SELECT SUM(DEBIT) , SUM(CREDIT) FROM DET_IMP WHERE IMP_CODE ='" & TXT_IMP_CODE.Text & "' AND BUY_DATE < '" & D1.Value & "'"
Dim CMD As New SqlClient.SqlCommand(STR__, SQLCON)
Dim DA As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(CMD)
Dim DT As New DataTable("DET_IMPOTER")
DA.Fill(DT)