asp.net何access2002的问题。

hp21c 2003-10-16 10:04:18
我定义了几个文本区,想让用户输入一批文字,插入数据库。但问题有2:
1、access的文本字段支持的最大长度是255,如果我的自述超过了255,那不是不成了?
2、我试着在文本区输入的时候加回车,但在数据库里面只有在文本区里面输入的第一行文本,怎样才能在加了回车之后把几段文字都插入数据库?
谢谢了。代码如下:
...全文
26 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>

62,025

社区成员

发帖
与我相关
我的任务
社区描述
.NET技术交流专区
javascript云原生 企业社区
社区管理员
  • ASP.NET
  • .Net开发者社区
  • R小R
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告

.NET 社区是一个围绕开源 .NET 的开放、热情、创新、包容的技术社区。社区致力于为广大 .NET 爱好者提供一个良好的知识共享、协同互助的 .NET 技术交流环境。我们尊重不同意见,支持健康理性的辩论和互动,反对歧视和攻击。

希望和大家一起共同营造一个活跃、友好的社区氛围。

试试用AI创作助手写篇文章吧