منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - مشكلة لسه ماحدش جاوبني عليها cmd.excutenunquery

Try

cmd = New SqlCommand("insert into table0 values ('" & TextBox1.Text & "'," & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & TextBox8.Text & "','" & TextBox9.Text & " ' ) ", con)
Me.FillDataGridView("Select * From Table0")
con.Open()
cmd.ExecuteNonQuery()
MsgBox("all data saved", MsgBoxStyle.Information)
dt.Clear()
Me.FillDataGridView("Select * From Table0")
MessageBox.Show("تم حفظ البيانات بنجاح", "تم الحفظ", MessageBoxButtons.OK, MessageBoxIcon.Information)

Catch ex As Exception
MsgBox(ex.Message)
End Try

ايش المطلوب

شوف الكود ناقص اخي كيف تمرر للبرميتر بهذا الطريقه قبل values حدد وين تريد التخزين في colum

إليك الكود المصحح والمطور باستخدام المعلمات:

PHP كود :

Try
    Using con As New SqlConnection("YourConnectionStringHere")
        con.Open()
        Using cmd As New SqlCommand("INSERT INTO table0 (Column1, Column2, Column3, Column4, Column5, Column6, Column7, Column8, Column9) VALUES (@val1, @val2, @val3, @val4, @val5, @val6, @val7, @val8, @val9)", con)
            cmd.Parameters.AddWithValue("@val1", TextBox1.Text)
            cmd.Parameters.AddWithValue("@val2", TextBox2.Text)
            cmd.Parameters.AddWithValue("@val3", TextBox3.Text)
            cmd.Parameters.AddWithValue("@val4", TextBox4.Text)
            cmd.Parameters.AddWithValue("@val5", TextBox5.Text)
            cmd.Parameters.AddWithValue("@val6", TextBox6.Text)
            cmd.Parameters.AddWithValue("@val7", TextBox7.Text)
            cmd.Parameters.AddWithValue("@val8", TextBox8.Text)
            cmd.Parameters.AddWithValue("@val9", TextBox9.Text)

            cmd.ExecuteNonQuery()

            MsgBox("All data saved", MsgBoxStyle.Information)
            MessageBox.Show("تم حفظ البيانات بنجاح", "تم الحفظ", MessageBoxButtons.OK, MessageBoxIcon.Information)

            dt.Clear()
            Me.FillDataGridView("Select * From Table0")
        End Using
    End Using
Catch ex As Exception
    MsgBox(ex.Message)
End Try 

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

Medo84

رضوان الجماعي

غزة العزة