Incorrect syntax في Sybase

أرجو في المرات القادمة كتابة عنوان معبر عن محتوى الموضوع وعدم مخاطبة اشخاص بذاتهم في العنوان بل توجيه الموضوع الى الجميع بشكل عام والا فاننب ساضطر الى اغلاق الموضوع

على كل من الأفضل وضع ال query من أجل تحديد الخطأ.

بشكل عام الخطأ قد ينجم عن اسم احد عواميد في الجدول وال>ي يماثل كلمة محجوزة. مثلا هل هناك عامود في الجدول باسم Default ؟ ان كان كذلك فيجب وضع اسم العامود بين قوسين على الشكل التالي

[Default]

اخي الكريم

الجدول ليس فيه عمود باسم default

والجدول من الناحية strucure ليس فيع اخطاء

في الpage_load

 If Not Page.IsPostBack Then

            If Int(Session("islogin") <> 1) Then

                Response.Redirect("login.aspx")
            End If


            Dim cmd_sector As New Odbc.OdbcCommand("select sector_code,sector_name from T_NEW_SECTOR where city_code= 'JDH'", conn)
            Dim cmd_region As New Odbc.OdbcCommand("select region_code,region_name from T_NEW_REGION where city_code= 'JDH'", conn)
            Dim cmd_mang As New Odbc.OdbcCommand("select g_management_code,g_management_name from T_NEW_GENERAL_MANAGMENT where city_code= 'JDH'", conn)
            Dim cmd_dept As New Odbc.OdbcCommand("select department_code,department_name from department where city_code= 'JDH'", conn)

            Dim dr As Odbc.OdbcDataReader

            conn.Open()
            dr = cmd_sector.ExecuteReader()
            DropDownList1.DataSource = dr
            DropDownList1.DataTextField = "sector_name"
            DropDownList1.DataValueField = "sector_code"
            DropDownList1.DataBind()
            dr.Close()

            dr = cmd_region.ExecuteReader()
            DropDownList2.DataSource = dr
            DropDownList2.DataTextField = "region_name"
            DropDownList2.DataValueField = "region_code"
            DropDownList2.DataBind()
            dr.Close()

            dr = cmd_mang.ExecuteReader()
            DropDownList3.DataSource = dr
            DropDownList3.DataTextField = "g_management_name"
            DropDownList3.DataValueField = "g_management_code"
            DropDownList3.DataBind()
            dr.Close()

            dr = cmd_dept.ExecuteReader()
            DropDownList4.DataSource = dr
            DropDownList4.DataTextField = "department_name"
            DropDownList4.DataValueField = "department_code"
            DropDownList4.DataBind()
            dr.Close()



            If Request.QueryString("pcp") <> "" Then
                TextBox7.Text = Request.QueryString("pcp")


                'Dim adp As New Odbc.OdbcDataAdapter("SELECT t_user.user_id,t_user.user_name,t_user.mobil,t_user.contact_no ,department.department_name,T_NEW_GENERAL_MANAGMENT.g_management_name,T_NEW_REGION.region_name,T_NEW_SECTOR.sector_name FROM department,T_NEW_GENERAL_MANAGMENT,T_NEW_REGION,T_NEW_SECTOR,t_user WHERE ( T_NEW_GENERAL_MANAGMENT.g_management_code = department.managment_code ) and ( T_NEW_GENERAL_MANAGMENT.region_code = T_NEW_REGION.region_code ) and ( T_NEW_REGION.sector_code = T_NEW_SECTOR.sector_code ) and ( T_NEW_SECTOR.sector_code = t_user.sector_code ) and( T_NEW_REGION.region_code = t_user.region_code ) and ( T_NEW_GENERAL_MANAGMENT.g_management_code = t_user.g_managment ) and ( department.department_code = t_user.user_dept ) and ( ( t_user.user_id ='" & TextBox7.Text & "'))", conn)
                adp = New Odbc.OdbcDataAdapter("select user_id,user_name,contact_no,mobil,sector_code,region_code,g_managment,user_dept from t_user where user_id= '" & TextBox7.Text & "'", conn)
                Dim cb As Odbc.OdbcCommandBuilder = New Odbc.OdbcCommandBuilder(adp)
                'ds = New DataSet
                adp.FillSchema(ds, SchemaType.Source, "t_user")
                adp.Fill(ds, "t_user")


                TextBox7.Text = ds.Tables("t_user").Rows(0).Item(0)
                TextBox1.Text = ds.Tables("t_user").Rows(0).Item(1)
                TextBox2.Text = ds.Tables("t_user").Rows(0).Item(2)
                TextBox3.Text = ds.Tables("t_user").Rows(0).Item(3)
                DropDownList1.SelectedValue = ds.Tables("t_user").Rows(0).Item(4)
                DropDownList2.SelectedValue = ds.Tables("t_user").Rows(0).Item(5)
                DropDownList3.SelectedValue = ds.Tables("t_user").Rows(0).Item(6)
                DropDownList4.SelectedValue = ds.Tables("t_user").Rows(0).Item(7)

            End If
        End If


في زر الحفظ كتبت هذا الكود

    ds = New DataSet
        ds.Tables("t_user").Rows(0).Item(0) = TextBox7.Text
         
        adp.Update(ds, "t_user")

    End Sub

أخي الكريم جرّب في آخر Query ( ال Query الطويلة)

 Select t_user.*

بدل

Select t_user.user_id,t_user.user_name,t_user.mobil,t_user.contact_no

المشكلة ليست في جملة ال select

لكن المشكلة عند عمل update

أنا عارف أنها في ال Update ، بس شاكك إن المشكلة هي أن بعض الحقول لها Default value ولم تتم تعبئتها بالشكل المناسب عند ال Update، يعني ممكن يوجد حقول ضرورية (Required fields) لم يتم اختيارها عند ال Select والله أعلم.

حسب ما ارى فإن الاستفسار الذى تبني عليه ال DataAdapter مبني على اكثر من جدول، لذلك لا يمكنك الاعتماد على CommandBuilder لبناء جمل الاضافة والتعديل والحذف

عليك كتابتهم بنفسك ومن ثم تسند قيمهم لل DataAdapter

ايضا لو قمت بوضع الكود في ملف نصي وارفقته برسالك لكان افضل، لان الموضوع اصبح تنسيقه غير منتظم مما يصعب قراءة الموضوع