asp.net下,不能向access插入数据

notfish0329

不能插入数据,把捕获异常处"发生错误，没有正常插入记录"给打印出来了

<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<script language="VB" runat="server">
Dim conn As OleDbConnection  
Sub Enter_Click(Sender As Object, E As EventArgs)
        '建立Connection对象
conn=New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("admin/wwwlink.mdb"))                                                                        '建立Connection对象
        '建立Command对象
        Dim sql,strA,strB,strSql As String
               
        conn.Open()
        sql="select U_name from register where U_name='" & U_name.text & "'"
        Dim cm As New OleDbCommand(sql, conn)
        Dim dr As OleDbDataReader=cm.ExecuteReader()
       
        If dr.hasRows() Then
        errMessage.Text="该用户名已存在，请重新注册"
        Response.Redirect("register.aspx")
        Else
       
        strA="Insert Into register(U_name,U_password,P_phone,Fax,Email,topic,submit_date"
        strB=" Values('" & U_name.text & "','" & U_password.text & "','"& P_phone.text &"','"& Fax.text &"','"& Email.text &"','"& topic.text &"',#" & Now() & "#"
        strSql=strA & ")" & strB & ")"
        Dim cmd As New OleDbCommand(strSql, conn)
        Dim Exp As Exception
        Try
                '执行操作，插入记录
                conn.open()                             
                cmd.ExecuteNonQuery()
                conn.close()                           
                Response.Redirect("registerok.aspx")         '正常添加后，返回首页
        Catch Exp
                message.Text="发生错误，没有正常插入记录"       
        End Try
        End If
End Sub
</script>

gergro

首先没有必要用 if else endif
可能在
cm.ExecuteReader没关闭前就操作另外一个了,把捕获异常去掉就能看见具体错误了

在Sql Server 中我们可以按以下方式使用SQL 语句: "Insert into Table (Field1,field2) values(@Value1,@Value2) ",
然后我们再New 几个Paramter： new SqlParameter("@Value1",value)...

access没用过,不知道对不对

悲伤止步

我发现web版块问ms技术的越来越多了  好现象