---------------------------------------数据添加问题------------------------------------------
yaoge 2004-11-03 05:00:09 我现在有一个问题不明白谢谢指教:
我这个程序主要实现的是:添加数据入数据库(但不能添加相同帐号的的数据):
Dim objConn As New OleDbConnection
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Server.MapPath("good.mdb")
objConn.Open()
Dim objCmd As New OleDbCommand
objCmd.Connection = objConn
objCmd.CommandText = "select * from arg where name='" & name.Text & "'"
Dim objReader As OleDbDataReader = objCmd.ExecuteReader()
If objReader.Read() = True Then
mg.Text = "有这个人呀"
objReader.Close()
objConn.Close()
Else
'没有相同帐号的.加入数据...
' mg.Text = "没有这个人呀"
'Dim objCmd As New OleDbCommand
objCmd.Connection = objConn
objCmd.Parameters.Add("@name", OleDbType.Char).Value = name.Text
objCmd.Parameters.Add("@pwd", OleDbType.Char).Value = pwd.Text
objCmd.Parameters.Add("@sex", OleDbType.Char).Value = sex.SelectedItem.Text
objCmd.Parameters.Add("@mail", OleDbType.Char).Value = mail.Text
objCmd.Parameters.Add("@address", OleDbType.Char).Value = address.Text
objCmd.CommandText = "insert into arg (name,pwd,sex,mail,address) values(?,?,?,?,?)"
objCmd.ExecuteNonQuery()
objConn.Close()
End If
当我插入不同帐号时:出现的错误是:
OleDbCommand 是当前正忙的 Open, Fetching。
说明: 执行当前 Web 请求期间,出现未处理的异常。请检查堆栈跟踪信息,以了解有关该错误以及代码中导致错误的出处的详细信息。
异常详细信息: System.InvalidOperationException: OleDbCommand 是当前正忙的 Open, Fetching。