[moh developer]

السلام عليكم

ممكن حل مشكلة الخطا دائما يظهر لي خطا لم يتم حفظ البيانات

        Dim con As New SqlConnection("Server= \SQLEXPRESS; Database = mail; Integrated Security = true")

        Dim da As New SqlDataAdapter
        Dim dt As New DataTable
        Dim cmd As New SqlCommand
        Dim cmdb As SqlCommandBuilder

        Try

            Dim r As DataRow = dt.NewRow
            r(1) = TextBox1.Text
            r(2) = TextBox2.Text
            r(3) = TextBox3.Text
            r(4) = TextBox4.Text
            r(5) = TextBox5.Text
            r(6) = TextBox6.Text
            r(7) = TextBox7.Text


            dt.Rows.Add®
            cmdb = New SqlCommandBuilder(da)
            da.Update( dt )

            MsgBox(" تم الادخال بنجاح", MsgBoxStyle.Information)

        Catch ex As Exception


            MsgBox(" لم يتم الادخال بنجاح", MsgBoxStyle.Information)


        End Try

[Anas Mahmoud]

ازل Try لترى رسالة الخطأ حتى نعرف اين المشكلة

[moh developer]

(22-09-20, 07:08 PM)moh developer كتب :

السلام عليكم

ممكن حل مشكلة الخطا دائما يظهر لي خطا لم يتم حفظ البيانات

        Dim con As New SqlConnection("Server= \SQLEXPRESS; Database = mail; Integrated Security = true")

        Dim da As New SqlDataAdapter
        Dim dt As New DataTable
        Dim cmd As New SqlCommand
        Dim cmdb As SqlCommandBuilder

        Try

            Dim r As DataRow = dt.NewRow
            r(1) = TextBox1.Text
            r(2) = TextBox2.Text
            r(3) = TextBox3.Text
            r(4) = TextBox4.Text
            r(5) = TextBox5.Text
            r(6) = TextBox6.Text
            r(7) = TextBox7.Text


            dt.Rows.Add®
            cmdb = New SqlCommandBuilder(da)
            da.Update( dt )

            MsgBox(" تم الادخال بنجاح", MsgBoxStyle.Information)

        Catch ex As Exception


            MsgBox(" لم يتم الادخال بنجاح", MsgBoxStyle.Information)


       

ا

عتقد يعترض على اول تيسكت

هل لاني معرفة في قاعدة البيانات نوع int  

اذا ارت ان اقوم باخذ قيمت الرقم من التيكست ما ذا اكتب والتاريخ ايضا اذا امكن

[Anas Mahmoud]

لاخذ الرقم من التكست بوكس

Integer.Parse(TextBox1.Text)

لاخذ التاريخ

Date.Parse(TextBox1.Text)

[moh developer]

عفوا لم تحل المشكلة ايضا يعترض على اول تيس;SJ عند رفع TRY

---

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

[Anas Mahmoud]

طيب اعطني رسالة الخطأ حتى اعرف معترض على ماذا

[moh developer]

(23-09-20, 12:52 AM)Anas Mahmoud كتب : طيب اعطني رسالة الخطأ حتى اعرف معترض على ماذا

[Anas Mahmoud]

اخي انا بحاجة لرؤية رسالة الخطأ اضغط على المربع الصغير هذا وارني ماذا يخرج

[moh developer]

(23-09-20, 01:16 AM)Anas Mahmoud كتب : اخي انا بحاجة لرؤية رسالة الخطأ اضغط على المربع الصغير هذا وارني ماذا يخرج

[Anas Mahmoud]

بصراحة انا لا اعلم شيئا عن الاضافة بهذه الطريقة ربما يفيدك الاخوة

ولكن على اي حال الطريقة الافضل هي استخدام SqlCommand 

كود :

Dim query as String = "INSERT INTO student (colName, colID, colPhone, colBranch, colCourse, coldblFee)
VALUES (@colName,@colID, @colPhone, @colBranch,@colCourse, @coldblFee)"

Using conn as New SqlConnection("Server= \SQLEXPRESS; Database = mail; Integrated Security = true")
   Using comm As New SqlCommand()
       With comm
           .Connection = conn
           .CommandType = CommandType.Text
           .CommandText = query
           .Parameters.AddWithValue("@colName", strName)
           .Parameters.AddWithValue("@colID", strId)
           .Parameters.AddWithValue("@colPhone", strPhone)
           .Parameters.AddWithValue("@colBranch", strBranch)
           .Parameters.AddWithValue("@colCourse", strCourse)
           .Parameters.AddWithValue("@coldblFee", dblFee)
       End With
       Try
           conn.open()
           comm.ExecuteNonQuery()
       Catch(ex as SqlException)
           MessageBox.Show(ex.Message.ToString(), "Error Message")
       End Try
   End Using
End USing

هذا الاسلوب افضل والله اعلم


https://stackoverflow.com/a/12634626/14137871