文明行为从我做起:asp.net 文本框更新数据库,请教

来源:百度文库 编辑:查人人中国名人网 时间:2024/04/28 20:28:07
我的数据库更新总是不对,到底出了什么问题??
是读取文本框的内容点击按钮然后更新到数据库
下面是按钮点击的代码

Sub Enter_Click1(Sender As Object, E As EventArgs)
'建立Connection对象
Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source="+Server.MapPath(".")+"..\\DataBase\\db1.mdb;")
'建立Command对象
Dim strSql As String
strSql="Insert Into checkbook(year,title,publisher,keywords,score,time) Values('" & sitename.Text & "','" & URL.Text & "','" & year1.Text & "','" & intro.Text & "'," & cInt(grade.SelectedItem.Text) & ",#" & Now() & "#)"
Dim cmd As New OleDbCommand(strSql, conn)
'执行操作,插入记录
conn.open() '打开数据库id,name,class,chinese,math
cmd.ExecuteNonQuery()
conn.close() '关闭数据库
message.Text="已经成功添加,请自己打开数据库查看结果,也可以继续添加。"
End Sub

---------
下面是文本框的页面代码

<form runat="server" ID="Form1">
<P> </P>
<P>
<TABLE id="Table2" cellSpacing="0" width="80%" border="1" cellpading="2" valign="top">
<TR>
<TD>出版年月:</TD>
<TD>
<asp:Textbox id="sitename" runat="server"></asp:Textbox></TD>
</TR>
<TR>
<TD>书名称:</TD>
<TD> 
<asp:Textbox id="URL" runat="server" columns="40"></asp:Textbox>
</TD>
</TR>
<TR>
<TD>出版社:</TD>
<TD>
<asp:Textbox id="year1" runat="server" columns="40"></asp:Textbox></TD>
</TR>
<TR>
<TD>书简介:</TD>
<TD>
<asp:Textbox id="intro" runat="server" columns="40" rows="4" Textmode="multiline"></asp:Textbox></TD>
</TR>
<TR>
<TD>您的评分:</TD>
<TD>
<asp:dropdownlist id="grade" runat="server">
<asp:listitem>1</asp:listitem>
<asp:listitem>2</asp:listitem>
<asp:listitem selected="True">3</asp:listitem>
<asp:listitem>4</asp:listitem>
<asp:listitem>5</asp:listitem>
</asp:dropdownlist></TD>
</TR>
<TR>
<TD></TD>
<TD>
<asp:button id="Button1" onclick="Enter_Click1" runat="server" Text=" 提 交 "></asp:button></TD>
</TR>
</TABLE>
</P>
<P>
<asp:Label id="message" runat="server"></asp:Label></P>
</form>
----------------------------------
还是说有错哦

INSERT INTO 语句的语法错误。

行 22: '执行操作,插入记录
行 23: conn.open() '打开数据库id,name,class,chinese,math
行 24: cmd.ExecuteNonQuery()
行 25: conn.close() '关闭数据库
行 26: message.Text="已经成功添加,请自己打开数据库查看结果,也可以继续添加。"

还是报错
看不出来到底什么地方有问题

strSql改为:
strSql="Insert Into checkbook(year,title,publisher,keywords,score,time) Values('" & sitename.Text & "','" & URL.Text & "','" & year1.Text & "','" & intro.Text & "'," & cStr(grade.SelectedItem.Text) & ",#" & Now() & "#)"