怎么通过ODBC删除Excel数据库的一条记录

删除 Excel 数据时，受到的限制要比从关系数据源中删除数据时更多。在关系数据库中，“行”除了表示一条“记录”外没有其他意义；但在 Excel 工作表中却不同。可以删除字段（单元格）中的值，但不能：

1、 一次删除一整条记录，否则将出现以下错误信息：

Deleting data in a linked table is not supported by this ISAM.

只能通过分别清空各个字段的内容来删除一条记录。

2、 删除包含 Excel 公式的单元格中的值，否则将出现以下错误信息：

Operation is not allowed in this context.

3、 虽然电子表格中已被删除的数据原来所在的行现在是空行，但无法将其删除，而且记录集将继续显示对应于这些空行的空记录。

针对这个问题，我们通常简单的做法就是清空字段的值，类似这样的写法：

UPDATE dept$@hsxls_link SET NAME = NULL, dept_no = NULL WHERE dept_no = 3

用万能的VBA可以解决。

编制代码如下：

Sub 去除重复字符()

Dim I, J, K As Integer

Dim BJ As Integer

Dim s As String

Dim mya(1 To 100)

s = Cells(1, 1)

I = Len(s)

For J = 1 To I

mya(J) = Mid(s, J, 1)

Next J

s = mya(1)

For J = 2 To I

BJ = 0

For K = 1 To J - 1

If mya(J) = mya(K) Then

BJ = 1

Exit For

End If

Next K

If BJ = 0 Then

s = s + mya(J)

End If

Next J

Cells(1, 2) = s

End Sub

Worksheets("sale").Range("a" &delaa, "r" &delaa).Delete Shift:=xlUp

这是删除的语句，应该看得懂吧？

---