文本里的数据录入能正常显示,可为什么不能录入数据库
数据库是ACCESS的,在一个数据库里我录入其他的数据都了录入,但是就这一个表(position)不行,字段如下:
position_id 自动编号
position_name 文本 100
我在录入这样的文本文件里的数据:
===高级管理===
首席执行官CEO
总裁
总经理
代码如下:
<%
set rs = server.createobject("adodb.recordset")
sql = "select * from position"
rs.open sql,conn,1,3
whichfile=server.mappath("sousuo.txt")
set fso=server.CreateObject("scripting.FileSystemObject")
set txt=fso.OpenTextFile(whichfile,1)
while not txt.AtEndOfStream
a_line=txt.ReadLine
if left(a_line,1)<>"=" then
result=replace(replace(replace(replace(a_line," ",""),"/","/"),"(","("),")",")")
rs.AddNew
rs("position_name")=a_line
rs.Update
response.Write(a_line) ’ 能正常的显示 但是数据就是入不了数据库
response.Write("<br>")
end if
wend
txt.close
set txt=nothing
set fso=nothing
%>
请问是什么原因?
position_id 自动编号
position_name 文本 100
我在录入这样的文本文件里的数据:
===高级管理===
首席执行官CEO
总裁
总经理
代码如下:
<%
set rs = server.createobject("adodb.recordset")
sql = "select * from position"
rs.open sql,conn,1,3
whichfile=server.mappath("sousuo.txt")
set fso=server.CreateObject("scripting.FileSystemObject")
set txt=fso.OpenTextFile(whichfile,1)
while not txt.AtEndOfStream
a_line=txt.ReadLine
if left(a_line,1)<>"=" then
result=replace(replace(replace(replace(a_line," ",""),"/","/"),"(","("),")",")")
rs.AddNew
rs("position_name")=a_line
rs.Update
response.Write(a_line) ’ 能正常的显示 但是数据就是入不了数据库
response.Write("<br>")
end if
wend
txt.close
set txt=nothing
set fso=nothing
%>
请问是什么原因?
...全文
相关推荐
VBA数据录入工具自动生成Excel
此工具是VBA开发,有录入绑定数据功能,可根据不同需求变更设置,扫描绑定数据自动录入Excel,可用于不同环境,工厂记录关联数据等
VB数据录入例子
一个简单的VB编写的数据录入例子,可以为VB初学者提供参考的例子。
c#简单数据录入系统(数据库)
有人反应上次传的c#简单数据录入系统里没带数据库,记得当时都打包进去了,如果没有的话就在这里单独下载数据库吧,sqlserver2005,建个名为DataEntry的空库,然后还原此数据库文件即可
二维码识别完成数据录入
安卓通过webserver连接mysql数据库,采用了scokt通信协议,安卓运用了二维码技术。
SQL 教学数据库表的建立和数据录入
关于简单教学数据库表的建立和数据录入,适合刚刚入门sql 的学习者下载。


