السلام عليكم
سؤالي
عندي داتا ست واحده ابي اعبيها بثلاث جداول
طبعا با ستخدام نفس الادابتر
بس الحال ماضبط
هذا الكود
Dim _oCon As New System.Data.SqlClient.SqlConnection _oCon.ConnectionString = "server=(local);database=project;trusted_connection=yes" Dim str As String str = "SELECT Section.crs_code, SECTION_GROUP.sec_NO,SECTION_SCHEDULE.day, SECTION_SCHEDULE.STIME, SECTION_SCHEDULE.ETIME " _ & " FROM SECTION_SCHEDULE INNER Join SECTION_GROUP ON SECTION_SCHEDULE.sec_no = SECTION_GROUP.sec_NO " _ & "INNER JOIN Section ON SECTION_SCHEDULE.sec_no = Section.Sec_No AND SECTION_GROUP.sec_NO = Section.Sec_No INNER JOIN Student ON SECTION_GROUP.grou_No = Student.Grou_No and section_group.lev_no =student.lev_no where student.Std_Id ='" & Trim(TextBox1.Text) & "'" Dim _adpt As New System.Data.SqlClient.SqlDataAdapter(str, _oCon) Dim DS As New DataSet _adpt.Fill(DS) _adpt.SelectCommand.CommandText = "SELECT Section.crs_code SECTION_STUDENT.sec_NO,SECTION_SCHEDULE.day, SECTION_SCHEDULE.STIME, SECTION_SCHEDULE.ETIME" _ & " FROM SECTION_STUDENT INNER Join Section ON" _ & "SECTION_STUDENT.sec_NO = Section.Sec_No INNER JOIN SECTION_SCHEDULE ON Section.Sec_No = SECTION_SCHEDULE.sec_no" _ & "where SECTION_STUDENT.Std_Id ='" & Trim(TextBox1.Text) & "'" _adpt.Fill(DS) str = "SELECT * FROM PROGRESS where STATUS='REGISTER' AND Std_Id ='" & Trim(TextBox1.Text) & "'" _adpt.SelectCommand.CommandText = str _adpt.Fill(DS)
الخطا
ان داتا ست صار فيها ثلاث جداول
لكن
بنفس قيم الجدول الاول
يعني جدول الاول صار عندي متكرر ثلاث مرات
ما ادري وين خطا
هل في تغير قيمة الادابتر او وين
:wacko:
مره شكرا لكم