62,073
社区成员
发帖
与我相关
我的任务
分享请教个数据库小问题！！！！！！！！！！！！SOS
为什么环境提示cmd.ExecuteNonQuery()----提示将参数值从 WindowsPrincipal 转换到 String 失败。
<%@ Page Language="VB" %>
<%@ Import Namespace="System.Data" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<script runat="server">
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim usern As String = Trim(txt1.Text)
Dim mima As String = Trim(txt2.Text)
Dim sconstr As String = System.Configuration.ConfigurationManager.AppSettings("scon")
Dim con As SqlClient.SqlConnection = _
New SqlClient.SqlConnection(sconstr)
Dim sql As String = " insert into test(usern,mima) values(" + usern + "," + mima + ")"
Dim cmd As SqlClient.SqlCommand = _
New SqlClient.SqlCommand(sql, con)
con.Open()
cmd.Parameters.Add(New SqlClient.SqlParameter("@usern", SqlDbType.VarChar, 50)).Value = User
cmd.Parameters.Add(New SqlClient.SqlParameter("@mima", SqlDbType.VarChar, 50)).Value = mima
cmd.ExecuteNonQuery()----为什么这里提示将参数值从 WindowsPrincipal 转换到 String 失败。
lab2.Text = "注册成功"
con.Close()
End Sub
<%@ Page Language="VB" %>
<%@ Import Namespace="System.Data" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<script runat="server">
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim usern As String = Trim(txt1.Text)
Dim mima As String = Trim(txt2.Text)
Dim sconstr As String = System.Configuration.ConfigurationManager.AppSettings("scon")
Dim con As SqlClient.SqlConnection = _
New SqlClient.SqlConnection(sconstr)
Dim sql As String = " insert into test(usern,mima) values(" + usern + "," + mima + ")"
Dim cmd As SqlClient.SqlCommand = _
New SqlClient.SqlCommand(sql, con)
con.Open()
cmd.Parameters.Add(New SqlClient.SqlParameter("@usern", SqlDbType.VarChar, 50)).Value = User
cmd.Parameters.Add(New SqlClient.SqlParameter("@mima", SqlDbType.VarChar, 50)).Value = mima
cmd.ExecuteNonQuery()----为什么这里提示将参数值从 WindowsPrincipal 转换到 String 失败。
lab2.Text = "注册成功"
con.Close()
End Sub
...全文
请发表友善的回复…
发表回复
csk1121 2006-12-23
- 打赏
- 举报
谢谢！！OK了
tianzhenjing 2006-12-23
- 打赏
- 举报
Dim sql As String = " insert into test(usern,mima) values(@usern,@mima)"
csk1121 2006-12-23
- 打赏
- 举报
数据库里字段 usern varchar(50) mima varchar(50)
lxmfll2000 2006-12-23
- 打赏
- 举报
检查一下你的数据类型和数据库里的数据类型是否一致！
