[كيرلس رفعت]

عايز كود إضافة طالب بالفيجوال بيسك مع قاعدة بيانات مايكروسوفت اكسس

[نيمو]

كود :

"INSERT INTO Tble (Col1,Col2) VALUES (" & TextBox1.Text & "," & TextBox2.Text & ")"

[أبو خالد الشكري]

ازيك يا كيرلس رفعت

الأفضل ترفق المشروع أو على الأقل ترفق الفورم اللي فيه السؤال
علشان يقدر الأعضاء مساعدتك بكل سهولة

[كيرلس رفعت]

(28-05-22, 12:52 AM)أبو خالد الشكري كتب : ازيك يا كيرلس رفعت

الأفضل ترفق المشروع أو على الأقل ترفق الفورم اللي فيه السؤال
علشان يقدر الأعضاء مساعدتك بكل سهولة

ده ملف البرنامج استأذنك ابعتلي الحل

[أبو خالد الشكري]

مرحبا بك أخي العزيز ...

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

على كل حال ، أنا عندي ملاحظة فقط عل اسم الجدول ( 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

---

[عبد العزيز البسكري]

اسم الجدول

ADD

كمثال

TBL_ADD

[كيرلس رفعت]

(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

---

شكرا علي مجهودك عملت اللي حضرتك قلته واتصلت المشكلة

[أبو خالد الشكري]

العفو
بالتوفيق إن شاء الله