怎样才能将文本区的分段文本插入access数据库?
hp21c 2003-10-16 10:39:26 下面这段代码讲几条记录插入access,收集信息用的是“textarea”文本区。但一旦我换行,每个文本区除了第一行外剩余的行就不能插入数据库,why?
还有,access的文本字段最大支持255个字符,如果我文本区的文字超过这个字数怎么办?
谢谢了各位师傅。
代码如下:
<%@import namespace="system.data.oledb"%>
<%@import namespace="system.data"%>
<%@ Page Language="vb" explicit="true" debug="true"%>
<script runat="server">
sub page_load(sender As Object,e As EventArgs)
if Page.IsPostBack then
InsertRecord()
End If
End Sub
Sub InsertRecord()
dim conClasf As OleDbConnection
dim cmdClasf As New OleDbCommand
dim strClasf As string
dim strSQL As String
dim intRowsAff As Integer
strclasf="Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & _
server.mappath("database.mdb") & ";"
conClasf=New OleDbConnection(strClasf)
conClasf.Open
strSQL="INSERT INTO dbtable (" & _
"jwh," & _
"tbr," & _
"situ," & _
"workplan," & _
"beizhu" & _
")VALUES('" & _
Replace(jwhid.Value,"'","''") & _
"','" & _
Replace(tbrid.Value,"'","''") & _
"','" & _
Replace(situid.Value,"'","''") & _
"','" & _
Replace(workplanid.Value,"'","''") & _
"','" & _
Replace(beizhuid.Value,"'","''") & _
"')"
cmdClasf=New OledbCommand(strSQL,conClasf)
Try
intRowsAff=cmdClasf.ExecuteNonQuery()
Catch ex as exception
warnid.text=ex.Message
end try
rowsAffid.text=intRowsAff & "record(s) inserted"
conClasf.Close
End Sub
</script>
<html>
<head>
<title>双月工作情况</title>
</head>
<body>
<h1 align="center">双月工作情况</h1>
<form method="post" runat="server">
<div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="80%" id="AutoNumber1" height="494">
<tr>
<td width="18%" height="207"><font size="2">双月工作情况</font></td>
<td width="82%" height="207">
<textarea id="situid" rows="16" cols="85" runat="server"></textarea></td>
</tr>
<tr>
<td width="18%" height="210"><font size="2">下步工作计划</font></td>
<td width="82%" height="210">
<textarea id="workplanid" rows="16" cols="85" runat="server"></textarea></td>
</tr>
<tr>
<td width="18%" height="75"><font size="2">备注</font></td>
<td width="82%" height="75">
<textarea id="beizhuid" rows="6" cols="85" runat="server"></textarea></td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="80%" id="AutoNumber2">
<tr>
<td width="47%">居委会
<input type="text" id="jwhid" size="18" style="border-left-style: solid; border-left-width: 0; border-right-style: solid; border-right-width: 0; border-top-style: solid; border-top-width: 0; border-bottom-style: solid; border-bottom-width: 1; padding: 0" runat="server"/>
填表人
<input type="text" id="tbrid" size="18" style="border-left-style: solid; border-left-width: 0; border-right-style: solid; border-right-width: 0; border-top-style: solid; border-top-width: 0; border-bottom-style: solid; border-bottom-width: 1; padding: 0" runat="server"/></td>
<td width="24%"><input type="submit" value="确认" id="btnSub" runat="server"/></td>
</tr>
</table>
</center>
</div>
<p><asp:label id="rowsAffid" runat="server"/></p>
<p><asp:label id="warnid" runat="server"/></p>
</form>
</body>
</html>