如何将一条经选择的记录删掉???急!!
解决方案 »
- 谁能告诉我在VB中 varchar 值 ‘N/A’是什么意思
- 问各位高手:如何使用在VB中使用WINSOCKET进行数据传递(大量定时--2s传递一批)
- 如何获取CPU序列号(在线等待)
- 怎么在vb中实现打印预览?请给出具体方法!
- 项目符号和编号
- DATAGRID中如何通过代码控制让BOOLEAN型数据不显示0和-1,而显示是或非
- 如何用VB调用MFC写的正规dll
- 这样的代码为什么不能连接SQL SERVER数据库
- vb的DataReport在打印时,如何控制它的打印纸张方向是纵向or 横向?
- VB程序能否接受命令行参数(XXX.exe 7,"Bill Gates")?怎么在程序中接收这些参数?
- 如何将字节数组放到剪贴板上然后再得到?
- 【共享】职业之路(一)
call mcnn.excute(sql)
如:Delete from tblUser where UserID = 'LIMING'
如:adodc1.recordset.delect
也可以象上面说的:
delect *(你要删除的字段) from table where 条件
data.Recordset.Delete
data.Recordset.MoveNext
if data.Recordset.EOF Then data.Recordset.MoveLast
需要注意该记录是否是最后一条记录
call mcnn.excute(sql)
yn = MsgBox("你真的要删除此记录吗?", vbOKCancel, "提示")
If yn = vbCancel Then
Exit Sub
End If
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "对不起,无记录!请添加!", vbOKOnly, "提示"
Exit Sub
End If
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveFirst
Dim yn As Long
Dim sql As StringSet rs3 = New ADODB.Recordset
sql = "select * from t_student where student_id='" & Trim("txtno.text") & "'" rs3.Open sql, conn, 1, 1
yn = MsgBox("你真的要删除此记录吗?", vbOKCancel, "提示")
If yn = vbCancel Then
Exit Sub
End If
If rs3.RecordCount = 0 Then
MsgBox "对不起,无记录!请添加!", vbOKOnly, "提示"
Exit Sub
End If
rs3.Delete
rs3.MoveFirst
Form_Load
display
End Sub
我上面的这段程序总是出错呀,请帮我看一下呀