asp.net何access2002的问题。

hp21c 2003-10-16 10:04:18

我定义了几个文本区，想让用户输入一批文字，插入数据库。但问题有2：
1、access的文本字段支持的最大长度是255，如果我的自述超过了255，那不是不成了？
2、我试着在文本区输入的时候加回车，但在数据库里面只有在文本区里面输入的第一行文本，怎样才能在加了回车之后把几段文字都插入数据库？
谢谢了。代码如下：

...全文

29 1 打赏收藏转发到动态举报

写回复

用AI写文章

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

hp21c 2003-10-16

打赏
举报

<%@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>