[Anas Mahmoud]

اقصد هكذا 

   

[chankar]

(20-09-20, 05:41 PM)Anas Mahmoud كتب : اقصد هكذا 

نفس المشكل اخي و الكود لم يعطيني اي خطء لا زال يعطي رسالة خطء

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

[mrfodri]

هذا الكود على المرفق في الموضوع مساعدة بخصوص حفظ عدد داخل datagridview

كود :

Imports System.Data.OleDb

Public Class Form1

   Dim con As New OleDbConnection(" Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\client.mdb")
   Dim da As New OleDbDataAdapter
   Dim dt As New DataTable

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

       If IO.File.Exists(My.Settings.s1) = False Then
           Dim OpenFileDialog1 As New OpenFileDialog
           OpenFileDialog1.Filter = "database|*.mdb"
           If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.Cancel Then Close()
           My.Settings.s1 = OpenFileDialog1.FileName
       End If
       con = New OleDbConnection(" Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & My.Settings.s1 & "")

       da = New OleDbDataAdapter("select*from stock ", con)
       dt = New DataTable
       da.Fill(dt)
       DataGridView1.DataSource = dt
   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       dt.Rows.Add()
       Dim last As Integer = dt.Rows.Count - 1
       dt.Rows(last).Item("num_pro") = TextBox1.Text
       dt.Rows(last).Item("nom_pro") = TextBox2.Text
       dt.Rows(last).Item("alkmiya") = TextBox3.Text
       dt.Rows(last).Item("t_j_dh") = TextBox4.Text
       dt.Rows(last).Item("t_b_dh") = TextBox5.Text

     
       Dim save As New OleDbCommandBuilder
       save = New OleDbCommandBuilder(da)
       da.Update(dt)
       dt.AcceptChanges()


     

   End Sub

   Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

       'For i As Integer = 0 To dt.Rows.Count - 1

       '    dt.Rows(i).Item("alkmiya") = dt.Rows(i).Item("alkmiya") - TextBox6.Text

       'Next

       Dim i As Integer = DataGridView1.CurrentRow.Index
       dt.Rows(i).Item("alkmiya") = dt.Rows(i).Item("alkmiya") - TextBox6.Text

       da.UpdateCommand = New OleDb.OleDbCommandBuilder(da).GetUpdateCommand()
       da.Update(dt)
       dt.AcceptChanges()

   End Sub

End Class

[chankar]

(20-09-20, 08:34 PM)mrfodri كتب : هذا الكود على المرفق في الموضوع مساعدة بخصوص حفظ عدد داخل datagridview

كود :

Imports System.Data.OleDb

Public Class Form1

   Dim con As New OleDbConnection(" Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\client.mdb")
   Dim da As New OleDbDataAdapter
   Dim dt As New DataTable

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

       If IO.File.Exists(My.Settings.s1) = False Then
           Dim OpenFileDialog1 As New OpenFileDialog
           OpenFileDialog1.Filter = "database|*.mdb"
           If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.Cancel Then Close()
           My.Settings.s1 = OpenFileDialog1.FileName
       End If
       con = New OleDbConnection(" Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & My.Settings.s1 & "")

       da = New OleDbDataAdapter("select*from stock ", con)
       dt = New DataTable
       da.Fill(dt)
       DataGridView1.DataSource = dt
   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       dt.Rows.Add()
       Dim last As Integer = dt.Rows.Count - 1
       dt.Rows(last).Item("num_pro") = TextBox1.Text
       dt.Rows(last).Item("nom_pro") = TextBox2.Text
       dt.Rows(last).Item("alkmiya") = TextBox3.Text
       dt.Rows(last).Item("t_j_dh") = TextBox4.Text
       dt.Rows(last).Item("t_b_dh") = TextBox5.Text

     
       Dim save As New OleDbCommandBuilder
       save = New OleDbCommandBuilder(da)
       da.Update(dt)
       dt.AcceptChanges()


     

   End Sub

   Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

       'For i As Integer = 0 To dt.Rows.Count - 1

       '    dt.Rows(i).Item("alkmiya") = dt.Rows(i).Item("alkmiya") - TextBox6.Text

       'Next

       Dim i As Integer = DataGridView1.CurrentRow.Index
       dt.Rows(i).Item("alkmiya") = dt.Rows(i).Item("alkmiya") - TextBox6.Text

       da.UpdateCommand = New OleDb.OleDbCommandBuilder(da).GetUpdateCommand()
       da.Update(dt)
       dt.AcceptChanges()

   End Sub

End Class

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

---

   هدا ما حدث اخي بعد ان اضفت الكود واستخرجة المشروع من بواسطة publish new
بعد تثبيتي للمشروع والضغط علي stock يظهر كالتالي

وعندما اضغط annuler تطهر مره اخري رسالة الخطء تلك 

[chankar]

(20-09-20, 05:37 PM)boudyonline كتب : اقفل القوس بطريقة سليمة

كود :

Dim con As New OleDbConnection("Provider = Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\Client.mdb")

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