[VB.NET] ظهور خطا بالاتصال بقاعدة البيانات - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=34083)

ظهور خطا بالاتصال بقاعدة البيانات - Mohammed Nafa - 31-03-20 السلام عليكم ورحمة الله وبركاته ... أرج التكرم والمساعدة لسبب ظهور هذه الرسالة ... Imports System.Data.Sql Imports System.Data.SqlClient Imports System.IO Module connection     Public ConstrPos As String = "Data Source=AMRONAFFA\SERVER;Initial Catalog=POSSham;Persist Security Info=True;User ID=sa;Password=sa"     Public ConPos As New SqlClient.SqlConnection(ConstrPos)     Public Function GetMaxID(TableName, CoulmnName) As Integer         Dim dtPos As New DataTable         Dim adpPos As New SqlDataAdapter         dtPos.Clear()         adpPos = New SqlDataAdapter("select MAX(" & CoulmnName & ") from " & TableName & "", ConPos)         adpPos.Fill(dtPos)         Dim AutoNumber As Integer         If IsDBNull(dtPos(0)(0)) = True Then             AutoNumber = 1         Else             AutoNumber = dtPos(0)(0) + 1         End If         Return AutoNumber     End Function End Module وهذه الرسالة Class 'Data Table' cannot be indexed because it has no default property.