ASP里,将Excel导入到Access数据库
运用excel 导入导出access数据库
excel 导入导出access数据库(winform)//从excel导入到数据库。
OleDbConnection conExcel = new OleDbConnection();try{OpenFileDialog openFile = new OpenFileDialog();//打开文件对话框。
openFile.Filter = ("Excel 文件(*.xls)|*.xls");//后缀名。
if (openFile.ShowDialog() == DialogResult.OK){string filename = openFile.FileName;int index = stIndexOf("\\");//截取文件的名字filename = filename.Substring(index + 1);conExcel.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" + Application.StartupPath + "\\Appdata.mdb";//将excel导入access//distinct :删除excel重复的行.//[excel名].[sheet名] 已有的excel的表要加$//where not in : 插入不重复的记录。
string sql = "insert into 用户表select distinct * from [Excel 8.0;database=" + filename + "].[用户表$] where 记录编号not IN (select 记录编号from 用户表)";OleDbCommand com = new OleDbCommand(sql, conExcel);conExcel.Open();com.ExecuteNonQuery();MessageBox.Show("导入数据成功","导入数据", MessageBoxButtons.OK, rmation );}}catch (Exception ex){MessageBox.Show(ex.ToString());}finally{conExcel.Close();}//导出到excel操作。
access数据库导入和导出
一、excel数据导入到access数据库(1)直接导入法1、启动Access,新建一数据库文件。
2、在“表”选项中,执行“文件→获取外部数据→导入”命令,打开“导入”对话框。
3、按“文件类型”右侧的下拉按钮,选中“Microsoft Excel(、xls)”选项,再定位到需要转换的工作簿文件所在的文件夹,选中相应的工作簿,按下“导入”按钮,进入“导入数据表向导”对话框(图1)。
4、选中需要导入的工作表(如“工程数据”),多次按“下一步”按钮作进一步的设置后,按“完成”按钮。
注意:如果没有特别要求,在上一步的操作中直接按“完成”按钮就行了。
5、此时系统会弹出一个导入完成的对话框,按“确定”按钮。
至此,数据就从Excel中导入到Access中。
(2)建立链接法1、启动Access,新建一数据库文件。
2、在“表”选项中,执行“文件→获取外部数据→链接表”命令,打开“链接”对话框。
二、Access中数据导入excel•在Excel中使用Access数据您可能想在Excel工作簿中使用Access数据,以便利用数据分析与绘制图表功能、数据排列与布局的灵活性或其她一些Access中不可用的功能。
将Access数据复制到Excel中您能从Access的数据表视图复制数据,然后将数据粘贴到Excel工作表中。
1. 启动Access,然后打开包含要复制的记录的表、查询或窗体。
2. 在“起始页”选项卡上单击“视图”,然后单击“数据表视图”。
3. 选择要复制的记录。
如果要选择特定列,请在相邻的列标题之间拖动。
4. 在“开始”选项卡上的“剪贴板”组中,单击“复制”。
5. 启动Excel,然后打开要在其中粘贴数据的工作表。
6. 单击要显示第一个字段名称的工作表区域的左上角。
若要确保复制的记录不替换现有记录,请确保工作表中您单击的单元格的下方与右方不存在数据。
7. 在“开始”选项卡上的“剪贴板”组中,单击“粘贴”。
将Access数据导出到Excel通过使用Access中的“导出向导”,能将一个Access数据库对象(如表、查询或窗体)或视图中选择的记录导出到Excel工作表中。
asp实现excel中的数据导入数据库
loop
rse.movefirst
do while not rse.eof
setrst=server.CreateObject("adodb.recordset")
sqlt="select * fromSellman"
rst.opensqlt,conn,1,3
rst.addnew()
objConn.OpenstrConn
strSql="SELECT * FROM [Sheet1$]"
objRS.OpenstrSql,objConn,1,1
objRS.MoveFirst
%><!--#include file="conn.asp"--><%
'循环excel中所有记录
while not objRS.eof
setrs=Server.CreateObject("Adodb.Recordset")
'查询语句
sql_s= "select * fromceshiwherelname='"&objRS(0) & "' and old='"&objRS(1) & "' and sex='"&objRS(2) & "' andguojia='"&objRS(3) & "' and QQ='"&objRS(4) & "'"
rst("Homepage")=c2(rse(8))
用ASP上传Excel表格并导入到数据库
用ASP上传Excel表格并导入到数据库<%set upload=new upload_5xSoftset file=upload.file("file1")formPath="../upload1/"if file.filename="" thenresponse.Write "<script language=‘javascript‘>alert(‘你没选择文件！‘);history.go(-1);</script>"elseif file.filesize>1000 thenfileExt=lcase(right(file.filename,3))if fileExt<>"xls" thenResponse.Write"文件类型非法"Response.endend ifend ifrandomizeranNum=int(9000000*rnd)+10000filename=formPath&year(now)&month(now)&day(now)&h our(now)&minute(now)&second(now)&ranNum&"."&fileExt if file.FileSize>0 thenfile.SaveAs Server.mappath(FileName)end ifconnstr = "driver={microsoft Access driver (*.mdb)}; dbq=" & server.mappath("../../data/#data.mdb")set conn3 = server.createobject("ADODB.CONNECTION")conn3.open connstrset rs=server.createobject("adodb.recordset")rs.Open "select * from User whereUserName=‘"&Session("user")&"‘ " ,conn3,3,3rs("log")=cstr(FileName)rs.updaters.closeconn3.close‘这里用来写导入数据库的程序kl=FileNameop=len(kl)op2= mid(kl,3,op-2)strAddr = Server.MapPath(""&kl)set excelconn=server.createobject("adodb.connection")‘strAddr = file‘‘输出源文件名excelconn.open"Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & strAddr‘‘建立excel记录集set rs2=server.createobject("adodb.recordset")set rs3= Server.CreateObject("ADODB.Recordset")set rs3 = excelconn.OpenSchema(20)op=rs3("TABLE_NAME")sql="select * from "+"["+ op+"]"rs2.open sql,excelconn,1,1‘找到表connstr = "driver={microsoft Access driver (*.mdb)}; dbq=" & server.mappath("../../data/#data1.mdb")set conn = server.createobject("ADODB.CONNECTION")conn.open connstrstrSQL="Delete * From Sheet1 Where user=‘"&Se ssion("user")&"‘"conn.execute strSQLconnstr = "driver={microsoft Access driver (*.mdb)}; dbq=" & server.mappath("../../data/#data1.mdb")set conn = server.createobject("ADODB.CONNECTION")‘删除以前的信息conn.open connstrset rs4= Server.CreateObject("ADODB.Recordset")rs4.open "select * from Sheet1",conn,3,3if rs4.Fields.Count-3 <> rs2.Fields.Count-1 thenresponse.write "要上传的表格格式不对，不能导入统一数据库！"response.endelse‘导入过程for j = 1 to rs2.recordCountrs4.addnewfor i = 0 to rs2.Fields.Count-1rs4.Fields("user")=Session("user")rs4.Fields(i+1)=rs2.Fields(i)nextrs2.movenextnextend if‘ ............‘kl=""strSQL="delete FROM Sheet1 where isnull(品名) = true" conn.execute strSQLconn.closeresponse.write "成功 "response.redirect "../../index.asp"end if。
asp导航excel数据到mssqlaccessmysql等数据方法
asp导航excel数据到mssqlaccessmysql等数据方法下面是一段简单的由asp导入excel数据保存到其它的数据如有mssql access mysql 等哦好了费话不说多了来看看下面的代码吧<! #include file="adoconn asp" > <% Set xlsconn = server CreateObject("adodb connection") set rs=server CreateObject("adodb recordset")source =server mappath(" ")&""&replace(request("path") "/" "") myConn_Xsl="Provider=Microsoft Jet OLEDB ;Data Source=" &source & ";Extended Properties=Excel " xlsconn open myConn_Xslsql="select * from [商品列表$]" set rs=xlsconn execute(sql) if not rs eof then while not rs eof names=rs("商品名") pic=rs("图片")sql="insert into [product](namese pic) values( "& names &" "& pic &" )" conn execute(sql)rs movenext wendend if response write "导入成功" end if %>数据连接文件<! #include file="adoconn asp" >lishixinzhi/Article/program/net/201311/14100。
ASP将Excel导入到Access数据库的方法实例
Excel中的数据导入到Access中，前提是在Access中的表已经建好。
dim conndim conn2set conn=CreateObject("ADODB.Connection")conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source=c:\book1.mdb"set conn2=CreateObject("ADODB.Connection")conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:DatabasePassword=;Extended properties=Excel 5.0;Data Source=c:\book1.xls"sql = "select * FROM [Sheet1$]"set rs = conn2.execute(sql)while not rs.eofsql = "insert into xxx([a],[bb],[c],[d]) values('"& fixsql(rs(0)) &"','"& fixsql(rs(1)) &"','"&fixsql(rs(2)) &"','"& fixsql(rs(3)) &"')"conn.execute(sql)rs.movenextwendconn.closeset conn = nothingconn2.closeset conn2 = nothingfunction fixsql(str)dim newstrnewstr = strif isnull(newstr) thennewstr = ""elsenewstr = replace(newstr,"'","'")end iffixsql = newstrend function导入到Sql Server数据库中时，如果Excel文件和数据库不在同一台服务器上时，请参考上面的代码。
请问如何利用利用asp编写一个可以将excel导入access的功能呢？
解析:
用上传的话，最好先把excel上传到服务器一个固定的地方，然后用adodb 连接服务器 Excel，直接导入到服务器数据库。
用上传的话最好先把excel上传到服务器一个固定的地方然后用adodb连接服务器excel直接导入到服务器数据库
请问如何利用利用asp编写一个可以将excel导入access的功能呢？
分类:电脑/网络 >> 程序设计 >> 其他编程语言
问题描述:
请问如何利用利用asp编写一个可以ห้องสมุดไป่ตู้excel导入access的功能呢？就是有一个上传的框架选择excel文件，然后点击导入，就可以把excel文件导入到access中去。
Excel与Access之间数据导入导出
Excel与Access的数据导入导出本次导入使用的是Microsoft Office 2007中的Access 和 Excel软件从Excel中把数据导入到Access中：1.打开Access2007如上图，点击空数据，新建一个空的数据库。
在界面的右边填入数据库名称“Import Excel”（用户可以自己定义数据库的名称），点击创建按钮新建空数据库，如下图。
2.点击“外部数据”选项页，在“外部数据”选项页导入选项中，可以找到如上图的“Excel”，点击它，弹出如下对话框。
在“文件名字”中找到要导入的“Excel”文件，例如井口文件、样品分析文件、岩性文件等等。
默认的选项为第一项“从源数据中导入到当前数据库”，点击“确定”按钮。
弹出如下对话框。
如果在Excel文件中第一行为列标题，那么就选中复选框“第一行包含列标题”，否则，勾掉该选项。
点击下一步。
3.设置导入文件的格式。
在上图中，依次选中每列，设定他们的数据类型，根据地质上的实际类型来设置即可。
设置完毕，点击“下一步”按钮。
4.设置导入的新数据表的“主键”。
“主键”的含义可查阅相关数据库书籍，用户在此可以使用Access默认的主键，即单选项第一项，也可以选择第二项“选择自己的主键”，或者第三项“没有主键”。
设置完主键点击“下一步”按钮。
5.命名新导入的数据表名称。
如上图，在“导入到表”中填写新表的名称，或者填入已经存在于数据库中的表。
建议新命名一个表。
如要导入成功后分析表格数据格式，可以选择下面的复选框“我想导入数据后分析我的表格”进一步修改数据表格格式。
设置完毕，点击“完成”按钮。
6.保存导入步骤。
在此，如需要保存导入步骤，就选择复选项，如不需保存，则直接点击“关闭”按钮即可。
建议不保存，因为每次导入未必都是同一个步骤。
导入成功后，可以在Access数据库界面的左边看到新导入的数据表格。
双击“assay_new_number”表，即可看到其内的数据，如下图：从Access中导出数据到Excel之中1.首先在Access中打开要导出的数据表格，如下图：2.然后在“外部数据”选项页导出选项中可以找到“Excel”选项，点击它，弹出如下对话框：在上面的对话框中，在“文件名称”中指定导出Excel文件的位置和名称，在“文件格式”中选择导出Excel文件的格式。
将Excel中数据导入到Access数据库中的方法
将Excel中数据导⼊到Access数据库中的⽅法复制代码代码如下:<%@ Page Language="C#" AutoEventWireup="true" CodeFile="Default.aspx.cs" Inherits="_Default" %><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="/1999/xhtml"><head id="Head1" runat="server"><title>⽆标题页</title><style type="text/css">.style1{height: 16px;}.style3{height: 23px;}</style></head><body><form id="form1" runat="server"><div></div><table align="center" border="1" bordercolor="honeydew" cellpadding="0"cellspacing="0"><tr><td style="FONT-SIZE: 9pt; COLOR: #ff0000; BACKGROUND-COLOR: #ff9933; TEXT-ALIGN: center"class="style1"></td><td colspan="2"style="FONT-SIZE: 9pt; COLOR: #ffffff; HEIGHT: 16px; BACKGROUND-COLOR: #ff9933; TEXT-ALIGN: center">将Excel数据写⼊Access数据库中</td></tr><tr><td style="BACKGROUND-COLOR: #ffffcc; TEXT-ALIGN: center"></td><td style="BACKGROUND-COLOR: #ffffcc; TEXT-ALIGN: center"><iframe id="I1" name="I1" scrolling="yes" src="学⽣成绩.xls"style="WIDTH: 407px; HEIGHT: 280px"></iframe></td><td style="WIDTH: 190px; BACKGROUND-COLOR: #ffffcc; TEXT-ALIGN: center"><asp:GridView ID="GridView1" runat="server" CellPadding="4" Font-Size="9pt"ForeColor="#333333" GridLines="None" Width="228px"><FooterStyle BackColor="#990000" Font-Bold="True" ForeColor="White" /><RowStyle BackColor="#FFFBD6" ForeColor="#333333" /><SelectedRowStyle BackColor="#FFCC66" Font-Bold="True" ForeColor="Navy" /><PagerStyle BackColor="#FFCC66" ForeColor="#333333" HorizontalAlign="Center" /><HeaderStyle BackColor="#990000" Font-Bold="True" ForeColor="White" /><AlternatingRowStyle BackColor="White" /></asp:GridView></td></tr><tr><td style="BACKGROUND-COLOR: #ff9900; TEXT-ALIGN: center" class="style3"></td><td style="HEIGHT: 23px; BACKGROUND-COLOR: #ff9900; TEXT-ALIGN: center"valign="top"><asp:Button ID="Button3" runat="server" Font-Size="9pt" onclick="Button1_Click"Text="Excel数据写⼊Access数据库中" /><asp:Label ID="Label1" runat="server" Text="Label" Visible="False"style="font-size: x-small"></asp:Label></td><td style="WIDTH: 190px; HEIGHT: 23px; BACKGROUND-COLOR: #ff9900; TEXT-ALIGN: center"> <asp:Button ID="Button2" runat="server" Font-Size="9pt" onclick="Button2_Click"Text="数据库中显⽰Excel数据" /></td></tr><tr><td> </td></tr></table></form></body></html>复制代码代码如下:using System;using System.Configuration;using System.Data;using System.Linq;using System.Web;using System.Web.Security;using System.Web.UI;using System.Web.UI.HtmlControls;using System.Web.UI.WebControls;using System.Web.UI.WebControls.WebParts;using System.Xml.Linq;using System.Data.OleDb;public partial class _Default : System.Web.UI.Page{protected void Page_Load(object sender, EventArgs e){}public OleDbConnection CreateCon(){string strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" + Server.MapPath("UserScore.mdb") + ";User Id=admin;Password=;";OleDbConnection odbc = new OleDbConnection(strconn);return odbc;}protected void Button1_Click(object sender, EventArgs e){//定义Excel列表string StyleSheet = "Sheet1";//调⽤⾃定义LoadData⽅法，将Excel⽂件中数据读到ASPNET页⾯中LoadData(StyleSheet);//定义查询的SQL语句string sql = "select ID,⽤户姓名,试卷,成绩,考试时间 from Score";//创建Oledb数据库连接OleDbConnection con = CreateCon();con.Open();//打开数据库连接OleDbCommand com = new OleDbCommand(sql, con);//开始事务OleDbTransaction tran = con.BeginTransaction();com.Transaction = tran;//创建适配器OleDbDataAdapter da = new OleDbDataAdapter(com);OleDbCommandBuilder cb = new OleDbCommandBuilder(da);//创建DataSet数据集DataSet ds = new DataSet();//填充数据集da.Fill(ds);int curIndex = 0;if (ds.Tables[0].Rows.Count > 0){curIndex = Convert.ToInt32(ds.Tables[0].Rows[0][0]);}//创建⼀个内存表DataTable tb = this.getExcelDate();string selsql = "";for (int i = 0; i < tb.Rows.Count; i++){string UserName = tb.Rows[i][0].ToString();selsql = "select count(*) from Score where ⽤户姓名='" + UserName + "'";}//判断Excel⽂件中是否已经导⼊到Access数据库中if (ExScalar(selsql) > 0){Label1.Visible = true;Label1.Text = "<script language=javascript>alert('该Excle中的数据已经导⼊数据库中!');location='Default.aspx'; </script>";}else{//循环读取Excel⽂件中数据，并添加到Access事先创建好的数据库表中for (int i = 0; i < tb.Rows.Count; i++){DataRow dr = ds.Tables[0].NewRow();dr[0] = ++curIndex;dr[1] = tb.Rows[i][0];dr[2] = tb.Rows[i][1];dr[3] = tb.Rows[i][2];dr[4] = tb.Rows[i][3];ds.Tables[0].Rows.Add(dr);}try{da.Update(ds);//执⾏插⼊操作mit();//事务提交Label1.Visible = true;Label1.Text = "<script language=javascript>alert('数据导⼊成功！');location='Default.aspx';</script>";}catch{tran.Rollback();//事务回滚Label1.Visible = true;Label1.Text = "<script language=javascript>alert('数据导⼊失败！');location='Default.aspx';</script>";}finally{con.Close();//关闭数据库连接}}}protected void Button2_Click(object sender, EventArgs e){string sqlstr = "select * from Score";OleDbConnection conn = CreateCon();conn.Open();OleDbCommand mycom = new OleDbCommand(sqlstr, conn);OleDbDataReader dr = mycom.ExecuteReader();dr.Read();if (dr.HasRows){GetDataSet(sqlstr);}else{Label1.Visible = true;Label1.Text = "<script language=javascript>alert('数据库中没有数据信息，请先导⼊再查询！');location='Default.aspx'; </script>";}dr.Close();conn.Close();}public DataSet GetDataSet(string sqlstr){OleDbConnection conn = CreateCon();OleDbDataAdapter myda = new OleDbDataAdapter(sqlstr, conn);DataSet ds = new DataSet();myda.Fill(ds);GridView1.DataSource = ds;GridView1.DataBind();return ds;}public DataTable getExcelDate(){string strExcelFileName = Server.MapPath("学⽣成绩.xls");string strcon = "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=" + strExcelFileName + ";" + "Extended Properties='Excel 8.0;HDR=YES;IMEX=1';";string sql = "select * from [Sheet1$]";OleDbDataAdapter da = new OleDbDataAdapter(sql, strcon);DataSet ds = new DataSet();da.Fill(ds);return ds.Tables[0];}public void LoadData(string StyleSheet){//定义数据库连接字符串 mstring strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" + Server.MapPath("学⽣成绩.xls") + ";Extended Properties=Excel 8.0";//创建数据库连接OleDbConnection myConn = new OleDbConnection(strCon);//打开数据链接，得到⼀个数据集myConn.Open();//创建DataSet对象DataSet myDataSet = new DataSet();//定义查询的SQL语句string StrSql = "select * from [" + StyleSheet + "$]";//创建数据库适配器OleDbDataAdapter myCommand = new OleDbDataAdapter(StrSql, myConn);//填充数据集中的数据myCommand.Fill(myDataSet, "[" + StyleSheet + "$]");//释放占有的资源myCommand.Dispose();//关闭数据库连接myConn.Close();}public int ExScalar(string sql){OleDbConnection conn = CreateCon();conn.Open();OleDbCommand com = new OleDbCommand(sql, conn);return Convert.ToInt32(com.ExecuteScalar());conn.Close();}}。
ASP里-将Excel导入到Access数据库
ASP里-将Excel导入到Access数据库2009-11-18 09:28用ASP编的一个网站，数据库是Access,数据库名称是atest,里面有个表格user，user表格有user和password两个字段现要将Excel表格(名称是test.xls)的数据导入到atest数据库的user表中，怎么实现？高手支招............................................................下面连接到test.xls表sheet1$ '表后面要加个$的,一定要加这个符号Set conn = Server.CreateObject("ADODB.Connection")conn.Open "Driver={Microsoft Excel Driver (*.xls)};ReadOnly=0;DBQ=" & Server.MapPath("test.xls")SQL1="select * from [sheet1$]"Set rs = Server.CreateObject("ADODB.Recordset")rs.Open SQL1, conn, 3, 3'下面连接到atest.mdb表usercurDir = Server.MapPath("atest.mdb")Set conn1 = Server.CreateObject("ADODB.Connection")conn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & curDirSet rs1 = Server.CreateObject("ADODB.Recordset")Set rs1.ActiveConnection = conn1rs1.Source = "select * from user"rs1.CursorType = 3 ' adOpenKeysetrs1.LockType = 3 'adLockOptimisticrs1.OpenDo While Not rs.Eofrs1.AddNewrs1(0)=jfor i=0 to rs.Fields.Count-1rs1(i)=Trim(rs(i))Nextrs1.Updaters.MoveNextj=j+1Looprs.Closers1.Closeconn.Closeconn1.CloseSet rs=nothingSet conn=nothing ............................................................................在ASP中怎样把EXCEL导入ACCESSdemo.asp<%Dim cn,oConn,connstr'打开XLS.Set cn = Server.CreateObject("ADODB.Connection")cn.Provider = "Microsoft.Jet.OLEDB.4.0 "cn.ConnectionString = "Data Source=" & Server.MapPath("data.xls") & ";" & _"Extended Properties=Excel 8.0;"cn.Open'打开MDB.connstr="DBQ="+server.MapPath("data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"set oConn=server.CreateObject("ADODB.CONNECTION")oConn.open connstr'读取数据.set rsRead=server.CreateObject("ADODB.Recordset")rsRead.Open "select * from [Sheet1$]",cn,1,1do until rsRead.EOF'写入数据库.oConn.Execute("Insert into users(userid,password)Values('"& rsRead.Fields("userid")&"','" &rsRead.Fields("password") & "')" )rsRead.MoveNextloop%>数据库data.mdb表usersid,uesrid,passwordExcel文件data.xls数据userid passwordwang w521zhange z254hong h112'================!!!!ASP读取EXCEL注事项!!!!======================'i)将Excel97或Excel2000生成的XLS文件（book）看成一个数据库，其中的每一个工作表(sheet)看成数据库表'ii)ADO假设Excel中的第一行为字段名.所以你定义的范围中必须要包括第一行的内容'iii)Excel中的行标题（即字段名）不能够包含数字. Excel的驱动在遇到这种问题时就会出错的。
Asp连接读取excel内容并导入到数据库
Asp连接读取excel内容并导入到数据库asp连接excelSet connnew = Server.CreateObject("ADODB.Connection")'hdr取值yes,no ,表示第一行是否为字段名connStr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath(“test.xls”)&";Extended Properties='Excel 8.0;HDR=No;IMEX=1';"connnew.open connstrSet rsnew=Server.CreateObject("ADODB.Recordset")'Sheet1为excel里面的表名，表名后面一定要加$sqlnew = "select * from [Sheet1$]"rsnew.open sqlnew,connnew,1,1'rows是读取的excel里面数据的行数rows=rsnew.recordcount'cells是读取excel里面数据的列数cells=rsnew.Fields.Count输出记录集rsnew里面的数据，规则是这样的：如果HDR赋值是No的话rsnew(0)输出的是excel里第一行第一列的内容如果HDR赋值是Yes的话rsnew(0)输出的是excel里第二行第一列的内容如果想输出第二行的内容，只需在语句前加rsnew.movenext输出就这么简单的完成了！连接网站数据库，相信各位程序猿都已经会了。
要做的就是用sql语句判断要导入的数据是否存在，存在用update修改一下。
不存在的话addnew重新插入一条即可。
如果想要实现上传excel后导入的话，可以加上一个上传程序，将上传后的excel 路径传输到asp连接excel的字符串里面。
ASP程序将EXCEL数据导入ACCESS数据库
ASP程序将EXCEL数据导入ACCESS数据库，重新编排多个源码数据测试，能用！增加导入字段数量，实现各access数据库的批量导入。
Excelupload.asp<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312" /><title>无标题文档</title><style type="text/css"><!--.STYLE1 {color: #FF0000}--></style></head><body><form action="excelToAccess.asp" method="post" name="form1" id="form1"> <p><input name="bbb" type="file" id="bbb" size="60" /></p><p><input type="submit" name="Submit" ="提交" /></p></form><p class="STYLE1">数据上传请找管理员，提前备份原数据库后方可操作，否则可能引数据丢失或格式混乱，并由管理员提供上传数据模板。
ASP中怎样将本地的Excel文件数据,导入到远程web服务器的Access数据库中？
ASP中怎样将本地的Excel文件数据，导入到远程web服务器的Access数据库中？代码如下：<% @language=vbscript %><% On Error Resume Next %><% Server.ScriptTimeOut=900 %><html><head><link href="Css.css" rel="stylesheet" type="text/css"><meta http-equiv="Content-Type"content="text/html; charset=gb_2312-80"><title>出口企业合同报备导入</title></head><body bgcolor="#FFFFFF" topmargin=0><!--#include file=conn.asp--><%if session("UserName")="" thenresponse.Redirect("Default.asp")end if%><br><!--<div align='center'><h3>出口企业合同报备导入</h3></div><hr>--><center><form method=post action="ImportData.asp">请选择要导入的合同报备文件：<input name="ImportFile" type="file" size="25"><input type="submit" name='btnRead' value='读取数据'></form></center><hr><%IF request("btnRead")<>"" and request("btnImport")="" thenIf request("ImportFile")<>"" then' response.write ("<center><font color=#FF0000>已成功读取文件：" & request("ImportFile")&"</font></center>")Set xlApp = server.CreateObject("Excel.Application")StrSource = request("ImportFile")Set xlbook = xlApp.Workbooks.Open(StrSource)Set xlsheet1 = xlbook.Worksheets(1)Set xlsheet2 = xlbook.Worksheets(2)Set xlsheet3 = xlbook.Worksheets(3)i=2while xlsheet1.cells(i,1)<>""%><table align=center border="1" width="100%" bgcolor="#F7FBFF" bordercolorlight="# 2F97FF" cellspacing="0" bordercolordark="#F0F8FF"><tr><td width="100%" bgcolor="#FFF000"><div align="center"><center><p><font color=bl ue><strong>出口供货企业信息</strong></font></td></tr><tr><td><table cellpadding=0 cellspacing=0 border=0 width='100%'><tr><td height=22 align=right><b>纳税人识别号：</b></td><td height=22 align=left width=100> <font color=#ff0000><%=xlsheet1.Cells(i, 1)% ></font> </td><td height=22 align=right><b>纳税人名称：</b></td><td height=22 align=left width=100> <font color=#ff0000><%=xlsheet1.Cells(i, 2)% ></font> </td><td height=22 align=right><b>联系人：</b></td><td height=22 align=left width=100> <font color=#ff0000><%=xlsheet1.Cells(i, 3)% ></font> </td></tr><tr><td height=21 align=right><b>电话：</b></td><td height=21 align=left width=100> <font color=#ff0000><%=xlsheet1.Cells(i, 4)% ></font> </td><td height=21 align=right><b>地址：</b></td><td height=21 align=left width=100> <font color=#ff0000><%=xlsheet1.Cells(i, 5)% ></font> </td><td height=21 align=right><b>备注说明：</b></td><td height=21 align=left width=100> <font color=#ff0000><%=xlsheet1.Cells(i, 7)% ></font> </td></tr></table></td></tr></table><hr><br><%i=i+1wend%><%j=2while xlsheet2.cells(j,1)<>""%><table align=center border="1" width="100%" bgcolor="#F7FBFF" bordercolorlight="# 2F97FF" cellspacing="0" bordercolordark="#F0F8FF"><tr><td width="100%" bgcolor="#FAD185"><div align="center"><center><p><font color=bl ue><strong>合同信息(合同号:<%=xlsheet2.Cells(j, 1)%>)</strong></font></td></tr><tr><td><table cellpadding=2 cellspacing=0 border=0 width='100%'><tr><td height=20 align=right width=72><strong>合同号:</strong></td><td height=20 align=left width=101> <%=xlsheet2.Cells(j, 1)%> </td><td height=20 align=right width=102><strong>备案日期:</strong></td><td height=20 align=left width=120> <%=Date%> </td> <!--<%=xlsheet2.Cells(j, 2)%>--><td height=20 align=right width=110><strong>购货方识别号:</strong></td><td height=20 align=left width=119> <%=xlsheet2.Cells(j, 3)%> </td><td height=20 align=right width=118><strong>购货单位名称:</strong></td><td height=20 align=left width=175> <%=xlsheet2.Cells(j, 4)%> </td></tr><tr><td height=20 align=right ><strong>签订日期:</strong></td><td height=20 align=left width=101> <%=xlsheet2.Cells(j, 5)%> </td><td height=20 align=right><strong>交货方式:</strong></td><td height=20 align=left width=120> <%=xlsheet2.Cells(j, 6)%> </td><td height=20 align=right><strong>预计交货时间:</strong></td><td height=20 align=left width=119> <%=xlsheet2.Cells(j, 7)%> </td><td height=20 align=right><strong>货款结算方式:</strong></td><td height=20 align=left width=175> <%=xlsheet2.Cells(j, 8)%> </td></tr><tr><td height=22 align=right><strong>生产方式:</strong></td><td height=22 align=left width=101> <%=xlsheet2.Cells(j, 9)%> </td><td height=22 align=right><strong>外贸业务员:</strong></td><td height=22 align=left width=120> <%=xlsheet2.Cells(j, 10)%> </td><td height=22 align=right><strong>联系电话:</strong></td><td height=22 align=left width=119> <%=xlsheet2.Cells(j, 11)%> </td><td height=22 align=right><strong>供货企业业务员:</strong></td><td height=22 align=left width=175> <%=xlsheet2.Cells(j, 12)%> </td></tr></table><%k=2%><!-- <table cellpadding=0 cellspacing=0 border=1 width='100%'> --><table width=100% border=1 align="center" cellpadding=1 cellspacing=1 bordercolor= "#333333" style="border-collapse: collapse"><tr bgcolor="#FFFFFF" height="20"><td height=20 align=center width=189><strong> 产品名称</strong></td><td height=20 align=center width=113><strong> 计量单位</strong></td><td height=20 align=center width=116><strong> 产品数量</strong></td><td height=20 align=center width=104><strong> 单价</strong></td><td height=20 align=center width=118><strong> 金额</strong></td><td height=20 align=center width=93><strong> 税率</strong></td><td height=20 align=center width=103><strong> 税款</strong></td><td height=20 align=center width=92><strong> 合计</strong></td></tr><%while xlsheet3.cells(k,1)<>""if xlsheet3.cells(k,1)=xlsheet2.cells(j,1) then%><tr><td height=20 align=center width=189> <%=xlsheet3.Cells(k, 2)%> </td><td height=20 align=center width=113> <%=xlsheet3.Cells(k, 3)%> </td><td height=20 align=center width=116> <div align="right"><%=xlsheet3.Cells(k, 4)% > </div></td><td height=20 align=center width=104> <div align="right"><%=xlsheet3.Cells(k, 5)% > </div></td><td height=20 align=center width=118> <div align="right"><%=xlsheet3.Cells(k, 6)% > </div></td><td height=20 align=center width=93> <div align="right"><%=xlsheet3.Cells(k, 7)%> </div></td><td height=20 align=center width=103> <div align="right"><%=xlsheet3.Cells(k, 8)% > </div></td><td height=20 align=center width=92> <div align="right"><%=xlsheet3.Cells(k, 9)%> </div></td></tr><%end ifk=k+1wend%></table></td></tr></table> <!-- 整张合同的表格结束--><br> <br><%j=j+1wendresponse.write "</br>"set xlsheet1=nothingset xlsheet2=nothingset xlsheet3=nothingset xlbook=nothingxlApp.quit%><div align='center'><form method='post' action='ImportData.asp?ImportFile=<%=StrSource%>'> <input type="submit" name="btnImport" value='导入数据'></form></div><br><%Elseresponse.write ("<br><center>请选择要读取的文件！</center><br>")End ifEND IF%>Set xlApp = server.CreateObject("Excel.Application")set ExcelAPP = CreateObject("Excel.Application") 生成EXCEL对象ExcelAPP.Workbooks.open(文件) 打开文件大开本地Excel请用Set xlApp = new ActiveXObject("Excel.Application");。
ASP中将Excel数据导入到Access
ASP中将 Excel数据导入到 Access
以下为引用的内容：
<% dim conn ’定义一个连接变量 dim conn2 ’定义第二个连接变量 ’On Error Resume Next Server.ScriptTimeOut = 999999 ’超时时间 set conn=CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source="&Server.MapPath("Fang.mdb") ’ 要导入的数据库名称，这里是Fang.mdb
conn.close set conn = nothing conn2.close set conn2 = Nothing
If Err = 0 Then Response.Write "导入成功" Else Response.Write "导入失败!" End If
function fixsql(str) dim newstr newstr = str if isnull(newstr) then newstr = "" else newstr = replace(newstr,"’","’’") end if fixsql = newstr end Function %>
set conn2=CreateObject("ADODB.Connection") conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Extended properties=Excel 5.0;Data Source=" &Server.MapPath("Fang.xls") ’要导入的EXCEL表名称Fang.xls ’-----------------------------------------------------------------------------------’这里要说明的是，数据库和Excel表和该文件必须在网站同一目录里 ’----------------------------------------------------------------------------------------------------------------sql = "SELECT * FROM [Sheet1$]" ’要导入的Excel数据里面的表的名称，后面一定要加$ set rs = conn2.execute(sql) while not rs.eof sql = "insert into zhenya([country],[mobile]) values(’"& fixsql(rs(0)) &"’,’"& fixsql(rs(1)) &"’)" ’其中的zhenya是要导入的目标表，其后的country，mobile是zhenya表中的字段名，但是要和后面的fixsql（rs（数字））要对 应！ ’response.write sql ’response.end conn.execute(sql) rs.movenext Response.Write "正在插入 "&sql&"<Br>" ’在这里输出执行的语句，可以去掉的！ Response.Flush wend
用asp将excel表数据导入access数据库的代码
Set rst = Server.CreateObject("ADODB.Recordset")
Sql2="select usrname,usrpwd,question,answer,sj from company"
rst.Open Sql2,sqlconn,1,3
if rst.Fields.Count-1=rs.Fields.Count-1 then '如果字段个数据相同则
Sql2="select id,usrname,usrpwd,question,answer,sj from company"
rst.Open Sql2,sqlcields.Count-1
%>
<td nowrap bgcolor="#999999"> <div align="center"><font color="#FFFFFF"><%=rst(i).Name%>[/red]</div></td>
sqlconn.Open"provider=microsoft.jet.oledb.4.0;data source="& Server.MapPath("../#bijiadata/company.mdb")
sqlconn.execute("delete * from company")
%>
导入的access数据库的数据如下：
<table border="1" align="center" cellpadding="4" cellspacing="4" bordercolordark="#FFFFFF">
Access 2010数据库应用：将Excel工作表中的数据导入到数据库中
【任务3-6】将Excel工作表中的数据导入到数据库中【任务描述】将Excel电子表格“Book3.xlsx”中的工作表“读者信息”中的数据导入到数据库“Book3.accdb”中。
【任务实施】1．准备工作表“读者信息”准备Excel文件“Book3.xlsx”，在该文件中准备“读者信息”工作表，并输入一些读者数据。
2．准备目标数据库打开要在其中存储所导入数据的Access数据库“Book3.accdb”，同时确保该数据库不是只读的，并且具有更改该数据库的权限。
3．开始导入操作（1）在【外部数据】选项卡的【导入并链接】组中单击选择【Excel】命令按钮，如图3-28所示，然后打开【获取外部数据- Excel电子表格】对话框。
图3-28 【外部数据】选项卡的【导入并链接】组按钮（2）在【获取外部数据- Excel 电子表格】对话框的【文件名】文本框中，指定要导入数据所在的Excel文件的路径和文件名。
或者单击【浏览】按钮并使用【打开】对话框以找到想要导入的文件。
如图3-29所示。
图3-29 【获取外部数据- Excel 电子表格】的“选择数据的源和目标”对话框（3）在【获取外部数据- Excel 电子表格】对话框中指定所导入数据的存储方式。
如果要将数据存储在新表中，则选择【将源数据导入当前数据库的新表中】。
如果要将数据追加到现有的表中，则选择【向表中追加一份记录的副本】，然后从下拉列表中选择数据表。
（4）然后单击【确定】按钮。
【导入数据表向导】将会启动，并引导操作者完成整个导入过程，继续执行下一组步骤。
4．使用【导入数据表向导】（1）在向导的第1页上，选择要导入的数据所在的工作表，这里选择“读者信息”，单击选择【显示工作表】或【显示命名区域】单选按钮，选择要导入的工作表或命名区域，如图3-30所示，然后单击【下一步】按钮。
图3-30 【导入数据表向导】的“选择合适的工作表或区域”对话框（2）如果源工作表或区域的第一行包含字段名称，则选择【第一行包含列标题】，如图3-31所示。
如何将excel里的数据批量导入ACCESS
下面是对EXECL的基础操作说明：Set xlApp = CreateO bject("Excel.Applica tion")‘激活EXCEL应用程序xlApp.Visible = False ‘隐藏EXCEL应用程序窗口Set xlBook= xlApp.Workboo ks.Open(strDest inatio n)‘打开工作簿，strDestinatio n为一个EX CEL报表文件Set xlSheet = xlBook.Workshe ets(1)‘设定工作表1、定义EXCEL对象变量dim x as excel.applica tion2、VB中，启动EXCELset x=createo bject("excel.applica tion")3、新建一个EXC EL工作簿x.workboo ks.add4、选定工作表1set xsheet=xbook.workshe ets(1)5、指定单元格，并赋值xsheet.cell(1,1)=ret.fields(0)6、指定EXCEL列宽xsheet.column(1).columnw idth=107、RANGE（）函数，选定单元格区域range(cells(1,1),cells(10,20))8、设置EXCEL字体xsheet.range(cells(1,1),cells(10,20))="黑体"9、设置EXCEL为粗体xsheet.range(cells(1,1),cells(10,20)).fontbol d=true10、设置EXCEL表格边框xsheet.range(cells(1,1),cells(10,20)).borders.linesty le=xlconti nuous11、运行时，显示EXCEL或隐藏EXCELx.visible=true12、保存工作簿xbook save13、退出EXCELx.quit14、交还控制权给E X CELset x=nothing15、打印EXCEL表x.active.window.selecte dsheet s.printou t copies=numcopi es16、退出EXCEL时，不出现保存提示。
ASP.NET中导入Excel数据到数据库的应用与实现
中导入Excel数据到数据库的应用与实现在 中进行Web 开发时，经常需要将各种数据表格导入数据库以便系统对数据进行处理。
文章介绍了Excel与数据库之间的数据导入方法的设计思路，实现了将Excel文件数据导入到数据库中，对信息系统开发有重要的意义。
标签：；Excel；数据库；数据导入引言数据的导入与导出是与SQL Server 项目中不可或缺的功能模块，是管理信息系统中是较常见的功能。
文章基于项目《SIM卡管理系统设计》中导入Excel数据到数据库中的需求，实现了将Excel表格数据导入到SQL Server中，大大提高了数据的管理功能，实现了对数据的批量管理。
1 实现数据导入方法的设计思路将Excel数据上传到服务器的目录upfile中，连接Excel，以Excel文件作为数据源，将Excel中的数据读取到数据集DataSet中之后，对数据集中的数据按字段进行逐个读取，然后再将读取的数据构成SQL語句插入到对应的数据库中。
2 数据库的数据结构与Excel表格结构设计在这一过程中，首先限制用户只能上传Excel文件，然后再调用（1）中定义的方法，返回数据集，再循环读取数据集中的数据，构建SQL语句插入到数据库中，完成数据的导入。
4 结束语文章通过编写客户端程序来实现数据的导入功能，采用的是中提供的OLE DB Provider for Jet 4.0链接到Excel，将Excel数据读取到数据集对象中，然后再读取数据集中的数据构建SQL语句插入到数据库中。
这种批量的数据导入方式，节省了用户录入数据的时间，也不会因为数据过多而造成遗忘或者混乱。
参考文献[1]沈浩，邓晓军.基于的批量Excel数据导入通用模块的设计与实现[J].电脑知识与技术，2012，12.[2]刘国芳，张炜，冯王兵.基于的批量数据导入方法的研究与实现[J].电脑知识与技术，2014，8.。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
'ii)ADO假设Excel中的第一行为字段名.所以你定义的范围中必须要包括第一行的内容
'iii)Excel中的行标题（即字段名）不能够包含数字. Excel的驱动在遇到这种问题时就会出错的。例如你的行标题名为“F1”
loop
%>
数据库data.mdb
表users
id,uesrid,password
Excel文件data.xls
数据
userid password
wang w521
zhange z254
hong h112
'================!!!!ASP读取EXCEL注事项!!!!======================
oConn.Execute("Insert into users(userid,password)Values('"& rsRead.Fields("userid")&"','" &rsRead.Fields("password") & "')" )
rsRead.MoveNext
demo.asp
<%
Dim cn,oConn,connstr
'打开XLS.
Set cn = Server.CreateObject("ADODB.Connection")
cn.Provider = "Microsoft.Jet.OLEDB.4.0 "
cn.ConnectionString = "Data Source=" & Server.MapPath("data.xls") & ";" & _
Set rs1.ActiveConnection = conn1
rs1.Source = "select * from user"
rs1.CursorType = 3 ' adOpenKeyset
rs1.LockType = 3 'adLockOptimistic
rs1.Open
下面连接到test.xls表sheet1$ '表后面要加个$的,一定要加这个符号
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Excel Driver (*.xls)};ReadOnly=0;DBQ=" & Server.MapPath("test.xls")
'iiii)如果你的Excel电子表格中某一列同时包含了文本和数字的话,那么Excel的ODBC驱动将不能够正常, 处理这一行的数据类型，你必须要保证该列的数据类型一致
'====================================================
�
Do While Not rs.Eof
rs1.AddNew
rs1(0)=j
for i=0 to rs.Fields.Count-1
rs1(i)=Trim(rs(i))
Next
rs1.Update
rs.MoveNext
j=j+1
Loop
rs.Close
rs1.Close
2009-11-18 09:28
用ASP编的一个网站，数据库是Access,数据库名称是atest,里面有个表格user，user表格有user和password两个字段现要将Excel表格(名称是test.xls)的数据导入到atest数据库的user表中，怎么实现？高手支招
............................................................
conn.Close
conn1.Close
Set rs=nothing
Set conn=nothing
............................................................................
在ASP中怎样把EXCEL导入ACCESS
"Extended Properties=Excel 8.0;"
cn.Open
'打开MDB.
connstr="DBQ="+server.MapPath("data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set oConn=server.CreateObject("ADODB.CONNECTION")
SQL1="select * from [sheet1$]"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL1, conn, 3, 3
'下面连接到atest.mdb表user
curDir = Server.MapPath("atest.mdb")
oCoபைடு நூலகம்n.open connstr
'读取数据.
set rsRead=server.CreateObject("ADODB.Recordset")
rsRead.Open "select * from [Sheet1$]",cn,1,1
do until rsRead.EOF
'写入数据库.
Set conn1 = Server.CreateObject("ADODB.Connection")
conn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & curDir
Set rs1 = Server.CreateObject("ADODB.Recordset")