回 帖 发 新 帖 刷新版面

主题:各位大侠帮帮小弟看看这个程序……

VB code
'    rs.Open "exec add_employee @e_find_id='" & txtPerson(0).Text & "',@e_id='" & txtPerson(0).Text & "',@e_name='" & txtPerson(1).Text & "',@e_sex='" & txtPerson(2).Text & "',@e_birth='" & txtPerson(3).Text & "',@e_dept='" & txtPerson(4).Text & "',@e_duty='" & txtPerson(5).Text & "',@e_study='" & txtPerson(6).Text & "',@e_gov='" & txtPerson(7).Text & "',@e_phone='" & txtPerson(8).Text & "',@e_memo='" & txtPerson(9).Text & "'", con, 1, 3  就是想问这一条的前面exec 和add 是怎么意思呢保存时提示错误  提示未找到存储过程  "add_employee"   数据库中名为tboa_employee  

VB code
Private Sub cmdEsave_Click()
  For i = 0 To txtPerson.Count - 2
  If txtPerson(i).Text = "" Then MsgBox "除备注信息可以为空,其于均不能为空!", vbInformation: Exit Sub
  Next i
  If Me.cmdEadd.Tag = "添加" Then
     Set con = New ADODB.Connection
     con.Open PublicStr
     Set rs1 = New ADODB.Recordset
     rs1.Open "exec add_employee @e_id='" & txtPerson(0).Text & "',@e_name='" & txtPerson(1).Text & "',@e_sex='" & txtPerson(2).Text & "',@e_birth='" & txtPerson(3).Text & "',@e_dept='" & txtPerson(4).Text & "',@e_duty='" & txtPerson(5).Text & "',@e_study='" & txtPerson(6).Text & "',@e_gov='" & txtPerson(7).Text & "',@e_phone='" & txtPerson(8).Text & "',@e_memo='" & txtPerson(9).Text & "'", con, 1, 3
     con.Close
     MsgBox "数据添加成功!"
     Me.cmdEadd.Tag = ""
  End If

  If Me.cmdEupdate.Tag = "修改" Then
     Set con = New ADODB.Connection
     con.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_OA"
     Set rs = New ADODB.Recordset
     rs.Open "exec update_employee @e_find_id='" & txtPerson(0).Text & "',@e_id='" & txtPerson(0).Text & "',@e_name='" & txtPerson(1).Text & "',@e_sex='" & txtPerson(2).Text & "',@e_birth='" & txtPerson(3).Text & "',@e_dept='" & txtPerson(4).Text & "',@e_duty='" & txtPerson(5).Text & "',@e_study='" & txtPerson(6).Text & "',@e_gov='" & txtPerson(7).Text & "',@e_phone='" & txtPerson(8).Text & "',@e_memo='" & txtPerson(9).Text & "'", con, 1, 3
     con.Close
     MsgBox "数据更改成功!"
     Me.cmdEupdate.Tag = ""
  End If
  adoEmployee.Refresh

回复列表 (共3个回复)

沙发

你的出错情况是什么?出错位置在哪里?

板凳

If you like to [url=http://www.atlanticshoppingline.com/ugg-boots-c-138.html]buy ugg boots[/url],such as the[url=http://www.allshoesstyle.com/]fashion UGG Boots[/url],[url=http://www.atlanticshoppingline.com/new-ugg-2010-c-138_156.html]New Ugg Boots[/url],[url=http://www.allshoesstyle.com/uggs-bailey-button-c-85_86.html]Uggs Bailey Button[/url],the fashionable [url=http://www.atlanticshoppingline.com/ugg-classic-short-c-138_139_144.html]ugg classic short[/url],popular and stylish[url=http://www.allshoesstyle.com/ugg-leopard-print-c-85_93.html]UGG Leopard Print[/url],comfotable and modern[url=http://www.atlanticshoppingline.com/ugg-bailey-button-triplet-c-138_139_149.html]Ugg Bailey button Triplet Boots[/url],wonderful and fashionable [url=http://www.allshoesstyle.com/ugg-jimmy-choo-starlit-c-111_119.html]UGG Jimmy Choo Starlit[/url],the modern [url=http://www.atlanticshoppingline.com/ugg-jimmy-choo-boots-c-168.html]Ugg Jimmy Choo Boots[/url],choose your favorite gift now.

3 楼

[url=http://www.cheapreplicawatche.co.uk/]replica watches[/url]
[url=http://www.cheapreplicawatche.co.uk/]replica watches UK[/url]
[url=http://www.cheapreplicawatche.co.uk/]Fake watches[/url]
[url=http://www.cheapreplicawatche.co.uk/]Rolex Replica[/url]
[url=http://www.cheapreplicawatche.co.uk/best-replica-bell-ross-watches-349.html]Bell & Ross Watches[/url]
[url=http://www.cheapreplicawatche.co.uk/best-replica-breitling-watches-312.html]Breitling Watches[/url]
[url=http://www.replicahause.org.uk]Replica Watches[/url]
[url=http://www.cheapreplicawatche.co.uk/best-replica-omega-watches-170.html]Omega Watches[/url]
[url=http://www.cheapreplicawatche.co.uk/best-replica-panerai-watches-292.html]Panerai Watches[/url]
[url=http://www.cheapreplicawatche.co.uk/best-replica-patek-philippe-watches-415.html]Patek Philippe Watches[/url]
[url=http://www.cheapreplicawatche.co.uk/best-replica-rolex-watches-143.html]Rolex watches[/url]
[url=http://www.cheapreplicawatche.co.uk/best-replica-tag-heuer-watches-166.html]Tag Heuer Watches[/url]
[url=http://www.cheapreplicawatche.co.uk/best-replica-uboat-watches-99.html]U-Boat Watches[/url]
[url=http://www.chanelhandbagsale.net/]Chanel Handbags[/url]
[url=http://www.chanelhandbagsale.net/]Replica Chanel[/url]
[url=http://www.chanelhandbagsale.net/]Chanel Replicas[/url]
[url=http://www.chanelhandbagsale.net/]Chanel on Sales[/url]

我来回复

您尚未登录,请登录后再回复。点此登录或注册