<% db="date1.mdb" mdb="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db) sql="selest * from massage" Set conn=Server.CreateObject("ADODB.Connection") conn.Open mdb Set fs=Server.CreateObject("ADODB.Recordset") fs.Open conn,sql,3,1 fs.AddNew fs("age")="20" fs("sex")="men" fs.Update set fs=nothing set conn=nothing %>

...................................................................

错误类型： ADODB.Recordset (0x800A0BB9) 参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。 /index.asp, 第 14 行 ...................................................................

小弟是初学，跪求一段数据库连接和写入数据的代码，简短即可，跪谢！！！

一 首先更改这个:sql="select * from massage" 二 你可以进行如下的方法来解决: 1 mdb="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db) 把这一段改为: mdb="DBQ="+server.mappath(db)+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" 2 检查字段类型是否正确:fs("age")="20" 是否为字符? 字段名是否有正确? fs("sex")="men" 是否为字符? 字段名是否有正确? 3 在开头加上dim db,mdb,conn,fs

三 数据库连接 <%@ LANGUAGE = "VBScript" CodePage = 936%> <% option explicit Dim Conn,Connstr,DB DB = "db.asp" '数据库路径 Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db) On Error Resume Next '这一句要惧用,除非你调试过没有什么问题之后再加上这一句,有时候它可能会让你不知道出了什么问题!!!

Set Conn = Server.CreateObject("ADODB.Connection") Conn.open ConnStr If Err Then err.Clear Set Conn = Nothing Response.Write "对不起，系统调整中，请您稍后访问。" '访问出错提示信息。 Response.End End If %> 把以上代码保存为conn.asp然后在要引用的页面里包含即可! 四 写入数据： sql="select * from 表名 where (id is null)" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,3 rs.addnew rs("字段名")=变量 。。。。。。 rs.update rs.close set rs=nothing 或者： sql="insert into 数据表 (字段1,字段2,字段3 …) valuess (值1,值2,值3 …)" sql="insert into 目标数据表 select * from 源数据表" (把源数据表的记录添加到目标数据表)

[此贴子已经被作者于2004-11-03 09:55:05编辑过]

<% dim db,mdb,sql db="date1.mdb" mdb="DBQ="+server.mappath(db)+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" sql="insert into massage ('age','sex') Value ('20','men')" Set conn=Server.CreateObject("ADODB.Connection") conn.Open mdb Set fs=Server.CreateObject("ADODB.Recordset") fs.Open conn,sql,1,3 set fs=nothing set conn=nothing %>

.................................................................................................

仍然是这种报错！

还有，mdb="DBQ="+server.mappath(db)+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" 中间加粗的哪句是什么意思呀？？ 不明白！

我已经试过好多种方法了，不管怎么都报错，会不会是IIS的设置有误？ 我是XP sp2 FAT32文件系统

关于楼上两位指出的地方我已修改，age,sex数据类型都是文本，是字符串。

小弟先谢过两位的帮忙，希望再帮我分析他分析，看看原因到底是什么！ 谢谢了！

sql="insert into massage(age,sex) Values('20','men')"

字段名不要加引号

[此贴子已经被作者于2004-11-03 09:40:01编辑过]

现在又有个问题了！ 我的代码执行没报错，但Access里面却什么也没写入!

..........................................................................................................................

<% dim db,mdb,sql db="date1.mdb" mdb="DBQ="+server.mappath(db)+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" sql="Select * from massage" Set conn=Server.CreateObject("ADODB.Connection") conn.Open mdb Set fs=Server.CreateObject("ADODB.Recordset") fs.Open sql,conn,1,3 fs.AddNew fs("age")="20" fs("sex")="men" set fs=nothing set conn=nothing %>

.......................................................................................................................

<% dim db,mdb,sql db="date1.mdb" mdb="DBQ="+server.mappath(db)+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" sql="Select * from massage" Set conn=Server.CreateObject("ADODB.Connection") conn.Open mdb Set fs=Server.CreateObject("ADODB.Recordset") fs.Open sql,conn,1,3 fs.AddNew fs("age")="20" fs("sex")="men"

fs.update set fs=nothing set conn=nothing %>

3Q！3Q！

俺终于搞定捏！！！！！！！

谢谢各位了！ 谢谢了！

哇哈哈哈！！！！！！！

老兄,你上面的"select * from message" 这句中select写错了吧.

还有"fs.open sql,conn,3,1"应改为"fs.open sql.conn,1,3"