高校问答安卓手机哪个品牌最好:vb高手进！！！！急急急！！！
来源：百度文库 编辑：高校问答 时间：2024/04/24 19:03:19
一个表是“在职员工信息”另一个表是“离职员工表”
两个表的字段基本相同 只是后者比前者多个“离职原因”字段
窗体上现在的datagrid连接的是“在职员工信息”
还有一个combo控件 list里添加的是“跳槽、开除、休假”
设置一个按扭 点击按扭实现以下功能
“在职员工信息”表里内容删除“离职员工表”增加
并且“离职原因里”添加上相应的内容（combo里选择的）
请高手给出按扭的详细代码（一定详细哦）
说明 用的vb6。0 数据库是Access
回答一楼
我说的还不清楚吗？
只是写一个按扭的代码
不麻烦我给你50分啊
补充：采纳后再给100分
通用或模块中：
'连接数据库需声明的变量
'数据库连接，只此一个
Public cn As ADODB.Connection
'通用记录集，绝大多数情况下只使用这一个recordset
Public rs As ADODB.Recordset
'通用，绝大多数情况下只使用这一个ADODB.Command
Public cmm As ADODB.Command
按钮Click事件
dim strIn as string
dim strDel as string
dim strSel as string
dim str与插入离职表基本信息1 as string
dim str与插入离职表基本信息2 as string
......
str与插入离职表基本信息n as string
'设置数据库对象
set rs=new ADODB.Recordset
set cmm=new ADODB.Command
'读出该职工的信息
strSel="select * from 在职员工信息 where 选中员工"
rs.open(strSel),cn
str与插入离职表基本信息1=rs.Fields("字段名1").Value
str与插入离职表基本信息2=rs.Fields("字段名2").Value
....
str与插入离职表基本信息n=rs.Fields("字段名n").Value
rs.close
'判断是否有离职原因
if cmbo.Text =""then
MsgBox"提示选择离职原因",vbInformation,"提示"
else'选择了离职原因
'将该职工的信息插入到数据库的离职员工表中
strin="insert into 离职员工表 表的基本字段,离职原因 values(相应的值--str与插入离职表基本信息n , cmbo.Text) "
With cmm
.ActiveConnection = cn
.CommandText = strin
.Execute
End With
'在员工表中删除该员工信息
strDel="delete from 在职员工信息 where 选中的员工"
With cmm
.ActiveConnection = cn
.CommandText = strdel
.Execute
End With
End If
如果不能运行加我QQ37462513
你就是要别人给你做个程序啦。
做程序很累的呀！！
还有你的数据库呢？