(12-04-19, 12:15 AM)elgokr كتب :

مرحباً اخى nourmandour

للاسف لا يمكننى التعديل على المشروع المرفق

واعادة ارساله لك بسبب اختلاف الاصدار

ولكن يمكنك تعديل على السورس لديك

بنائاً لما ساقوم بشرحه الان

تعال على كود الحفظ خاص الحدث Button2_Click

واستبدل كامل الكود بداخله بهذا الكود

كود :

       For i As Integer = 0 To dgrid.RowCount - 1
           Dim sql As String = "INSERT INTO fat_ba (id, numb, [date], sdad, amel, mgma, sanf, kmea, sar, agmale, mdfa) Values (@id, @numb, @date, @sdad, @amel, @mgma, @sanf, @kmea, @sar, @agmale, @mdfa)"
           Dim cm As New OleDb.OleDbCommand(sql, conn)
           Dim sdad As String = ""
           If RadioButton1.Checked = True Then
               sdad = "نقدي"
           ElseIf RadioButton2.Checked = True Then
               sdad = "اجلة"
           ElseIf RadioButton3.Checked = True Then
               sdad = "جزء نقضي"
           End If

           With cm.Parameters
               .AddWithValue("@id", TextBox1.Text).DbType = DbType.String
               .AddWithValue("@numb", dgrid.Rows(i).Cells(0).Value).DbType = DbType.Int32
               .AddWithValue("@date", TextBox2.Text).DbType = DbType.String
               .AddWithValue("@sdad", sdad).DbType = DbType.String
               .AddWithValue("@amel", ComboBox2.Text).DbType = DbType.String
               .AddWithValue("@mgma", dgrid.Rows(i).Cells(1).Value).DbType = DbType.String
               .AddWithValue("@sanf", dgrid.Rows(i).Cells(2).Value).DbType = DbType.String
               .AddWithValue("@kmea", dgrid.Rows(i).Cells(3).Value).DbType = DbType.Int32
               .AddWithValue("@sar", dgrid.Rows(i).Cells(4).Value).DbType = DbType.Currency
               .AddWithValue("@agmale", dgrid.Rows(i).Cells(5).Value).DbType = DbType.Currency
               .AddWithValue("@mdfa", 0).DbType = DbType.Currency
           End With

           If (conn.State = ConnectionState.Open) Then conn.Close()
           conn.Open()
           cm.ExecuteNonQuery()
           conn.Close()
       Next
       MsgBox("تم الحفظ")

قم بفتح شاشة mdconn

واستبدل كامل الكود بها بهذا الكود

كود :

Imports System.Data.OleDb

Module mdconn
   Public conn As New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\data_1.mdb;user id=admin;jet oledb:database password=123")
End Module

بالنهاية لا تنسي ان تجعل السورس يعمل على بيئة 32Bit

من الواضح ان جهازك يعمل على بيئة 32Bit

لذلك لم يحدث معك اى مشكلة ولكن عند اختبار البرنامج

على جهاز من بيئة 64Bit فلا يمكنك تشغيل البرنامج لذلك حرصاً اجعل

البرنامج على بيئة 32Bit

تحياتى لك

وتمنياتى لك التوفيق