27-05-22, 09:54 PM
28-05-22, 12:32 AM
28-05-22, 12:52 AM
28-05-22, 03:07 AM
28-05-22, 02:22 PM
مرحبا بك أخي العزيز ...
حقيقة لم أتمكن من مشاهدة التصميم ؛ حيث ظهرت أخطاء في الكود
وهذا شيء طبيعي جدا لأنك لم ترسل المشروع كاملا .
على كل حال ، أنا عندي ملاحظة فقط عل اسم الجدول ( Add ) فهذه الكلمة محجوزة للفيجوال ستوديو
وقد تعمل لك مشاكل في بناء جمل استعلام SQL
وأنصحك بتغيير اسم الجدول إلى أي اسم آخر ، مثلا ( MyAdd ) أو اسم آخر تراه مناسبا !
أما بخصوص كود إضافة طالب ، فأرجو أن يعمل الكود التالي في مشروعك ولكن يجب تغيير أسماء المتغيرات (اسم الطالب ، ورقمه) حسب أسماء المتغيرات التي في مشروعك !
ستجد في الكود الذي بالأسفل المتغيرات التالية :
اسم الجدول : MyAdd واسم الطالب : add_name ورقم الطالب : add_id
وبالتوفيق إن شاء الله .
حقيقة لم أتمكن من مشاهدة التصميم ؛ حيث ظهرت أخطاء في الكود
وهذا شيء طبيعي جدا لأنك لم ترسل المشروع كاملا .
على كل حال ، أنا عندي ملاحظة فقط عل اسم الجدول ( Add ) فهذه الكلمة محجوزة للفيجوال ستوديو
وقد تعمل لك مشاكل في بناء جمل استعلام SQL
وأنصحك بتغيير اسم الجدول إلى أي اسم آخر ، مثلا ( MyAdd ) أو اسم آخر تراه مناسبا !
أما بخصوص كود إضافة طالب ، فأرجو أن يعمل الكود التالي في مشروعك ولكن يجب تغيير أسماء المتغيرات (اسم الطالب ، ورقمه) حسب أسماء المتغيرات التي في مشروعك !
ستجد في الكود الذي بالأسفل المتغيرات التالية :
اسم الجدول : MyAdd واسم الطالب : add_name ورقم الطالب : add_id
وبالتوفيق إن شاء الله .
كود :
'ضع السطر التالي في التصريحات العامة
Imports System.Data.OleDb
Dim CmdInsert As New OleDbCommand
With CmdInsert
.Connection = Con
.CommandType = CommandType.Text
.CommandText = " Insert Into MyAdd (add_name,add_id) values ( @add_name, @add_id ) "
.Parameters.Clear()
.Parameters.AddWithValue("@add_name", OleDbType.VarChar).Value = TextBox1.Text
.Parameters.AddWithValue("@add_id", OleDbType.VarChar).Value = TextBox2.Text
End With
If Con.State = 1 Then Con.Close()
Con.Open()
CmdInsert.ExecuteNonQuery()
Con.Close()
MsgBox("تم إضافة البيانات بنجاح", MsgBoxStyle.Information, "إضافة")
CmdInsert = Nothing28-05-22, 04:49 PM
28-05-22, 05:56 PM
(28-05-22, 02:22 PM)أبو خالد الشكري كتب : [ -> ]مرحبا بك أخي العزيز ...
حقيقة لم أتمكن من مشاهدة التصميم ؛ حيث ظهرت أخطاء في الكود
وهذا شيء طبيعي جدا لأنك لم ترسل المشروع كاملا .
على كل حال ، أنا عندي ملاحظة فقط عل اسم الجدول ( Add ) فهذه الكلمة محجوزة للفيجوال ستوديو
وقد تعمل لك مشاكل في بناء جمل استعلام SQL
وأنصحك بتغيير اسم الجدول إلى أي اسم آخر ، مثلا ( MyAdd ) أو اسم آخر تراه مناسبا !
أما بخصوص كود إضافة طالب ، فأرجو أن يعمل الكود التالي في مشروعك ولكن يجب تغيير أسماء المتغيرات (اسم الطالب ، ورقمه) حسب أسماء المتغيرات التي في مشروعك !
ستجد في الكود الذي بالأسفل المتغيرات التالية :
اسم الجدول : MyAdd واسم الطالب : add_name ورقم الطالب : add_id
وبالتوفيق إن شاء الله .
كود :
'ضع السطر التالي في التصريحات العامة
Imports System.Data.OleDb
Dim CmdInsert As New OleDbCommand
With CmdInsert
.Connection = Con
.CommandType = CommandType.Text
.CommandText = " Insert Into MyAdd (add_name,add_id) values ( @add_name, @add_id ) "
.Parameters.Clear()
.Parameters.AddWithValue("@add_name", OleDbType.VarChar).Value = TextBox1.Text
.Parameters.AddWithValue("@add_id", OleDbType.VarChar).Value = TextBox2.Text
End With
If Con.State = 1 Then Con.Close()
Con.Open()
CmdInsert.ExecuteNonQuery()
Con.Close()
MsgBox("تم إضافة البيانات بنجاح", MsgBoxStyle.Information, "إضافة")
CmdInsert = Nothing
شكرا علي مجهودك عملت اللي حضرتك قلته واتصلت المشكلة
28-05-22, 07:07 PM