[احمد129]

أقوم بربط قاعدة بيانات sql  بنموزج فيجوال بيسك دوت نت ويتم الاتصال قاعدة البيانات بالنموزج بشكل صحيح وعندما أقوم بربط الجدول الاول بالنموزج يتم الربط بدون مشاكل ولكن عندما اقوم بربط الجدول الثاني او الثالث بالنموزج يحدث خطأ ولا يتم الاتصال 

كود الربط لقاعدة البيانات كالتالي

Dim con As New SqlConnection("Data Source=AHMED-PC;Initial Catalog=DataAccount;User ID=sa")

ويتم الاتصال بدون مشاكل

أما كود تعريف الداتا سيت والداتا ادباتر يكون كالتالي

                                Dim DataSet1 As  New DataSet         

                        Dim dataset2 As New DataSet

                               Dim DataAdapter1 As SqlDataAdapter          

                     Dim DataAdapter2 As SqlDataAdapter

                          Dim SQLstr As String

                        Dim sqlstr2 As String

وعندما أقوم بتحميل الفروم اكتب الكود التالي

        SQLstr = "SELECT * FROM item"

        Con.Open()

        Dim DataAdapter1 As New SqlDataAdapter(SQLstr, con)

        DataAdapter1.Fill(DataSet1, "item") 'التعامل مع جدول الاصناف

        Con.Close()

 

ولا يحدث مشاكل بالاتصال

ولكن عندما اقوم بالاتصال بالجدول الثاني يحدث الخطأ

sqlstr2 = "select * from buy"

        con.Open()

        Dim DataAdapter2 As New SqlDataAdapter(sqlstr2, con)

        DataAdapter2.Fill(dataset2, "buy")

        Con.Close()

فأين الخطأ هنا