[G20]

(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