asp导入access数据库
1. ASP里，将Excel导入到Access数据库
下面连接到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表user
curDir
=
Server.MapPath("atest.mdb")
Set
conn1
=
Server.CreateObject("ADODB.Connection")
conn1.Open
"Provider=Microsoft.Jet.OLEDB.4.0;Data
Source="
&
curDir
Set
rs1
=
Server.CreateObject("ADODB.Recordset")
Set
rs1.ActiveConnection
=
conn1
rs1.Source
=
"select
*
from
user"
rs1.CursorType
=
3
'
adOpenKeyset
rs1.LockType
=
3
'adLockOptimistic
rs1.Open
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
conn.Close
conn1.Close
Set
rs=nothing
Set
conn=nothing
2. asp如何实现数据从excel表导入access数据库和access数据库导出到excel表中
原数据库A 要导入数据库B方式1：打开B, 在空白处点右键 导入 打开A，出现选择导入的表，选择即可导入，可选择仅仅导入结构，也可导入结构和数据方式2: 打开A, 选择要导入的表，选复制，然后打开B,在空白处选粘贴，只能是结构和全部数据！DataSet ds = GetDataSet(sql); ds.WriteXml(filename); fileName.XMl fileName就是你所要的XML的名字操作Excel首先下载jar包 jxl.jar 下载地址: http://www.andykhan.com/jexcelapi/download.html我就下载的第一个 JExcelApi v2.6.8 (1920kbytes) 这个，解压后jexcelapi_2_6_8\jexcelapi\docs下的index.html为该jar包的API文档jexcelapi_2_6_8\jexcelapi下有一个jxl.jar将jxl.jar拷贝到你项目的lib目录下，就引入jar包了楼主的意思是从数据库读出数据，之后导出Excel文件，我写了一个小例子，我介绍一下我的程序内容:不知道你用什么数据库，我以oracle数据库的dept表为例dept表字段为数字类型的deptno，字符串类型的dname和loc，就这3个字段DBConn.java 类提供了两个方法，方法getConn()返回与数据库的连接Connection方法closeConn()关闭与数据库的连接Dept.java 是一个JavaBean，封装了dept表的一条记录，成员变量分别对应表dept的3个字段，并生成get和set方法DeptDao.java 类提供方法 public static List getDept(Connection conn)返回一个List集合，里面装的是一个个的Dept对象，每一个对象都包含了dept表的一条记录，总之就是这个集合里面包含了dept表的所有记录内容介绍了这么多，也是为了下面的测试类能看明白
3. asp怎么连接access数据库
asp连接access数据库的方法：
1、设置数据库连接方式：
set dbconnection=Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("customer.mdb")
dbconnection.Open "provider=microsoft.jet.oledb.4.0;data source="&dbpath
SQL="select * from auth where id='" & user_id &"'"
SET uplist=dbconnection.EXECUTE(SQL)
2、设置连接数据库
DBPath = Server.MapPath("customer.mdb")
set session("rs")=Server.CreateObject("ADODB.Recordset")
' rs=Server.CreateObject("ADODB.Recordset")
connstr="provider=microsoft.jet.oledb.4.0;data source="&dbpath
SQL="select * from auth where id='" & user_id &"'"
session("rs").Open sql,connstr,1,3
3、建立odbc数据源
set conn=server.createobject("Adodb.connection")
conn.open "DSN=xxx;UID=;PWD=;Database=customer
4、附上一个经常用的sqlserver与access通用的连接数据库代码：
<%
Const DataBaseType=1
If DataBaseType=0 then
DBPath="/jb51/news.asp"
SqlNowString = "Now()"
ystr=true
nstr=false
suiji="rnd(id)"
Else
'如果是SQL数据库，请认真修改好以下数据库选项
DataServer = "wwwjb51net" '数据库服务器IP
DataUser = "jb51net" '访问数据库用户名
DataBaseName = "jb51net" '数据库名称
DataBasePsw = "密码" '访问数据库密码
SqlNowString = "getdate()"
ystr=1
nstr=0
suiji="newid()"
End if
On Error Resume Next
If DataBaseType = 1 Then
ConnStr="driver={SQL Server};server="&dataserver&";UID="&datauser&";PWD="&databasepsw&";Database="&databasename
Else
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBPath)
End If
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
4. Asp实现将xml文件导入access数据库
做这个简单啊，首先用asp读取
xml文件
，判断标签类型，根据标签类型，将该标签下的数据写入数据库。
至于你说的先将xml文件上传，可以用网上的上传文件用的asp源码。在进行一下修改，上传成功后，用asp读取xml文件，并显示在网页上。
因为我是
在网吧上的，所以我得回家后把代码写出来，再发给你。大概2到3天吧，
但是
你的问题
快关闭了！。
5. 如何通过asp将excel表导入access数据库中
先导出，再导入
Excel导出函数
<%
Sub ExportToExcel
Response.ContentType = "application/vnd.ms-Excel"
Response.AddHeader "Content-Disposition", "attachment;Filename=Results.xls"
Response.Write "<body>"
Response.Write "<table border=1>"
Call WriteTableData
Response.Write "</table>"
Response.Write "</body>"
Response.Write "</html>"
End Sub
%>
Excel导入数据库
<%
dim FileName
FileName="Excel.xls" '取得文件名，来自项目经理的指定，路径固定在某个虚拟路径中
Dim conn, rs
set conn=CreateObject("ADODB.connection")
conn.Open "Driver={Microsoft Excel Driver (*.xls)};" & _
"DriverId=790;" & _
"Dbq=" & Server.mappath(""&FileName&"") & ";" & _
"DefaultDir=G:\"
set rs=createobject("ADODB.recordset")
rs.Open "Select * from [Sheet1$]",conn, 2, 2
if rs.eof then
response.write "Excel表中无纪录"
else
set connDB = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("Excel.mdb")
'RESPONSE.WRITE DBpath
connDB.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set RsDB = Server.CreateObject("ADODB.Recordset")
SQLDB="Select * from Excel"
RsDB.open SQLDB,connDB,1,3
do while not rs.eof '利用循环读出数据
RsDB.addnew
RsDB("filename")=rs(0)
RsDB("id1")=rs(1)
RsDB("id2")=rs(2)
RsDB("id3")=rs(3)
RsDB("id4")=rs(4)
Rs.update
RsDB.movenext
rs.movenext
loop
'response.redirect FileName
end if
RsDB.movefirst
if RsDB.eof then
response.write "数据库中无记录"
else
do while not RsDB.EOF
response.write RsDB("filename")&" "
response.write RsDB("id1")&" "
response.write RsDB("id2")&" "
response.write RsDB("id3")&" "
response.write RsDB("id4")&" "
response.write "<br>"
RsDB.movenext
loop
end if
rs.close
set rs=nothing
set conn=nothing
%>
6. asp如何连接access数据库
它的各步骤及参数意义如下：
第一行程序：利用Server对象的MapPath函数，取得要打开数据库的完整的文件路径，并存储在变量DbPath中。这其中，数据库名是我们需要指定的参数，应该用我们要打开的数据库的实际名称替代。如果数据库名是直接作为常量出现，要用引号将其括起来，并且不能丢掉扩展名。例如数据库是Test.mdb，则该行程序成为：DbPath=Server.MapPath(“Test.mdb”)。
第二行程序：建立一个ADO对象集中的Connection对象，也即连接对象。这是建立数据库连接的初始步骤。执行这行程序后，Conn成为一个连接对象。
第三行程序：利用连接对象Conn的Open方法打开一个指定的数据库。因为我们要打开的是Access数据库，所以要指定ODBC驱动程序参数，表示要透过Access的ODBC驱动程序来访问数据库：driver={Microsoft
Access
Driver
(*.mdb)};。另一个参数dbq=
&
DbPath，运算后等效于dbq=Server.MapPath(数据库名)
,是利用了第一行的Server.MapPath(数据库名)函数，用来指定要打开的数据库文件。到这里，就已经打开了数据库名指定的数据库。如果数据库名是“test.mdb”，则打开Access数据库Test.mdb。在这一行里指定的参数，要严格按照格式原样写出，不能省略或改动，也没有可变参数。
7. asp添加数据进access数据库
假设你单选按钮的名称是 "check" ,值分别就是1,2,3哈
check=request.form("check")
sql="select * from [tongji]"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,3
rs.addnew
if check="1" then
rs("yjs")="yes"
elseif check="2" then
rs("yns")="yes"
else
rs("yys")="yes"
end if
rs.update
rs.close
set rs=nothing
8. ASP怎样将Excel导入到Access里
Excel数据导入到Access、Sql Server中示例代码
将Excel中的数据导入到Access中，前提是在Access中的表已经建好。
dim conn
dim conn2
set 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:Database Password=;Extended properties=Excel 5.0;Data Source=c:\book1.xls"
sql = "SELECT * FROM [Sheet1$]"
set rs = conn2.execute(sql)
while not rs.eof
sql = "insert into xxx([a],[b],[c],[d]) values('"& fixsql(rs(0)) &"','"& fixsql(rs(1)) &"','"& fixsql(rs(2)) &"','"& fixsql(rs(3)) &"')"
conn.execute(sql)
rs.movenext
wend
conn.close
set conn = nothing
conn2.close
set conn2 = nothing
function fixsql(str)
dim newstr
newstr = str
if isnull(newstr) then
newstr = ""
else
newstr = replace(newstr,"'","''")
end if
fixsql = newstr
end function
导入到Sql Server数据库中时，如果Excel文件和数据库不在同一台服务器上时，请参考上面的代码。在同一机器上可以参考下面代码（不需要先把表建表，程序会自己动建表，用Excel中的第一行数据做为表的字段名）：
dim conn
set 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.close
set conn = nothing
9. asp插入access数据库
可能是你的字段没有接收到值~你可以加个断点~然后按F10跟着流程走~看看你所定义的字段是不是都被正确赋值了~
你在查询分析器里输入的是正确的值~但是你从网页中获取的值有可能会出现没有获取或类型与数据库定义不匹配的情况~
10. 如何用asp给access数据库插入数据
1、ASP连接ACCESS数据库，连接字符串是关键
2、连接后执行SQL语句
3、关闭数据库连接对象
示例代码：
dim Conn,strConn,strSQL
strConn = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("\db\myaccess.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
strSQL="insert into 表(列1,列2,列3) values ('value1','value2','value3')"
Conn.execute strSQL
Conn.close
Set Conn = Nothing
其中
【Provider=Microsoft.Jet.OLEDB.4.0;】：是声明使用的是MSSQL协议，
【Data Source=" & server.MapPath("\db\myaccess.mdb")】：是数据库的所在网站根目录相对路径的文件名