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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Exclamation كيفية ربط قواعد البيانات mysql ب فيجوال بيسك دوت نت Yasser_Abuelhassab 1 86 25-07-21, 02:31 AM
آخر رد: ابو انس
  [سؤال] مشكلة Provider للاتصال بقاعدة البيانات نيمو 3 129 22-07-21, 09:59 PM
آخر رد: نيمو
  الاستعلام عن البيانات في عام محدد aftfm 2 191 18-07-21, 02:10 PM
آخر رد: abomo3ath
  [سؤال] كود لحذف جميع البيانات من قاعدة البيانات Necro PC 11 380 17-07-21, 08:30 PM
آخر رد: Jounior_P
  [سؤال] استيراد بيانات لقاعدة البيانات وعمل مقارنة nandy2016 2 1,186 16-07-21, 02:12 PM
آخر رد: إليسار
  كيفية اضافة مشغل mpv بداخل الفورم ميدو الفنان 45 4,973 15-07-21, 02:45 AM
آخر رد: islam39
  [VB.NET] انشاء progress bar يعمل عند الاستيراد من قاعدة البيانات adam mostafa 9 587 14-07-21, 01:45 AM
آخر رد: kebboud
  [سؤال] اضافة صوره من مجلد الى كرستال ريبورت alhoraibi800 3 273 02-07-21, 11:56 AM
آخر رد: Lathe1
  اضافة الى string aldery 2 272 01-07-21, 01:07 AM
آخر رد: aldery
  [VB.NET] DataGridView تأخذ وقتاً كثيراً في تحميل البيانات adam mostafa 4 323 27-06-21, 04:31 PM
آخر رد: adam mostafa

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


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