VB+SQL,我要查询出数据库某表中的所有数据,显示在一个表格中,然后通过按钮,对数据进行操纵比如说: 表格中有1行数据,我现在需要通过点击按钮对这一行数据进行删除,同时把这个被删除的数据保存到数据库中另外一张表里, 如果同时有20行数据,我希望可以通过鼠标点选其中的某一个,进行删除,请问这都需要啥控件啊??最好能提供点代码,嘿嘿,谢谢老大们.我太笨了.
用adodc和datagrid我可以查询出所有数据,但不能对数据操纵........
用adodc和datagrid我可以查询出所有数据,但不能对数据操纵........
Dim tempbusinessmanid As String
'保存待删除记录的ID
tempbusinessmanid = Adodc1.Recordset.Fields(0)
'弹出删除确认对话框
If MsgBox("是否删除“" + Adodc1.Recordset.Fields(1) + "”?", vbYesNo, "确认") = vbYes Then
mybusinessman.delete (tempbusinessmanid)
MsgBox "删除成功"
End If
refresh_businessman
End SubPublic Sub delete(ByVal tempbusinessmanid As String)
'连接数据库
mydb.opendb
'设置delete语句
sqlstmt = "delete from businessman where businessmanid='" + Trim(tempbusinessmanid) + "'" '执行SQL语句
Dim Isexe As Boolean
Dim rsbusinessman As ADODB.Recordset
Isexe = mydb.exesql(sqlstmt, rsbusinessman, True)
'断开与数据库的连接
mydb.closedbEnd Sub