تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] اضافة البيانات من الداتاتابل الي الداتابيز
#1
السلام عليكم ورحمة الله وبركاتة

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

الملف لة حد اقصي للاعمدة وهم خمسة اعمدة  ولكن ممكن ان يكون بية 3 او 2 او 1  عمود الملف لابد ان يحتوي علي 5 اسماء ثابتة <colaوcolD,colC,colB>  فعايز اقارن بين اسم العمود والاسم الثابت علي اعتبار ان الثابت موجود واسم العمود ليس لة مكان محدد بالاكسيل او الداتاتابل .

ما اريدة هوا نقل البيانات واضافتاها من الداتاتابل الي الداتابيز المشكلة اسماء الاعمدة ممكن تتغير ليس لها عمود محدد او الاعمدة ليست محددة ؟؟

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

كود :
Dim parta, partb, partc, partd As String


Dim i As Integer = 0
For i = 0 To dt2.Rows.Count - 1
If dt2 Is Nothing Then
Exit For : Exit Sub

End If

If (dt2.Rows(0)("cola").ToString = "cola") Then

parta = dt2.Rows(i)("cola")

End If


If (dt2.Rows(0)("colb").ToString = "colb") Then

partb = dt2.Rows(i)("colb")

End If

If (dt2.Rows(0)("colc").ToString = "colc") Then

partc = dt2.Rows(i)("colc")

End If

If (dt2.Rows(0)("cold").ToString = "cold") Then

partd = dt2.Rows(i)("cold")

End If
Dim com As New OleDbCommand("INSERT INTO EXPORT_TB(EXPORT_a,EXPORT_b,EXPORT_c,EXPORT_d) VALUES (@EXPORT_a,@EXPORT_b,@EXPORT_c,@EXPORT_d)", con)

com.Parameters.AddWithValue("@EXPORT_a", OleDbType.VarChar).Value = parta
com.Parameters.AddWithValue("@EXPORT_b", OleDbType.VarChar).Value = partb
com.Parameters.AddWithValue("@EXPORT_c", OleDbType.VarChar).Value = partc
com.Parameters.AddWithValue("@EXPORT_d", OleDbType.VarChar).Value = partd

con.Open()
com.ExecuteNonQuery()
con.Close()

Next
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية اضافة فيديو لمشروع ابو نور الهدى 4 88 منذ 51 دقيقة مضت
آخر رد: ابو نور الهدى
  اريد خذف كل السجلات من قاعدة البيانات العواجي 2 30 , 05:36 AM
آخر رد: أسعد
  مشكلة في اضافة centent فيه boundary bden1 0 57 17-04-21, 07:13 PM
آخر رد: bden1
  [VB.NET] اضافة عناصر من اليست بوكس1 الي ليست بوكس اخر2 محمد اسماعيل 2 106 10-04-21, 01:59 AM
آخر رد: محمد اسماعيل
  اضافة فورم داخل فورم آخر الميامن 8 4,789 09-04-21, 06:55 PM
آخر رد: alsouf
  [VB.NET] الكود المكافئ لعرض أسماء الجداول فى قاعدة البيانات mmaalmesry 3 179 08-04-21, 07:24 PM
آخر رد: mmaalmesry
  [VB.NET] نقل البيانات من الكمبو الي التريفيو احمد 2021 11 296 05-04-21, 03:28 AM
آخر رد: messry
  حفظ list box في قاعدة البيانات اعينوني,,,,,,, KIKO1992 1 376 04-04-21, 03:45 AM
آخر رد: messry
  [سؤال] سؤال عن ListView و الربط مع قاعدة البيانات alims 1 198 18-03-21, 01:59 AM
آخر رد: alims
  ارجو المساعدة في عرض البيانات على التاتا جرد فيو moahmed.abdelmohsen 1 230 15-03-21, 09:38 PM
آخر رد: moahmed.abdelmohsen

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


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