想要把text3和4中的内容插入表ip，在5秒后再删除，可是怎么删除不了啊？？？ 郁闷死了....
Private Sub Command2_Click()
Dim conn As Adodb.Connection
Dim rs As Adodb.Recordset
Dim SQLstr As String
Dim StrCnn As String
Set conn = New Adodb.Connection
conn.Open "driver={sql server};database=DNS;server=(local);uid=;pwd="
Set rs = New Adodb.Recordset
rs.CursorLocation = adUseClient
SQLstr = Text4.Text
StrCnn = Text3.Text
rs.Open "INSERT INTO ip(ipaddress,domainaddress) values ('" & SQLstr & "','" & StrCnn & "') ", conn, 1, 3
Timer2.Enabled = True
If Timer2.Interval >= 5000 Then
StrCnn = Text3.Text
rs.Open "DELETE FROM ip where domainaddress='" & StrCnn & "') ", conn, 1, 3
End If
End Sub

你在條件中少了一個括號，在VB中操作數據庫時應用到讀取下一條記錄時才可對整個表進行搜縈查詢及修改。你這樣讀取的只是當前那條數據，

SQL语句错了
DELETE FROM ip where domainaddress='" & StrCnn & "')

DELETE表名 WHERE 条件

delete from 也可以的。

我觉得不是SQL的问题
Timer的用法不对

Timer2.Enabled = True
If Timer2.Interval >= 5000 Then
StrCnn = Text3.Text
好像不能这么用定时器吧

Timer2.Enabled = True
Timer2.Interval = 5000

然后把删除指令写到TImer的事件中取才对