[VB.NET]

السلام عليكم ورحمة الله وبركاته الى كل الاخوة كبار الشخصيات او كبار المطورين او الأعضاء المتقدمين

يا اخوان انا شخص مبتداء تركت VB6 ودخلت في عالم الدوت نت

كل الي نحتاجه ان نبداء خطوه بخطوه بغض النضر عن فهم واستيعات كل شخص

ولاكن لما نطلب مساعدة لفهم موضوع كالحفظ من الداتا جريد الى قاعدة البيانات واجد مثال فيه التالي
da.Update(dt)
My.Settings.mloc = Me.Location
My.Settings.Save()

If con.State = ConnectionState.Open Then con.Close()


Dim jro As JRO.JetEngine

jro = New JRO.JetEngine()
Dim splitFilename() As String = Split(filename, "\")

Dim onlyFilename As String = splitFilename(splitFilename.Length - 1)

Try
jro.CompactDatabase(" Provider=Microsoft.ace.OLEDB.12.0;Data Source=" & filename,
" Provider=Microsoft.ace.OLEDB.12.0;Data Source=" & filename & "i" & ";Jet OLEDB:Engine Type=5")
'MsgBox("تم الضغط بنجاح")
FileIO.FileSystem.DeleteFile(filename)
FileIO.FileSystem.RenameFile(filename & "i", onlyFilename)


Catch ex As Exception
MsgBox(Err.Description, MsgBoxStyle.Critical)
End Try
وهو جزء من كود الاخ سعود جزاه الله خير على المساعدة ولاكن انا احتاج شي واضح وبسيط
يا اخوان هذا فكري وقدرتي على الفهم
انا احتاج شي واضح عشان بعد كذا ابني عليه كل عمليات الحفظ الي احتاجها

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

---

وانا ارفقت مثال في بداية الموضوع لكي يتم التعديل عليه

[سعود]

كونك منتقل من vb6.0  لا يعني انك لاتفهم في البرمجة شيء.
هذا اولا  ...
ثانيا بما انك عرفت ان هناك اكواد تختص بكذا وكذا  فهذا يعني انك تفهم في التحليل للمشروع وفي النهاية لا توجد مشكلة لو تم تزويدك بمشروع كبير شوي عن الفكرة زيادة في التعلم.

اداة datagridview اذا ضبط مصدر بيانات لها بالكود فانه عند الاغلاق لا تحتاج الا لـ

PHP كود :

da.update(dt) 


لو كان المشروع هو بمثابة تلبية طلب لك فنعم اكون مخطيء ان اضفت امور لم تطلبها لكن المشروع جاء عرضي (يعني عارض- ليس الا)

---

اضف فورم جديد وضع Datagridview باسم dg
وضمن منطقة التصريحات العامة للفورم ضع

PHP كود :

   Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=db.accdb"
    Dim con As New OleDb.OleDbConnection(str)
    Dim dt As DataTable
    Dim sql As String = "select * from tb"
    Dim da As OleDb.OleDbDataAdapter
    Dim cmd As OleDb.OleDbCommandBuilder 


ثم اكتب هذا الاجراء

PHP كود :

Private Sub gd()
        dt = New DataTable
        da = New OleDb.OleDbDataAdapter(sql, con)
        cmd = New OleDb.OleDbCommandBuilder(da)
        dg.DataSource = Nothing
        dg.Rows.Clear()

        da.Fill(dt)
        dg.DataSource = dt
    End Sub 


الان في حدث تحميل الفورم اكتب

PHP كود :

gd() 


وعند الاغلاق

PHP كود :

       da.Update(dt) 


الان الصورة واضحة جدا لكيفية تحديث البيانات.

---

المثال البسيط مرفق

[مهموم]

السلام عليكم ورحمة الله

أخي الكريم

إذا كنت تتعامل مع قاعدة بيانات SqlServer استخدم تقنية LinqToSql فهي أفضل وأقل جهداَ وأوفر وقتاً،
وإذا كنت تتعامل مع قاعدة بيانات MsAccess استخدم تقنية LinqToDataSet فهي أفضل وأقل جهداً وأوفر وقتاً.

[VB.NET]

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


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

[VB.NET]

السلام عليكم

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

لاكن الكود يقوم بالحفظ تمام مافي اي اشكالية بالحفظ 

بس في رسالة ما ادري ايش المشكلة ارجو ان تفيدوني في الموضوع

ارفقت الصور للخطاء

[VB.NET]

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

بس وش رسالة الخطاء ذي

[سعود]

جرب الطريقة التالية:

PHP كود :

insert into data (name,num) values(@name,@num) 


وكمل....

[VB.NET]

نفس المشكلة اخوي سعود

---

شي غريب يحفظ السجلات في قاعدة البيانات وبعدها يعطيني الخطاء التالي

[VB.NET]

هل يوجد حل

[أبو عمر]

شوف
بداية غير اسم الحقل Name
الى اي اسم ثاني مثلا uName
ثاني شي بعد
dim Rs
dim
dim
اكتب الجملة التالية
Rs.Parameters.clear
وشوف