从表单取值的问题

limengmeng 2003-04-25 10:31:00
他说这一行出错：
行 19： MyCommand.Parameters("@guest_image").Value = guest_image.value

我是初学，怎么也搞不懂出错在哪里，多谢各位大侠帮我解决这个小问题啊！


<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="gb2312" %>
<%@ Import Namespace="System.Data" %>
<%@ Import NameSpace="System.Data.OleDb" %>
<script language="VB" runat="server">
Sub Page_Load(Sender As Object, E As EventArgs)
Message.InnerHtml = "请您如实填写"
End Sub
Sub AddAuthor_Click(Sender As Object, E As EventArgs)
Dim myConnection As OleDbConnection
Dim myCommand As OleDbCommand
myConnection = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & server.mappath("test.mdb") & ";" )
myConnection.Open()
myCommand = New OleDbCommand( "Insert INTO guest (guest_author,guest_title,guest_body,guest_postip,guest_time) Values (@guest_author,@guest_title,@gutst_body,@guest_postip,@gutst_time)", myConnection )
MyCommand.Parameters.Add(New OleDbParameter("@guest_author", OleDbType.Varchar, 10))
MyCommand.Parameters("@guest_author").Value = guest_author.value
MyCommand.Parameters.Add(New OleDbParameter("@guest_title", OleDbType.Varchar, 50))
MyCommand.Parameters("@guest_title").Value = guest_title.value
MyCommand.Parameters.Add(New OleDbParameter("@guest_image", OleDbType.Varchar, 10))
MyCommand.Parameters("@guest_image").Value = guest_image.value
MyCommand.Parameters.Add(New OleDbParameter("@guest_body", OleDbType.Varchar, 100))
MyCommand.Parameters("@guest_body").Value = guest_body.value
MyCommand.Parameters.Add(New OleDbParameter("@guest_postip", OleDbType.Varchar, 20))
MyCommand.Parameters("@guest_postip").Value = Request.ServerVariables("REMOTE_ADDR")
MyCommand.Parameters.Add(New OleDbParameter("@guest_time", OleDbType.Varchar, 50))
MyCommand.Parameters("@guest_time").Value = now()
myCommand.ExecuteNonQuery()
myConnection.Close()
Message.InnerHtml = "添加留言成功！请点击 <a href=index.aspx>查看留言</a> 返回查看留言页面查阅！"
End Sub
</script>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>我的Asp.net留言簿-书写留言</title>
<style type="text/css">
<!--
td {
font-size: 9pt;
line-height: 120%;
}
-->
</style>
</head>
<body>
<center>
<table width="580" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>我的Asp.net留言簿-书写留言</td>
<td align="right"><a href=index.aspx>查看留言</a></td>
</tr>
</table>
<HR style="WIDTH: 620px; COLOR: #2fb12f; HEIGHT: 1px" noShade>
<form runat="server">
<table width="600" border="1" cellpadding="2" cellspacing="0" bordercolordark="#CCCCCC" bordercolorlight="#000000">
<tr bgcolor="#ACEBA3">
<td height=20 colspan="3" style="font:9pt 宋体"> 添加新留言：</td>
</tr>
<tr bgcolor="#D3F4CE">
<td align="right">您的大名：</td>
<td> <input type="text" id="guest_author" size="5" runat="server"> </td>
<td> <asp:RequiredFieldValidator id="guest_authorReqVal"
ControlToValidate="guest_author"
Display="Static"
Font-Name="Verdana" Font-Size="9pt"
runat=server> 请输入您的大名 </asp:RequiredFieldValidator></td>
</tr>
<tr bgcolor="#D3F4CE">
<td align="right">留言标题：</td>
<td> <input type="text" id="guest_title" size="30" runat="server"> </td>
<td> <asp:RequiredFieldValidator id="guest_titleReqVal"
ControlToValidate="guest_title"
Display="Static"
Font-Name="Verdana" Font-Size="9pt"
runat=server> 请输入留言标题 </asp:RequiredFieldValidator></td>
</tr>
<tr bgcolor="#D3F4CE">
<td align="right" valign="top">选择头像：</td>
<td bgcolor="#D3F4CE"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr align="center">
<td><img src="images/1.gif" width="32" height="32"></td>
<td><img src="images/2.gif" width="32" height="32"></td>
<td><img src="images/3.gif" width="32" height="32"></td>
<td><img src="images/4.gif" width="32" height="32"></td>
<td><img src="images/5.gif" width="32" height="32"></td>
</tr>
<tr align="center">
<td><input type="radio" name="guest_image" value="1"></td>
<td><input type="radio" name="guest_image" value="2"></td>
<td><input type="radio" name="guest_image" value="3"></td>
<td><input type="radio" name="guest_image" value="4"></td>
<td><input type="radio" name="guest_image" value="5"></td>
</tr>
<tr align="center">
<td><img src="images/6.gif" width="32" height="32"></td>
<td><img src="images/7.gif" width="32" height="32"></td>
<td><img src="images/8.gif" width="32" height="32"></td>
<td><img src="images/9.gif" width="32" height="32"></td>
<td><img src="images/10.gif" width="32" height="32"></td>
</tr>
<tr align="center">
<td><input type="radio" name="guest_image" value="6"></td>
<td><input type="radio" name="guest_image" value="7"></td>
<td><input type="radio" name="guest_image" value="8"></td>
<td><input type="radio" name="guest_image" value="9"></td>
<td><input type="radio" name="guest_image" value="10"></td>
</tr>
</table></td>
<td valign="top" bgcolor="#D3F4CE"><asp:RequiredFieldValidator id="guest_imageReqVal"
ControlToValidate="guest_image"
Display="Static"
Font-Name="Verdana" Font-Size="9pt"
runat=server> 请输入留言内容 </asp:RequiredFieldValidator></td>
</tr>
<tr bgcolor="#D3F4CE">
<td align="right" valign="top">留言内容：</td>
<td> <textarea cols="30" rows="4" id="guest_body" runat="server"></textarea>
</td>
<td valign="top"> <asp:RequiredFieldValidator id="guest_bodyReqVal"
ControlToValidate="guest_body"
Display="Static"
Font-Name="Verdana" Font-Size="9pt"
runat=server> 请输入留言内容 </asp:RequiredFieldValidator></td>
</tr>
<tr align="center" bgcolor="#D3F4CE">
<td colspan="3"> <input type="submit" OnServerClick="AddAuthor_Click" value="添加新留言" runat="server">
</td>
</tr>
<tr bgcolor="#ACEBA3">
<td height="40" colspan="3" align="center"> <span id="Message" EnableViewState="false" style="font: 宋体 9pt;" runat="server"/>
</td>
</tr>
</table>
</form>
</center>
</body>
</html>
...全文
56 13 打赏 收藏 转发到动态 举报
写回复
用AI写文章
13 条回复
切换为时间正序
请发表友善的回复…
发表回复
limengmeng 2003-04-25
  • 打赏
  • 举报
 回复
MyCommand.Parameters.Add(New OleDbParameter("@guest_image", OleDbType.Varchar, 10))
MyCommand.Parameters("@guest_image").Value = guest_image.value

这里面的10我也改为2的了！

我照您的，把value去掉，也不行，编译器错误信息: BC30451: 名称“guest_images”未声明。
limengmeng 2003-04-25
  • 打赏
  • 举报
 回复
是一个<input type="radio" name="guest_image" value="1">这个，他有10个，依次是人1到10的！

MyCommand.Parameters.Add(New OleDbParameter("@guest_image", OleDbType.Varchar, 10))
MyCommand.Parameters("@guest_image").Value = guest_image.value
再取他的值，选中几就是几！我在数据里里面也是搞了一个guest_image文本型的字段，宽度为2!
timmy3310 2003-04-25
  • 打赏
  • 举报
 回复
MyCommand.Parameters("@guest_image").Value = guest_image.value
不要.value，改成：
MyCommand.Parameters("@guest_image").Value = guest_image
limengmeng 2003-04-25
  • 打赏
  • 举报
 回复
我以前是把这个字段搞成数值型的，就是怕错，才转为文本型的，并且把后面的数字都改为字段名的宽度了！
我想这Varchar大概就是文本型了！您能告诉我，还有哪些类型吗，
如自动编号，日期，逻辑型等，是些什么词呢
timmy3310 2003-04-25
  • 打赏
  • 举报
 回复
你的guest_image是什么东西？
huaCHINA 2003-04-25
  • 打赏
  • 举报
 回复
还是看看你的"@guest_image"参数是不是类型不对。数据库中类型与
MyCommand.Parameters.Add(New OleDbParameter("@guest_image", OleDbType. Varchar, 10)) 类型为字符？自己检查一下是否正确吧！


huaCHINA 2003-04-25
  • 打赏
  • 举报
 回复
顾名思义：

MyCommand.Parameters.Add(New OleDbParameter("@guest_image", OleDbType. Varchar, 10)) 定义参数的类型
MyCommand.Parameters("@guest_image").Value = guest_image.value
这是怎么回事吗？ 定义参数的值
limengmeng 2003-04-25
  • 打赏
  • 举报
 回复
to mh51:
插入语句里面我是写的的，就是：
MyCommand.Parameters("@guest_image").Value = guest_image.value
这句没通过，所以我就把这两句给注释掉了，再把插入语句里面的去掉，他能写入数据库！
如果都加上，他又说MyCommand.Parameters("@guest_image").Value = guest_image.value这句错了！
limengmeng 2003-04-25
  • 打赏
  • 举报
 回复
Response.Redirect( "default.aspx" )
这一句是对的，zwztu兄的是在页面输出这几个字符！
谢谢俩位，还能告诉我：
MyCommand.Parameters.Add(New OleDbParameter("@guest_image", OleDbType.Varchar, 10))
MyCommand.Parameters("@guest_image").Value = guest_image.value
这是怎么回事吗？
huaCHINA 2003-04-25
  • 打赏
  • 举报
 回复
myCommand = New OleDbCommand( "Insert INTO guest (guest_author,guest_title,guest_body,guest_postip,guest_time) Values (@guest_author,@guest_title,@gutst_body,@guest_postip,@gutst_time)", myConnection )
没定义@guest_image

MyCommand.Parameters("@guest_image").Value = guest_image.value
timmy3310 2003-04-25
  • 打赏
  • 举报
 回复
Response.Redirect( "default.aspx" )
zwztu 2003-04-25
  • 打赏
  • 举报
 回复
Response.Write("default.aspx");
limengmeng 2003-04-25
  • 打赏
  • 举报
 回复
还问个问题，添加成功后他如何自动返回到defautl.aspx这个页呢？
在ASP里面是用这个：response.redirect "default.asp"
在ASP.NET里面呢，用的是什么呢
EasyUi表单取值，表单赋值，非官方form提交，可轻松扩展
1、表单取值 我们指定一个dom属性的值来标志每个文本框对应的接口字段，本文这里使用 data-field 自定义属性，也可以使用name属性，都可以。 html：指定data-field属性的值 <body> <div class="easyui-layout" data-options="fit:true"> <di...
vue 语法--表单取值，组件通信
Vue组件是Vue.js框架中的核心概念之一，它允许开发者将页面拆分为可重用、独立的模块。组件可以包含自己的模板、样式和逻辑，使得代码更加模块化、可维护和可复用。除了Vue自带的指令等, Vue也允许注册自定义指令，根据作用范围又分为：全局指令/局部指令。组件可以通过Vue.component()方法或Vue实例的components选项进行定义。组件的定义包括组件的名称、模板、数据、方法等。局部定义<script>new Vue({
antd 表单 校验、取值、重置
上次接触 React 是一年多以前了，再写的时候发现 antd 有了不晓得改动。总结一下。 1. antd 表单取值和校验 ref={this.formRef} 首先要在表单上定义一个 ref。 formRef = React.createRef() 然后在 class 里面定义 formRef. 这个最好定义在比较靠前的位置，这样方便后面要用到的时候不会出现引用错误。 获取到 form 实例。这个地方代码我截掉了用不到的一段，这个 val 就是拿到的合法表单值。记得要写 catch
layui表单赋值与表单取值
//表单赋值 layui.$('#LAY-component-form-setval').on('click', function(){ form.val('example', { "username": "贤心" // "name": "value" ,"password": "123456" ,"interest": 1 ,"lik...
【Layui】表单赋值 / 取值与任意位置按钮提交表单
1.通常表单赋值，通过Jquery赋值，每给标签单独赋值，显得非常笨着，希望直接可以给form表单赋值。key-value方式。2.在v2.7.0之前提交表单，按钮必须在表单内才可以直接获取表单data,如果在任意位置，则需要捕获标签取值，然后组装成对象，序列化对象传入后台，代码量大而且容易出错。
.NET社区

62,254

社区成员

668,982

社区内容

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

加载中

查看更多榜单
社区公告

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

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

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

+ 用AI写文章