تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] مشكلة في اضافة سجلات جديدة على data grid وقاعدة البيانات
#1
Exclamation 
السلام عليكم ورحمة الله وبركاته
عند زري جديد وحفظ
والمشكله الأكبر في الداتا جريد
قمت في البداية في فورم لود بأضافة كود اضهار السجل الاخير
من أجل زيادة رقم واحد بعد السجل الأخير من خلال النقر على زر جديد
ولكن في حال النقر على زر التالي ستعود نفس المشكله وذلك لتغير مكان المحدد على الداتا جريد من الأخير الى سجل اخر
و عند الحفظ تتكرر بيانات الداتا جريد وكذالك لا يتم الحفظ على قاعدة البيانات
أرجو الأفادة عن المشكله الموجوده في المرفق
بارك الله فيكم
الاشكاليات : 1- ترقيم تلقائي
2- الأضافة الى داتا جريد
3- الحفظ لقاعدة البيانات
او اذا امكن ألأفادة برابط شرح معالجة مثل هذه الاشكاليات ولكم جزيل الشكر
كود الموديل
PHP كود :
Imports System.Data
Imports System
.Data.OleDb
Imports System
.Text
Module Module1
    
Public constr As String "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|datadirectory|\db1.mdb;Persist Security Info=True"

    
Public con As New OleDbConnection(constr)
    Public 
fusername As String
    
Public str As String
    
Public As New BindingSource
    
Public cmd As New OleDbCommand
    
Public da As New OleDbDataAdapter
    
Public ds2 As New DataSet
    
Public dt2 As DataTable
    
Public dr As DataRow
    
Public dc As DataColumn 

كود ارفاق البيانات لأدوات الفورم
PHP كود :
Sub one()
        
'كود أرفاق البيانات على أدوات البرنامج
        str = " select * from medcines "
        con.Open()
        Dim da2 As New OleDbDataAdapter(str, con)
        da2.Fill(ds2, "medcines")
        con.Close()
        TextBox1.DataBindings.Add("text", ds2, "medcines.id_medcine")
        TextBox2.DataBindings.Add("text", ds2, "medcines.name_medcine")
        TextBox3.DataBindings.Add("text", ds2, "medcines.id_house")
        TextBox4.DataBindings.Add("text", ds2, "medcines.name_phycis")
        DataGridView1.DataSource = ds2
        DataGridView1.DataMember = "medcines"
        DataGridView1.Columns(0).HeaderText = "رقم الدواء"
        DataGridView1.Columns(1).HeaderText = "أسم الدواء"
        DataGridView1.Columns(2).HeaderText = "رقم الرف"
        DataGridView1.Columns(3).HeaderText = "الأسم الدوائي"
        DataGridView1.AllowUserToAddRows = False
        DataGridView1.AllowUserToDeleteRows = False
        DataGridView1.SelectionMode = False
        DataGridView1.AllowUserToResizeColumns = False
        DataGridView1.AllowUserToResizeRows = False
        '
الاكمال التلقائي في الكمبوبوكس
        With ComboBox1
            
.DataSource ds2.Tables("medcines")
            .
DisplayMember "name_medcine"
            
.AutoCompleteSource AutoCompleteSource.ListItems
            
.AutoCompleteMode AutoCompleteMode.Suggest
        End With
    End Sub 
كود حفظ
PHP كود :
Try
            
Dim dr As DataRow
            Dim dt1 
As New DataTable
            Dim da3 
As New OleDbDataAdapter
            dt1 
ds2.Tables("medcines")
            
dr dt1.NewRow
            dr
("id_medcine") = TextBox1.Text
            dr
("name_medcine") = TextBox2.Text
            dr
("id_house") = TextBox3.Text
            dr
("name_phycis") = TextBox4.Text
            dt1
.Rows.Add(dr)
            
DataGridView1.Rows.Add.ToString()

            
DataGridView1.DataSource ds2
            MsgBox
("Add was successful.")
            
con.Close()
        Catch 
ex As Exception

        End 
Try 

مرفق قاعدة البيانات
لم استطع ارفاق كافة الملفات نظرآ لكبر الحجم


الملفات المرفقة
.zip   db1.zip (الحجم : 13.36 ك ب / التحميلات : 187)
الرد
تم الشكر بواسطة:
#2
انت غير مطالب بإضافة حقل الترقيم التلقائي ... انت بتنشأه مع قاعدة البيانات وتم حفظه تلقائيا بكود الحفظ
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] حفظ البيانات دفعة واحدة الداتا جريد فيو mahmoud.3com 0 46 10-11-18, 05:51 AM
آخر رد: mahmoud.3com
  مشكلة قاعدة البيانات لا تقبل البيانات بعد التنصيب abozeyd 8 271 10-09-18, 08:02 AM
آخر رد: elgokr
  سؤال حول عرض البيانات في الداتا جريد والاستعلام alfaiz678 12 583 25-08-18, 10:00 PM
آخر رد: elgokr
  [سؤال] حول تحديث البيانات داخل DataGridView مبرمج بلا حدود 20 3,704 14-08-18, 09:00 PM
آخر رد: elgokr
  كيفية حفظ التعديل في Data Grid View مباشرا الى قاعدة البيانات اللورد محمود 1 374 02-08-18, 07:26 PM
آخر رد: سعود
  [VB.NET] الداتا غريد فيو Data Grid View QWERTU 3 299 25-07-18, 04:15 PM
آخر رد: elgokr
  [VB.NET] مشكلة فى زر Login الخاص بشاشة الدخول Michael Maher 6 930 18-05-18, 02:14 AM
آخر رد: Michael Maher
  خطأ في الإتصال بقاعدة البيانات الموجودة على هذا السيرفر (ويندوز 10) djelloul 0 211 04-05-18, 12:14 AM
آخر رد: djelloul
  بحث و اظهار سجلات من قاعدة البيانات في حال تساوت اول 4 ارقام من text بالقيمه الموجود ahmed_elwerfalli 0 254 25-04-18, 04:12 PM
آخر رد: ahmed_elwerfalli
  مشكلة حفظ تعديلات الداتاقريد دمعة المقهور 7 2,355 22-04-18, 06:32 PM
آخر رد: دمعة المقهور

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم