منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم

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

        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

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

(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

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

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

Integer.Parse(TextBox1.Text)

لاخذ التاريخ

Date.Parse(TextBox1.Text)

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

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

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

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

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

(23-09-20, 01:16 AM)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