[C#.NET] طلب تحويل كود - نسخة قابلة للطباعة

كود :

Dim dlg As FileDialog, strFileName As String

Set dlg = Application.FileDialog(msoFileDialogFilePicker)

With dlg

.Title = "اختر ملف اكسيل المراد استيراد البيانات منه"

.AllowMultiSelect = False

.Filters.Clear

.Filters.Add "Excel Files", "*.xls*", 1

.Filters.Add "All Files", "*.*", 1

If .Show = -1 Then

strFileName = .SelectedItems(1)





Dim ImportFileName As String

ImportFileName = strFileName

DoCmd.TransferSpreadsheet acImport, 8, "table1", ImportFileName, True



Else

Exit Sub

End If

End With

كود :

private void cmdExcel_Click(object sender, EventArgs e)



        {

            {

                OpenFileDialog op = new OpenFileDialog();

                op.Filter = "Excel 97 - 2003|*.xls|Excel 2007|*.xlsx";

                if (op.ShowDialog() == System.Windows.Forms.DialogResult.OK)

                {

                    if (File.Exists(op.FileName))

                    {

                        string[] Arr = null;

                        Arr = op.FileName.Split('.');

                        if (Arr.Length > 0)

                        {

                            if (Arr[Arr.Length - 1] == "xls")

                            {

                                sConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + op.FileName + ";Extended Properties=\"Excel 8.0;HDR=Yes;IMEX=1\";";

                            }

                            else if (Arr[Arr.Length - 1] == "xlsx")



                                sConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + op.FileName + ";Extended Properties='Excel 12.0 XML;HDR=YES;';";

                        }

                    }

                        FillData();



                    

                }

            }

        }



public string sConnectionString;

        private void FillData()

        {

            if (sConnectionString.Length > 0)

            {

                OleDbConnection cn = new OleDbConnection(sConnectionString);



                cn.Open();

                DataTable dt = new DataTable();

                OleDbDataAdapter Adpt = new  OleDbDataAdapter("selsct * from [tblBlackList]", cn);

                Adpt.Fill(dt);







            }



            {

                OleDbConnection con = new OleDbConnection(sConnectionString);

                da = new OleDbDataAdapter("selsct * from [tblBlackList]", con);

                dt = new DataTable();

                da.Fill(dt);

               

            }



{