Dim db As Database, sql As String
    Set db = OpenDatabase("db.mdb")
    sql = "delete from db where 姓名=''"
    db.Execute sqlvb6+Access,删除姓名为空的数据如何写?

解决方案 »

  1.   

    Public cn As New ADODB.Connection
    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
      

  2.   

    delete from db where 姓名 is null