تقييم الموضوع :
  • 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
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية اضافة الصوت مع ظهور المسج بوكس ابو نور الهدى 1 104 28-11-21, 12:52 PM
آخر رد: سعود
  كيف يمكن تصدير البيانات الى ملف محدد في الاكسل من الداتاقريدفيو جيولوجي مبتدئ 0 94 27-11-21, 02:56 PM
آخر رد: جيولوجي مبتدئ
Exclamation [VB.NET] فزعتكم شباب ... كيفية عرض جداول وأعمدة قاعدة البيانات أبو خالد الشكري 7 321 26-11-21, 05:53 PM
آخر رد: سعود
Question [سؤال] ما هو عداد المستخدام فى قاعدة البيانات alims 0 86 25-11-21, 10:07 AM
آخر رد: alims
  [سؤال] مشكلة اضافة نص و صورة ادخل الاداء RichTextBox alims 10 371 24-11-21, 02:01 PM
آخر رد: alims
  مساعدة في مشكل للرقم السري لقاعدة البيانات hammadi 1 129 21-11-21, 06:46 PM
آخر رد: asemshahen5
  ممكن شرح اضافة مشغل mpv بداخل الفورم masport tv 6 371 19-11-21, 03:34 AM
آخر رد: معاند الحظ
  كيفية اضافة المكتبة Aspose atefkhalf2004 6 326 16-11-21, 04:04 AM
آخر رد: ابو روضة
  [سؤال] بطئ في جلب اليانات من قاعدة البيانات عبدالكريم برشدان 4 287 14-11-21, 08:50 PM
آخر رد: سعود
  [كود] تصفح البيانات موضوع منقول سعود 0 130 13-11-21, 04:34 AM
آخر رد: سعود

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


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