طيب ودك تحفظ من الاكسل الى الاكسس؟
صح الكلام؟
منتظر ردك.
جربت الكود التالي وتم حفظ كافة محتويات الداتاجريد الى اكسس
صح الكلام؟
منتظر ردك.
جربت الكود التالي وتم حفظ كافة محتويات الداتاجريد الى اكسس
كود :
Dim con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=|datadirectory|\Database.accdb")
Dim cm As New OleDb.OleDbCommand("", con)
If con.State = ConnectionState.Closed Then
con.Open()
End If
For a = 0 To NotificationDataGridView.Rows.Count - 1
cm.Parameters.Clear()
cm.CommandText = "insert into Notification([Notification],[User status],[Planner group]) values(@n,@u,@pg)"
cm.Parameters.AddWithValue("@n", NotificationDataGridView.Rows(a).Cells.Item(0).Value)
cm.Parameters.AddWithValue("@u", NotificationDataGridView.Rows(a).Cells.Item(1).Value)
cm.Parameters.AddWithValue("@pg", NotificationDataGridView.Rows(a).Cells.Item(2).Value)
cm.ExecuteNonQuery()
Nextاللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
