+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=46200)
يوجد خطاء عند تحميل الفورم - مثال شجرة الحسابات - new_programer - 10-06-23
ممكن توضيح سبب الخطاء عند تحميل الفورم
علما ان الكود يعمل على قاعدة بيانات اكسيس دون اى مشاكل
مرفق المثال مع سكربت قاعدة البيانات
RE: يوجد خطاء عند تحميل الفورم - مثال شجرة الحسابات - new_programer - 10-06-23
ممكن طريقة. حل. . رسالة الخطاء.
عند تحميل البيانات
RE: يوجد خطاء عند تحميل الفورم - مثال شجرة الحسابات - Taha Okla - 11-06-23
أقرأ الرسالة وستعرف أين يقع الخطأ
الرسالة تقول أنه لا يوجد سجل (سطر) رقمه صفر -- يعني لا يوجد بيانات لقرائتها أساساً.
يعني أن الـ (dt) خالي من البيانات.
RE: يوجد خطاء عند تحميل الفورم - مثال شجرة الحسابات - new_programer - 11-06-23
لم اتمكن من معرفة الخطاء لان نفس الكود شغال. على قاعدة بيانات اكسيس
يعنى المشكلة فى صيغة كتابة الكود.
RE: يوجد خطاء عند تحميل الفورم - مثال شجرة الحسابات - سعود - 11-06-23
(11-06-23, 01:32 AM)new_programer كتب : لم اتمكن من معرفة الخطاء لان نفس الكود شغال. على قاعدة بيانات اكسيس
يعنى المشكلة فى صيغة كتابة الكود.
بل لا توجد بيانات وفق هذا الشرط:
PHP كود :
Where AccountName = '" & AccountsTreeText & "'
RE: يوجد خطاء عند تحميل الفورم - مثال شجرة الحسابات - G20 - 11-06-23
(10-06-23, 04:14 PM)new_programer كتب : ممكن توضيح سبب الخطاء عند تحميل الفورم
علما ان الكود يعمل على قاعدة بيانات اكسيس دون اى مشاكل
مرفق المثال مع سكربت قاعدة البيانات
سكربت قاعدة البيانات ليس فيها بيانات
PHP كود :
Sub LoadTools()
Dim AccountsTreeText As String = TreeView1.SelectedNode.Text
AccountsTreeText = AccountsTreeText.Replace(TreeView2.SelectedNode.Tag & " : ", "")
Dim com As New SqlCommand("Select * From AccountsTree Where AccountName=@AccountName", conn)
com.Parameters.AddWithValue("@AccountName", AccountsTreeText.Trim)
Dim da As New SqlDataAdapter(com)
Dim dt As New DataTable
da.Fill(dt)
If dt.Rows.Count > 0 Then
Dim Num As Integer = 0
Txt_DebitAccount.Text = dt.Rows(Num)("DebitAccount").ToString
Txt_CreditAccount.Text = dt.Rows(Num)("CreditAccount").ToString
Txt_BalanceAccount.Text = dt.Rows(Num)("BalanceAccount").ToString
Txt_AccountID.Text = dt.Rows(Num)("AccountID").ToString
Txt_AccountName.Text = dt.Rows(Num)("AccountName").ToString
Txt_TYPE.Text = dt.Rows(Num)("TYPE").ToString
Txt_AccountSource.Text = dt.Rows(Num)("AccountSource").ToString
Chk_ViewInFavorites.Checked = dt.Rows(Num)("ViewInFavorites").ToString
End If
End Sub
RE: يوجد خطاء عند تحميل الفورم - مثال شجرة الحسابات - new_programer - 11-06-23
تسلم استاذي الفاضل
G20
الكود يعمل بكفاءة تسلم - ربنا يجعلة فى ميزان حسناتك ويذيدك من علمه
المشكلة كانت فى تعديل صيغة الكود لان الكود يعمل على اكسيس ولا يعمل على سيكوال سيرفر
لان جربت الكود على قاعدة بيانات تحتوي على بيانات وليس فارغة
شكرا جدا مرة اخي