+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : استراد وزتصدير الداتا الي الاكسيل (/showthread.php?tid=20344)
استراد وزتصدير الداتا الي الاكسيل - khaled12345 - 11-05-17
السلام عليكم ورحمة الله وبركاته الاخوة الكرام
عملت مشروع بسيط لاستيراد وتصدير الداتا من والي الاكسيل
الكود عمل بنجاح في حالة الاستيراد من الاكسيل
ولكن للاسف لم يعمل في حال التصدير للاكسيل
ملف الاكسيل في داخل المشروع واسمه NSN_Data_Base
وكان مسار هذا الملف علي ال D
فبرجاء المساعدة في تصحيح الكود مع وافر الشكر والاحترام
و السلام عليكم ورحمة الله وبركاته
RE: استراد وزتصدير الداتا الي الاكسيل - mansoor - 12-05-17
لم تكمل insert
تكون مثلا
PHP كود :
Dim cmd As New OleDbCommand("INSERT INTO [Sheet1$] VALUES (@Id, @Name, @Age, @Mob)", conn)
cmd.Parameters.AddWithValue("@Id", txtId.Text)
cmd.Parameters.AddWithValue("@Name", txtName.Text)
cmd.Parameters.AddWithValue("@Age", txtAge.Text)
cmd.Parameters.AddWithValue("@Mob", txtMob.Text)
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()
RE: استراد وزتصدير الداتا الي الاكسيل - khaled12345 - 12-05-17
(12-05-17, 03:22 AM)mansoor كتب : لم تكمل insert
تكون مثلا
PHP كود :
Dim cmd As New OleDbCommand("INSERT INTO [Sheet1$] VALUES (@Id, @Name, @Age, @Mob)", conn)
cmd.Parameters.AddWithValue("@Id", txtId.Text)
cmd.Parameters.AddWithValue("@Name", txtName.Text)
cmd.Parameters.AddWithValue("@Age", txtAge.Text)
cmd.Parameters.AddWithValue("@Mob", txtMob.Text)
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()
الاخ الحبيب منصور
اكملت جملة ال insert
ولكن للاسف مازالت لا تعمل فبرجاء فحص المرفقات
مع الشكر والاحترام