27-01-16, 05:23 PM
أقوم بربط قاعدة بيانات 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()
فأين الخطأ هنا