[اسامه الهرماوي]

انت تقوم باسناد حقول الداتا الي الي الأدوات ولكن لم ترتبط العملية بالقاعدة فلذلك لاتظهر البيانات.
فأنصحك باستخدام هذا الكود.

كود :

 With Cmd
           .Connection = con
           .CommandType = CommandType.Text
           .CommandText = "Insert Into الجدول (name,age)values(name@,age@)"
           .Parameters.AddWithValue("@name", SqlDbType.NVarChar).Value = الاسم.Text
           .Parameters.AddWithValue("@age", SqlDbType.NVarChar).Value = العمر.Text
       End With
       If con.State = 1 Then con.Close()
       con.Open()
       Cmd.ExecuteNonQuery()
       con.Close()
       Cmd = Nothing
       MsgBox("تم إضافة السجل بنجاح", MsgBoxStyle.Information, "حفظ")