UC知道excel中文数据通过ASP导入到access数据库变成问号？
来源：百度知道 编辑：UC知道 时间：2024/07/02 18:44:21
部分代码如下：
Set excconn=Server.CreateObject("ADODB.Connection")
Set excrs = Server.CreateObject("ADODB.Recordset")
excStrConn="Driver={Microsoft Excel Driver (*.xls)};DriverId=790; DBQ="&Server.MapPath(excpath)
excconn.Open excStrConn
excSql="select * from [Sheet1$]" '查询excel语句
excrs.Open excSql,excconn,2,2
set rs=server.createObject("ADODB.Recordset")
Set conn=Server.CreateObject("ADODB.Connection")
StrConn="provider=microsoft.jet.oledb.4.0; data source="&Server.MapPath("data/equip.mdb")
conn.Open StrConn
sql="select equipid,equipname,equipmodel,equipsn,fdesc,adate from applyequip" '修改
rs.open sql,conn,1,3
do while Not excrs.EOF
if trim(excrs(1))<>"" then '
Set excconn=Server.CreateObject("ADODB.Connection")
Set excrs = Server.CreateObject("ADODB.Recordset")
excStrConn="Driver={Microsoft Excel Driver (*.xls)};DriverId=790; DBQ="&Server.MapPath(excpath)
excconn.Open excStrConn
excSql="select * from [Sheet1$]" '查询excel语句
excrs.Open excSql,excconn,2,2
set rs=server.createObject("ADODB.Recordset")
Set conn=Server.CreateObject("ADODB.Connection")
StrConn="provider=microsoft.jet.oledb.4.0; data source="&Server.MapPath("data/equip.mdb")
conn.Open StrConn
sql="select equipid,equipname,equipmodel,equipsn,fdesc,adate from applyequip" '修改
rs.open sql,conn,1,3
do while Not excrs.EOF
if trim(excrs(1))<>"" then '
以前遇到这种问题的时候，就加个N，
inser into table(xx,yy,zz) values(N'我',N'我',N'我')，
肯定可以解决问题。
像lz用rs.add方式的话，到是没有研究过怎么处理。