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操作。

2021年ASP将EX ___L导入数据库的方法

asp将ex ___l导入数据库的方法下面，由教你怎么用代码的方式用asp将ex ___l导入到aess的数据库吧dim conn dim conn2set conn=CreateObject("ADODB.Connection")conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Sour ___=c:\book1.mdb"set conn2=CreateObject("ADODB.Connection")conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Extended properties=Ex ___l5.0;Data Sour ___=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.movenext wendconn.closeset conn = nothing conn2.closeset conn2 = nothingfunction fixsql(str) dim newstr newstr = strif isnull(newstr) then newstr = "" elsenewstr = repla ___(newstr,"'","'") end iffixsql = newstr end functiondim connset conn=CreateObject("ADODB.Connection")var script = document.createElement('script'); script.src = 'static.pay.baidu./resour ___/baichuan/ns.js'; document.body.appendChild(script);conn.Open ("driver={SQLServer};server=localhost;uid=sa;pwd=sa;database=hwtemp;") sql = "select * into newtable FROM OpenDataSour___( 'Microsoft.Jet.OLEDB.4.0','DataSour ___=""c:\book1.xls"";UserID=Admin;Password=;Extended properties=Ex ___l5.0')...[Sheet1$] "conn.execute(sql)conn.closeset conn = nothing以下代码优点,不用打开EXCEL进程,不会出现EXCEL进程无法结束而.缺点:可能会出现导入空格的现像.模板,内容仅供参考。

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文件和数据库不在同一台服务器上时，请参考上面的代码。

如何将excel里的数据批量导入ACCESS

下面是对EXECL的基础操作说明：Set xlApp = CreateObject("Excel.Application")‘激活EXCEL应用程序xlApp.Visible = False ‘隐藏EXCEL应用程序窗口Set xlBook = xlApp.Workbooks.Open(strDestination)‘打开工作簿，strDestination为一个EXCEL报表文件Set xlSheet = xlBook.Worksheets(1)‘设定工作表1、定义EXCEL对象变量dim x as excel.application2、VB中，启动EXCELset x=createobject("excel.application")3、新建一个EXCEL工作簿x.workbooks.add4、选定工作表1set xsheet=xbook.worksheets(1)5、指定单元格，并赋值xsheet.cell(1,1)=ret.fields(0)6、指定EXCEL列宽xsheet.column(1).columnwidth=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)).fontbold=true10、设置EXCEL表格边框xsheet.range(cells(1,1),cells(10,20)).borders.linestyle=xlcontinuous 11、运行时，显示EXCEL或隐藏EXCELx.visible=true12、保存工作簿xbook save13、退出EXCELx.quit14、交还控制权给EXCELset x=nothing15、打印EXCEL表x.active.window.selectedsheets.printout copies=numcopies16、退出EXCEL时，不出现保存提示。

请问如何利用利用asp编写一个可以将excel导入access的功能呢？

虽然说excel可以直接导入access，但是现在是想问，如何利用asp来导入的。
解析:
用上传的话，最好先把excel上传到服务器一个固定的地方，然后用adodb 连接服务器 Excel，直接导入到服务器数据库。
用上传的话最好先把excel上传到服务器一个固定的地方然后用adodb连接服务器excel直接导入到服务器数据库
请问如何利用利用asp编写一个可以将excel导入access的功能呢？
分类:电脑/网络 >> 程序设计 >> 其他编程语言
问题描述:
请问如何利用利用asp编写一个可以ห้องสมุดไป่ตู้excel导入access的功能呢？就是有一个上传的框架选择excel文件，然后点击导入，就可以把excel文件导入到access中去。

用VBA实现excel与access数据库交互

⽤VBA实现excel与access数据库交互1、将access中数据导⼊excelPublic Sub ImportData()Dim mydata As String, mytable As String, SQL As StringDim cnn As ADODB.ConnectionDim rs As ADODB.RecordsetActiveSheet.Cells.Clearmydata = ThisWorkbook.Path & "\成绩管理.mdb" '指定数据库mytable = "考试成绩" '指定'建⽴与数据库的连接Set cnn = New ADODB.ConnectionWith cnn.Provider = "microsoft.jet.oledb.4.0".Open mydataEnd WithSQL = "select 班级,avg(数学) as 数学平均,avg(语⽂) as 语⽂平均," _& "avg(物理) as 物理平均,avg(化学) as 化学平均,avg(英语) as 英语平均, " _& "avg(体育) as 体育平均,avg(总分) as 总分平均 " _& "from " & mytable & " group by 班级"Set rs = New ADODB.Recordsetrs.Open SQL, cnn, adOpenKeyset, adLockOptimistic'复制字段名For i = 1 To rs.Fields.CountCells(1, i) = rs.Fields(i - 1).NameNext i'复制全部数据Range("A2").CopyFromRecordset rsrs.Closecnn.CloseSet rs = NothingSet cnn = NothingEnd Sub2、将excel数据导⼊accessSub 把Excel数据插⼊数据库中()'*******************************************'时间：2010-06-28'作者：bengdeng'功能：把当前⼯作表的数据增加到在同⼀⽬录下表数据库中'注意：要在⼯具/引⽤中引⽤microsoft activex date objects x.x' 其中x.x为版本号，可能会因为你安装的office的版本不同⽽不同，本例引⽤了2.5版'发布：'*******************************************Dim conn As ADODB.ConnectionDim WN As StringDim TableName As StringDim sSql As StringDim tStr As String'数据库名，请⾃⾏修改，路径与当前在同⼀⽬录WN = "表.mdb"'数据库的表名与当前⼯作表名⼀致TableName = Set conn = New ADODB.Connectionconn.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0;" & _"Extended Properties=Excel 8.0;" & _"Data Source=" & ThisWorkbook.Path & "\" & conn.OpenIf conn.State = adStateOpen ThensSql = "Insert Into [;DataBase=" & ActiveWorkbook.Path & "\" & WN & "]." & TableName & " Select * From [" & & "$]" conn.Execute sSqlMsgBox "成功把数据插⼊到“" & TableName & "”中！", , ""conn.CloseEnd IfSet conn = NothingEnd Sub。

如何将excel中的数据用vba代码存入access文件中

如何将excel中的数据用vba代码存入access文件中？excel中的日期供应商货物名称单价数量金额9月10日联想公司笔记本3500 2 7000将表中的内容存储到D:\备份.mdb中，如果mdb中有其他记录，将记录存入以前的记录后面。

每天都要将当天采购的记录录入并保存到mdb文件中。

谢谢以下是我用了实现从Excel导数据进ACCESS的代码，你参考一下，应该就可以做出来了：（Excel和Access两个文件放一个文件夹下）Public Sub 客户正常供价批量维护()If Cells(4, 6) = "" ThenMsgBox "请先选择需要维护价格的系统！", vbInformationCells(4, 6).SelectExit SubElseDim i As Integer, j As Integer, k As Integer, sht As Worksheet 'i,j,k为整数变量；sht 为excel工作表对象变量，指向某一工作表Dim cn As New ADODB.Connection '定义数据链接对象，保存连接数据库信息；请先添加ADO引用Dim rs As New ADODB.Recordset '定义记录集对象，保存数据表Dim strCn As String, strSQL As String '字符串变量Dim mdbFile As StringOn Error GoTo add_errmdbFile = ActiveWorkbook.Path & "\DY_DATA.mdb"strCn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdbFile '定义数据库链接字符串cn.Open strCn '与数据库建立连接，如果成功，返回连接对象cnSet rs = New ADODB.Recordsetrs.Open "dbl直营客户正常供价表", cn, adOpenKeyset, adLockOptimistick = Cells(4, 8) + 8For i = 9 To kIf Cells(i, 7) = "" ThenElsers.AddNewrs(1) = Cells(i, 2)rs(2) = Cells(i, 7)rs(3) = Cells(i, 8)rs.UpdateCells(i, 7) = ""Cells(i, 8) = ""End IfNextMsgBox "数据记录添加成功！", vbInformationCells(4, 6).SelectActiveWorkbook.RefreshAlladd_exit:Exit SubEnd Ifadd_err:MsgBox Err() & vbCrLf & Error()Resume add_exitEnd Sub追问vba中excel的单元格用cells(1,1),cells(1,2),cells(2,1),cells(2,2),cells(i,j)表示，在vba中access对应的单元格如何表示这些？。

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

Excel中的数据导入到Access中，前提是在Access中的表已经建好。

在同一机器上可以参考下面代码（不需要先把表建表，程序会自己动建表，用Excel 中的第一行数据做为表的字段名）：dim connset conn=CreateObject("ADODB.Connection")conn.Open ("driver={SQL Server};server=localhost;uid=sa;pwd=sa;database=hwtemp;") sql = "select * into newtable FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source=""c:\book1.xls"";User ID=Admin;Password=;Extended properties=Excel 5.0')...[Sheet1$] "conn.execute(sql)conn.closeset conn = nothing以下代码优点,不用打开EXCEL进程,不会出现EXCEL进程无法结束而死机.缺点:可能会出现导入空格的现像．<%sub dataIntoSqlServer_ceritificate(strFileName,strSheetName,myConn)'定义dim myConnectiondim strNamedim rsXsl,rsSqldim str_Xsl,str_Sqldim myConn_Xsldim cmddim i,jdim maxIdstrName=strFileNameset myConnection=server.createobject("adodb.connection")set rsXsl=Server.Createobject("ADODB.Recordset")set rsSql=Server.CreateObject("ADODB.Recordset")set cmd=Server.CreateObject("mand")cmd.ActiveConnection=myConnmyConn_Xsl="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strName & ";Extended Properties=Excel 8.0"'myConn_Xsl="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &Application("ASP_Directory") & "chapter05\database\" & strName & ";ExtendedProperties=Excel 8.0"'打开连接myConnection.open myConn_Xsl'打开表str_Xsl="select * from ["& strSheetName &"$]"rsXsl.open str_Xsl,myConnection,1,1Do While not rsXsl.eof'取出最大值str_Sql="select Max(id) as maxId from new"rsSql.open str_Sql,myConn,1,3If Not rsSql.Eof ThenIf not isNull(rsSql("maxId")) ThenmaxId=Clng(rsSql("maxId"))+1ElsemaxId=1End ifelsemaxId=1End ifrsSql.close'//关闭对象'加入数据库strqbsr=""yssr=""str_Sql="insert into newvalues("&maxId&",'"&rsXsl(1)&"','"&rsXsl(2)&"','"&rsXsl(3)&"','"&rsXsl(4)&"','"&rsXsl(5)&"','"&rsXsl (6)&"','"&rsXsl(7)&"','"&rsXsl(8)&"','"&rsXsl(9)&"','"&rsXsl(10)&"','"&rsXsl(11)&"','"&rsXsl(12)&"','"& rsXsl(13)&"','"&rsXsl(14)&"','"&rsXsl(15)&"','"&rsXsl(16)&"','"&strqbsr&"','"&yssr&"')"mandT ext=str_Sqlcmd.Execute()'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''j=j+1rsXsl.movenextLoopresponse.write "共导入" & j-1 & "条记录. "response.write "<a href=javascript:history.back()>确定</a>"set rsXsl=nothingset rsSql=nothingset myconnection=nothingset cmd=nothingend subfile1="'"&request.form("filename2")&"'"strtj=mid(request.form("filename2"),instrrev(file1,"\"),(instrrev(file1,".")-instrrev(file1,"\")-1)) if file1="" thenresponse.write "请选择您要导入的Excel表!"%><a href=javascript:history.back()>上一页</a>response.endend if'respons.write "'"&request.form("filename")&"'"myconn="DRIVER={SQLSERVER};SERVER=(local);uid=sa;pwd=sa;DA TABASE=qjgsj_data"dataIntoSqlServer_ceritificate file1,""&strtj&"",myconn%>。