首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

为什么INSERT INTO 向ACESS一次插入两条数据(新手上路)请多多指教,该如何处理

2012-05-05 
为什么INSERT INTO 向ACESS一次插入两条数据(新手上路)请多多指教Protected Sub Button1_Click(ByVal send

为什么INSERT INTO 向ACESS一次插入两条数据(新手上路)请多多指教
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
  If Me.TextBox3.Text.Trim() <> Me.TextBox4.Text.Trim() Then
  Me.ClientScript.RegisterStartupScript(Me.GetType(), "", "<script>alert('前后两次输入的密码不一致');</script>")
  Me.TextBox4.Focus()
  Return
  End If
  If Me.TextBox3.Text.Trim() = "" Then
  Me.ClientScript.RegisterStartupScript(Me.GetType(), "", "<script>alert('密码不能为空');</script>")
  Me.TextBox3.Focus()
  Return
  End If
  conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
  Server.MapPath("App_Data/DataBase.mdb")
  conn.Open()
  Dim cmd As New Data.OleDb.OleDbCommand("select id,name,password from admin where id=" + Me.hf_uid.Value + " and password='" + Me.TextBox3.Text.Trim() + "'", conn)
  ds = New Data.DataSet
  Dim dap As New Data.OleDb.OleDbDataAdapter(cmd)
  dap.Fill(ds, "seach")
  dtable = ds.Tables(0)

  Dim cmdup As New Data.OleDb.OleDbCommand("insert into admin(name,[password]) values('" + TextBox2.Text.Trim() + "','" + TextBox3.Text.Trim() + "')", conn)
  Dim ia As Integer = cmdup.ExecuteNonQuery()
  If ia > 0 Then
  If ds.ToString.Trim() <> TextBox2.Text.Trim() Then
  Me.ClientScript.RegisterStartupScript(Me.GetType(), "", "<script>alert('注册成功');location.href='login.aspx';</script>")
  Else
  Me.ClientScript.RegisterStartupScript(Me.GetType(), "", "<script>alert('用户已经存在,请重新操作');</script>")
  Me.TextBox2.Focus()
  End If
  Else
  Me.ClientScript.RegisterStartupScript(Me.GetType(), "", "<script>alert('注册失败,请重新操作');</script>")
  Me.TextBox2.Focus()

  End If
  conn.Close()
  End Sub

[解决办法]
插入一般都是一次一条 。
启动事务,执行多条插入,事实上可以认为是同时插入
[解决办法]
Dim cnt As New ADODB.Connection

On Error GoTo ErrHandler
cnt.BeginTrans
For i = 0 To n
cnt.Execute "Insert into theTable(.....) VALUES(.........)"
Next
cnt.CommitTrans
Exit Sub 'exit function
ErrHandler:
cnt.RollbackTrans

热点排行