在VB中想修改数据库教师表中的一个成员，代码是什么？

Question

如图按下修改键，已经跳转到下面的页面

请问我现在想在文本框里输入数据，然后按下修改按钮，在第一幅图的Teacher表中完成修改，如何做？代码是什么？谢谢您的回答。

Answer 1

第一种：
sql="update Teacher set TeaID='" & Text1 & "',TeaName='" & Text2 & "',CID='" & Text3 & "',DeptID='" & Text4 & "'"
conn.execute(sql)
第二种：
sql="select * from Teacher"
rs.open sql,conn,1,3
rs("TeaID")=Text1
rs("TeaName")=Text2
...
rs.update
相关的conn，rs请自己定义

追问

运行不了。代码如图

谢谢您能在百忙之中帮助我。万分感谢！

第二种可以用，我试了，已经好了。谢谢您，第一个不知错哪了



追答

你吧conn改成cn，你定义的数据库连接变量是cn
另外要在数据库增加一个唯一字段，比如id（或者直接使用TeaID)，这样根据id修改指定的数据
上面代码修改一下：
'修改指定id的数据
第一种：
sql="update Teacher set TeaID='" & Text1 & "',TeaName='" & Text2 & "',CID='" & Text3 & "',DeptID='" & Text4 & "' where id='xxx'"
cn.execute(sql)
第二种：
sql="select * from Teacher where TeaID='xxx'" 'xxx为指定的TeaID
rs.open sql,conn,1,3
rs("TeaID")=Text1
rs("TeaName")=Text2

追问

非常感谢您！，很好用！能再咨询您一个问题吗？如下图我想添加数据进入Teacher表，代码是什么？谢谢您，给您添麻烦了，深表愧疚!

追答

sql="select * from Teacher"
rs.open sql,conn,1,3
rs.addnew '添加这句就是增加数据
rs("TeaID")=Text1
rs("TeaName")=Text2
...
rs.update
或者用第一种，修改sql="insert into Teacher (TeaID,TeaName,CID,DeptID) values('" & Text1 &"','" & Text2 & "','" & Text3 & "','" & Text4 & "')"