大家好 可以帮忙看下下面的代码问题出在哪里吗 非常感谢 代码如下:
Option Explicit
Dim No(199) As Integer 'No()数组存放记录集中的rec_no字段
Private Sub Form()
  For i = 0 To 199
    No(i) = adoRst("rec_no")
    adoRst.MoveNext
  Next i
End SubPrivate Sub Command1_Click()
  Call OrderConnectionSUB    '总连接
  Call random_date(CDate("2009-2-1"), CDate("2009-3-10")) '随机产生200个实参范围内的随机日期
  For i = 0 To 199
     adoCon.Execute "update orders2 set o_date= '" & date_new(i) & "'" & " where rec_no= '" & No(i) & "'"
     adoRst.MoveNext
  Next i
End SubPrivate Sub Command2_Click()
  Set adoRst = Nothing
  Unload Me
End Sub现在的问题是 在运行完Call random_date(CDate("2009-2-1"), CDate("2009-3-10")) 之后的确产生了新的date_new(i)
而adoCon.Execute "update orders2 set o_date= '" & date_new(i) & "'" & " where rec_no= '" & No(i) & "'"运行完之后SQL Server数据库中的o_date属性字段的值没有更新 仍为初始的Null值请大家帮忙看看 问题出在哪里呢 非常感谢

解决方案 »

  1.   

    看看你的o_date字段属性是什么
      

  2.   


    ?请问一下你是指字段类型吗 
    在SQL Server 中rec_no是pk int not null; o_date是date null;
    在VB中date_new(i)是date型
      

  3.   

    date_new(i),带上小时\分\秒,试试
      

  4.   

    哦 不好意思 犯了个非常弱智的问题 Private Sub Form_load()应为 Private Sub Form1_load()
      

  5.   

    哦 不好意思 犯了个非常弱智的问题 Private Sub Form_load()应为 Private Sub Form1_load()