مشكلة في كود الحفظ

السلام عليكم

اخي العزيز يمكن تكون المشكلة في التنصيص اللي هو في بداية السطر لكل كود

وتاكد اذا كان لون الكود باللون الاخضر معناته ان المشكلة من التنصيص المفرد التي هي بداية كل سطر لان هذا يعتبر تعليق الاكواد يعني مايتنفذ

والحل انكا تلغي التنصيص المفرد الذي هو في بداية الاسطر لكي يصبح بالصورة التالية

Dim con1 As OleDbConnection

Dim com1 As OleDbCommand

Dim drdr As OleDbDataReader

Dim str As String

con1 = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\clinics.accdb")

com1 = New OleDbCommand("SELECT * from diagnosis", con1)

str = "insert into diagnosis(dateofExamines,diagnosise,drug,filenum,doctornum)" & "values('" & TextBox3.Text & "','" & TextBox2.Text & "','" & TextBox5.Text & "'," & Val(TextBox1.Text) & "," & Val(drnum) & ")"

com1.CommandText = str

con1.Open()

com1.ExecuteNonQuery()

con1.Close

اذا لم تحتل المشكلة الرجاء افادتنا لكي نقوم بايجاد حل اخر

اتمنى يكون هذا هو المطلوب

سلام

اخي التنصيص او التعليق هذا بعد ان كنت احاول تعديل كود اخر لكن المشكلة هي ليست من التعليق ...يعني هل الكود صحيح بالكامل بغض النظر عن التعليق

أخي العزيز الكود كله صحيح

لكن المشكلة في حقل الترقيم التلقائي

انا كنت اعتقد كذلك ولغيت الترقيم التلقائي لكن مافي فايدة ... اخي كيف التعامل مع الترقيم التلقائي في جملة انسرت ..كيف اتعامل مع gridview حيث عند النقر عليها تعرض بيانات السجل المعين داخل مجموعة تيكست بوك . وكيف ممكن اني اخلي جملة الاتصال في المودل عشان ماكررها وكيف اخلي المشروع يبدا التنفيذ من المودل..شكرا لك والله حاسس اني كثرت عليك في الاسئلة لكن هذا من العشم والله

السلام عليكم

اخوتي بخصوص المشكلة اعلاه

لقد حاولت ان اجد الخطا لكن بدون جدوى واليوم حاولت ان انشأ جدول جديد وانشئت له مفتاح اساسي وقمت بالتشغيل وحفظت البيانات ولم ينتج اي خطا وكررت حفظ نقس البيانات فاعطاني خطا ان لايمكن الحفظ بسبب تكرار المفتاح الاساسي يعني انه يحفظ لكن عندما افتح قاعدة البيانات لا اجد اي سجلات جديدة هل هناك امر لحفظ البيانات قبل اغلاق القاعدة في الكود؟؟؟ ارجو المساعدة وجزاكم الله خير. 

مجموعة امثلة واكواد ان شالله تكون مفيدة لاي شخص

مجموعة امثلة واكواد ان شالله تكون مفيدة لاي شخص مشاركة بسيطة

ان شالله هذه تكون البداية

WW1.5.rar

WW1.rar

WW3.rar

WW2.rar

اخي العزيز بس توضيح علشان اساعدك

انت تستخدم application أو websit

ارجو التوضيح باسرع وقت علشان احط لك مثال توضيحي

application ياخوي

السلام عليكم

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

===============================================

اما بالنسبة لاستفسارك الثاني وهو التعامل مع ال datagridview وعرض البيانات المختارة الى textbox فيتم بالطريقة التالية :

1) اضف اداة الـــ datagridview من شريط الادوات ومن ثم قم بعرض البيانات اليها باحدى الطريقتين اما عن طريق الكود أو الwizard خلنا ناخذ الطريقة الثانية عن طريق الكود كمايلي

sql = "select * from student"

da = New OleDbDataAdapter(sql, dbcon)

da.Fill(ds)

DataGridView1.DataSource = ds.Tables(0)

2) قم بالضغط على الزاوية العليا لاداة الــ datagridview كما في الصورة التالية

ومن ثم اختر add column لتظهر لك الشاشة التالية

اختر منها الخيار الاول مثلا button ومن ثم اعطي اسم للــ hader text وليكن اختيار ومن ثم اختر add

3) من الصورة الأولى اختر edit column لتضهر لك شاشة الخيارات اضغط على الخيار الأول لتضهر لك الشاشة التالية

ومن ثم اعطي اسم للبوتون عن طريق nullvalue اعطه اي اسم وليكم مثلا " عرض "

4) بعدها اضغط مرتين على datagridview وفي الحدث DataGridView1_CellClick اكتب الكود التالي :

Dim aa As Integer

Dim i As Integer

Dim d As Integer = 0

d = DataGridView1.Rows.Count

For i = 0 To DataGridView1.Rows.Count - 1

If DataGridView1.Rows(i).Cells(0).Selected = True Then

TextBox1.Text = DataGridView1.Rows(i).Cells(1).Value

TextBox2.Text = DataGridView1.Rows(i).Cells(2).Value

TextBox3.Text = DataGridView1.Rows(i).Cells(3).Value

TextBox4.Text = DataGridView1.Rows(i).Cells(4).Value

TextBox5.Text = DataGridView1.Rows(i).Cells(5).Value

End If

Next

لتضهر لك بالصورة التالية :

وبهذا نكون باذن الله حلينا الاستفسار الثاني

===============================================

اما الاستفسار الثالث وهو كيف تخلي جملة الاتصال في المودل يعني تعرفها مره واحدة فيتم بالطريقة التالية

اضغط في لوحة المفاتيح على Ctrl + hift + A ومن القائمة اختر ال Module

ومن ثم اكتب الكود جملة الاتصال أو اي متغيرات تريد استعمالهم على مستوى المشروع كامل مابين Module Module1 , end Module مسبوقة بكلمة public وليس dim كما في المثال المرفق

Module Module1

Public con As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\db1.mdb"

Public dbcon As New OleDb.OleDbConnection(con)

Public sql As String

Public da As New OleD

End Module

===============================================

المثال المرفق الرباط الخاص بي

اتمنى ان الصورة تكون وصلت والعفو منك على الاطالة والتأخير في الرد

واذا في اي استفسار فلا تترد نحن حاضرين واللي نقدر عليه نسويه

وفقك الله

exam_grid.rar

شكرا اخي الكريم والله ماقصرت ان شالله يوفقك انت قدمت لي مساعدة كبيرة والله

ان شالله ربي يجزاك خير عن مساعدة الغير و بارك الله فيك