Dim db As Database, sql As String
Set db = OpenDatabase("db.mdb")
sql = "delete from db where 姓名=''"
db.Execute sqlvb6+Access,删除姓名为空的数据如何写?
Set db = OpenDatabase("db.mdb")
sql = "delete from db where 姓名=''"
db.Execute sqlvb6+Access,删除姓名为空的数据如何写?
解决方案 »
- 日期的比较,DTPicker的格式比较月份
- 关于用二进制方式合并图片的问题
- 如何将过滤后的数据集另存为一个新的数据集?
- 新手请教,有关数据查询
- 关于PDF.OCX控件的问题请教
- http://search.csdn.net/ 还是进不去,有两个月了吧?郁闷啊!同感者跟帖。
- VB6编的发送邮件 运行时错误'429' ActiveX部件不能创建对象 (win7+office2010)
- 制作安装包的问题!
- 关于串口操作!
- 请教高手!如何对两个数据库中的表的数据进行比较后。将不同的数据,发送到第三个表!!!!!紧急!!求助!!
- 如何用combo+datagrid+adodc控件构造查询combo所选的记录
- MSFlexGrid如何获取选中行的某些列信息?
Public rs As New ADODB.RecordsetPublic Sub Clean(TableName As String)
Dim rst As New ADODB.Recordset
rst.Open "Select * From " & TableName, cn, 3, 3
Dim a As Boolean
Dim i As Integer
Do Until rst.EOF
For i = 0 To rst.RecordCount
If rst(rst.Fields(i).name) <> "" Then a = True
Next
If a = False Then cn.Execute "Delete From " & TableName & " Where " & rst.Fields(0).name & "='" & rst(rst.Fields(0).name) & "'"
rst.MoveNext
Loop
End Sub