删除一列数据的代码？！

红衣公主

在EXCEL里连接ACCESS数据库的代码已经做好了的，但我想到EXCEL里写个删除数据库里“数据表”表的“名称“列的数据，请问如何写？

zez

能上传附件吗？

红衣公主

已上传附件！请帮助！
在EXCEH内用代码删除职工管理.mdb的资料表内的参加工作时间列的数据

zez

Public Sub 删除参加工作时间()
    Dim mydata As String, mytable As String, SQL As String
    Dim cnn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim i As Integer
    mydata = ThisWorkbook.Path & "\职工管理.mdb"
    Set cnn = New ADODB.Connection
    With cnn
        .Provider = "microsoft.jet.oledb.4.0"
        .Open mydata
    End With
    SQL = "UPDATE 资料表 SET 资料表.参加工作时间 = Null"
    Set rs = cnn.Execute(SQL)
    cnn.Close
    Set rs = Nothing
    Set cnn = Nothing
End Sub

红衣公主

谢谢！我想请你在帮个忙！http://club.excelhome.net/thread-467407-1-1.html