大家好 可以帮忙看下下面的代码问题出在哪里吗 非常感谢 代码如下:
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值请大家帮忙看看 问题出在哪里呢 非常感谢
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值请大家帮忙看看 问题出在哪里呢 非常感谢
?请问一下你是指字段类型吗
在SQL Server 中rec_no是pk int not null; o_date是date null;
在VB中date_new(i)是date型