09-06-18, 03:32 AM
من فضلكم أريد عندما أضغط على زر أختار ملف اكسل من بعدها يرسل مباشرة الى قاعدة البيانات mysql 
09-06-18, 03:52 AM
اعتقد هذا الكود ينفعك اخي العزيز هذا الكود هو لتحميل الملف من الحاسوب ما يتبقى عليك هو فقك ان تعرف كيف تربطه في قاعدة البيانات
كود :
'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 If09-06-18, 06:04 AM
اذا كان ما تقصده
هو تحويل محتوى ملف Excel الى جدول بقاعدة البيانات
فكل ما عليك هو متابعة الفيديو التالى وتطبيق الكود
تحياتى لك
وتمنياتى لك التوفيق