+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=25306)
أريد كود لاستيراد ملف اكسل من الحاسوب و نقله الى قاعدة البيانات - safox - 09-06-18
من فضلكم أريد عندما أضغط على زر أختار ملف اكسل من بعدها يرسل مباشرة الى قاعدة البيانات mysql
RE: أريد كود لاستيراد ملف اكسل من الحاسوب و نقله الى قاعدة البيانات - فراس الغزي - 09-06-18
اعتقد هذا الكود ينفعك اخي العزيز هذا الكود هو لتحميل الملف من الحاسوب ما يتبقى عليك هو فقك ان تعرف كيف تربطه في قاعدة البيانات
كود :
'Public Con_Excel As New System.Data.OleDb.OleDbConnection
Dim OFD As New OpenFileDialog
With OFD
.Filter = "Excel File (*.xlsx)|*.xlsx""|Excel File (*.xls)|*.xls""|All Files (*.*)|*.*"
.FilterIndex = 3
.Title = "Choose Excel File"
.FileName = "Choose Only Excel File"
End With
'--------------------------------------------------------------
Dim strExt, Strpath As String
If OFD.ShowDialog = DialogResult.OK Then
Txtpath.Text = OFD.FileName
Strpath = OFD.FileName
strExt = OFD.FileName.Substring(OFD.FileName.LastIndexOf("."))
If strExt = ".xls" Then
Con_Excel.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Strpath &";Extended Properties=Excel 8.0;"
ElseIf strExt = ".xlsx" Then
Con_Excel.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="& Strpath &";Extended Properties=Excel 12.0;"
Else
MessageBox.Show(" يجب إختار ملف من نوع أكسل فقط", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)
Strpath = vbNullString : Txtpath.Text = vbNullString
Exit Sub
End If
End IfRE: أريد كود لاستيراد ملف اكسل من الحاسوب و نقله الى قاعدة البيانات - elgokr - 09-06-18
اذا كان ما تقصده
هو تحويل محتوى ملف Excel الى جدول بقاعدة البيانات
فكل ما عليك هو متابعة الفيديو التالى وتطبيق الكود
تحياتى لك
وتمنياتى لك التوفيق