التصدير والاستيراد من الاكسل

بصراحة لم اجرب باستخدام الفيجول VB.NET 2008

ولكن باستخدام السي شارب وهذا الكود وانت قم بالتحويل الىVB.NET 2008

ممكن انتساعدك في صنع شفرتك الخاصة بك باستخدام في بي

الاتصال

اولا الاتصال

using System.Data.OleDb;

  OleDbConnection cc = new OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\myFolder\\myAccess2007file.accdb;Persist Security Info=False;");

using System.IO;
using System.Data.SqlClient;
using System.Data.OleDb;
using System.Data.Common;

لاستيراد

protected void bt_imp_Click(object sender, EventArgs e)
	{
    	if (FileUpload1.HasFile)
    	{
        	string tempFileName = FileUpload1.FileName;
        	string tempFileLocation = HttpContext.Current.Server.MapPath(ConfigurationManager.AppSettings["FileLocation"]);
        	saveLocation = Path.Combine(tempFileLocation, tempFileName);

        	FileUpload1.SaveAs(saveLocation);
        	if (File.Exists(saveLocation))
        	{
            	string strExcelConnection = string.Format(@"Provider=Microsoft.ACE.OLEDB.12.0;Data Source={0};Extended Properties=Excel 12.0;", saveLocation);
            	try
            	{
                	using (OleDbConnection conncetion = new OleDbConnection(strExcelConnection))
                	{
                    	String stm="SELECT [user_id],[users_name],[user_gender],[user_age],[user_job],"+
                        	"[user_acdmic],[user_email],[user_mobi],[user_flage],[user_region],[user_city],[user_count],"+
                        	"[user_name_login],[user_password],[gro_name],[itm_name],[user_gold]";
                    	OleDbCommand command = new OleDbCommand(stm, conncetion);
                    	conncetion.Open();

                    	using (DbDataReader dr = command.ExecuteReader())
                    	{
                        	string sqlConncetionString = ConfigurationManager.ConnectionStrings["testimpConnectionString"].ConnectionString;

                        	using (SqlBulkCopy bulkCopy = new SqlBulkCopy(sqlConncetionString))
                        	{

                            	bulkCopy.DestinationTableName = "Test";
                            	bulkCopy.WriteToServer(dr);
                        	}

                    	}


                	}
            	}
            	catch (Exception ex)
            	{
                	Label11.Text = ex.ToString();
            	}
        	}
    	}


	}

للتصدير

protected void bt_Export_Click(object sender, EventArgs e)
	{

    	GridView1.DataSource =  cF.getFilerResult(gender0.SelectedItem.Value, Age0.SelectedItem.Value,
        	job0.SelectedItem.Value, Acdmic0.SelectedItem.Value,
        	region0.SelectedItem.Value, Country0.SelectedItem.Value);
    	GridView1.DataBind();

    	Response.Clear();


    	Response.Charset = "UTF-8";
    	Response.AddHeader("content-disposition", "attachment;    	filename=FileName.xls");



    	// If you want the option to open the Excel file without saving than

    	// comment out the line below

    	Response.Cache.SetCacheability(HttpCacheability.NoCache);

    	Response.ContentType = "application/vnd.xls";

    	System.IO.StringWriter stringWrite = new System.IO.StringWriter();

    	System.Web.UI.HtmlTextWriter htmlWrite =
    	new HtmlTextWriter(stringWrite);

    	GridView1.RenderControl(htmlWrite);

    	Response.Write(stringWrite.ToString());

    	Response.End();

	}

بارك الله فيك على سرعة الرد ولكن فى الحقيقة لم استطع ان احوله الى vb.net فارجو المساعدة فى تحويله الى vb.net ولكم جزيل الشكر

هل هو تطبيق مكتبي أم تطبيق ويب

هو تطبيق مكتبى

الحل تطبيق ويب

هل تريده

تطبيق مكتبى

EMNALI كتب:

الحل تطبيق ويب

هل تريده

تطبيق مكتبى

نعم اريده تطبيق مكتبى

الإستيراد من ملف إكسل إلى dataset

        Dim ds1 As DataSet
        Dim sheet As String = "Sheet Name"
        Dim ExcelFilePath As String = "c:\\test.xls"
        Dim mycn As OleDb.OleDbConnection
        Dim myad As OleDb.OleDbDataAdapter
        mycn = New System.Data.OleDb.OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0")
        Dim query = "select * from [" + sheet + "$]"
        myad = New System.Data.OleDb.OleDbDataAdapter(query, mycn)
        ds1 = New System.Data.DataSet
        myad.Fill(ds1)

والتصدير إلى إكسل إليك المثال التالي

        Dim excelApp As New Excel.Application
        Dim excelBook As Excel.Workbook = excelApp.Workbooks.Add
        Dim excelWorksheet As Excel.Worksheet = CType(excelBook.Worksheets(1), Excel.Worksheet)
        Const STYLE_NAME As String = "PropertyBorder"
        Dim sty As Excel.Style
        sty = excelBook.Styles(STYLE_NAME)
        sty.Font.Name = "Verdana"
        sty.Font.Size = 12
        sty.Font.Color = ColorTranslator.ToOle(Color.Black)
        sty.Interior.Color = ColorTranslator.ToOle(Color.LightYellow)
        sty.Interior.Pattern = Excel.XlPattern.xlPatternSolid
        excelWorksheet.Range("A1").Value = "Test Value"
        excelBook.SaveAs("c:\\test.xls")
        excelBook.Close()
        excelApp = Nothing

بارك الله فيك اخى على الرد ولكن اعذرنى فانا ما زلت مبتدأ فى لغة vb.net هل من الممكن ان توضح لى اين اضع الكود بالظبط واذا كان هناك مثال جاهز فلك الشكر واعذرنى مرة اخرى

بارك الله فيك اخى على الرد ولكن اعذرنى فانا ما زلت مبتدأ فى لغة vb.net هل من الممكن ان توضح لى اين اضع الكود بالظبط واذا كان هناك مثال جاهز فلك الشكر واعذرنى مرة اخرى

أخي الكريم ...

أنت هنا لتتعلم وعليك أن تجرب وتتعلم حتى تتخطى مرحلة المبتدئ ...

بإمكانك وضع الكود السابق في حدث ضغط على زر للإستيراد أو التصدير حسب حاجتك فلست أنا من يقرر أين ستضع الكود ولكن أنت من يقرر أين أنت بحاجته ...

وشكرا لك ...

السلام عليكم ارجو ارفاق المشروع سيكون الامر اسهل وانا ساحاول ترجمته الي VB