أقرأ الرسالة وستعرف أين يقع الخطأ
الرسالة تقول أنه لا يوجد سجل (سطر) رقمه صفر -- يعني لا يوجد بيانات لقرائتها أساساً.
يعني أن الـ (dt) خالي من البيانات.
(11-06-23, 01:32 AM)new_programer كتب : لم اتمكن من معرفة الخطاء لان نفس الكود شغال. على قاعدة بيانات اكسيس
يعنى المشكلة فى صيغة كتابة الكود.
بل لا توجد بيانات وفق هذا الشرط:
PHP كود :
Where AccountName = '" & AccountsTreeText & "'
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
(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