急问如何将表里面的记录清空,很急.谢谢!!

Question

我做了一个程序,将一个数组bytReceiveByte()里面的数据存在数据库wzq下面的表"当天"里面.
程序如下:
Public cn As ADODB.Connection.....Private Sub Cmd_DB_Click()'--就是说按下Cmd_DB这个按钮的时候就响应这个函数,这个函数用来将
                          '--bytReceiveByte()数组里面的数据存到数据库里面
Dim i As Integer
Dim r As ADODB.Recordset'---设置数据库的连接-----
Set cn = New ADODB.Connection
With cn
      .ConnectionString = "Provider=sqloledb;Data Source=B-136C0E5F02614;initial _catalog=wzq;Integrated Security=SSPI; "     
      .Open    '
End With
'------------------------'----存入数据-----------
Set r = New ADODB.Recordset
For i = 0 To intReceiveLen - 1
r.Open "select * from 当天", cn, adOpenDynamic, adLockOptimistic
r.AddNew
   r!Index = i + 1
   r!Data = bytReceiveByte(i)
r.Update
r.Close
Next i
'----------------------cn.Close
End Sub但是这样做的话是一直在表"当天"里面存入数据,我想每次都先清空表"当天"然后再存入数据,如何清空"当天这个表呢??急!谢谢

Answer 1

cn.Execute "delete from 表1" '删除表1里的所有记录

Answer 2

cn.Execute "delete from 当天"

Answer 3

----存入数据-----------
Set r = New ADODB.Recordset
For i = 0 To intReceiveLen - 1
r.Open "select * from 当天", cn, adOpenDynamic, adLockOptimistic
    这样就是覆盖里面的内容！
   r!Index = i + 1
   r!Data = bytReceiveByte(i)
   r.movenext
r.Update
r.Close
Next i

Answer 4

我想就是说在刚才的基础上,就是在程序的最后加上一个调整次序的功能,是不是可以:
cn.Execute "select * from 当天 order by Index"这句话是不是可以将次序重新调整过来啊??各位帮忙!明天就要联调了,大家帮忙,谢谢谢谢

Answer 5

就是说现在改成:
Public cn As ADODB.Connection.....Private Sub Cmd_DB_Click()'--就是说按下Cmd_DB这个按钮的时候就响应这个函数,这个函数用来将
                          '--bytReceiveByte()数组里面的数据存到数据库里面
Dim i As Integer
Dim r As ADODB.Recordset'---设置数据库的连接-----
Set cn = New ADODB.Connection
With cn
      .ConnectionString = "Provider=sqloledb;Data Source=B-136C0E5F02614;initial _catalog=wzq;Integrated Security=SSPI; "     
      .Open    '
End With
'------------------------cn.Execute "delete from 当天"
'----存入数据-----------
Set r = New ADODB.Recordset
For i = 0 To intReceiveLen - 1
r.Open "select * from 当天", cn, adOpenDynamic, adLockOptimistic
r.AddNew
   r!Index = i + 1
   r!Data = bytReceiveByte(i)
r.Update
r.Close
Next i
'----------------------
'----排序--------------
cn.Execute "select * from 当天 Order by Index"<-------报错cn.Close
End Sub但是好像报错,说incorrect syntax near the keyword 'Index'是什么原因啊?谢谢啊

Answer 6

cn.Execute "select * from 当天 Order by Index"<-------"Index"为1,2,3,5,6,7,8,10,9,4所字段的字段名.