我现在建了个sql数据库,1行存放一个站点1天的各个要素值,现在要增加130个站点50年的资料,数据量很大,我的思路是先查找某站点某天的资料是否入库了,如果没有,新增一行,加入数据,否则更新数据,可是非常慢,追加1个站点的一个要素都要2个多小时。求指点,有没有更好的方法。代码如下:
'''加日雨量
Dim dr1 As DataRow
Dim dt As Date
Dim fl As String
For Each dr As DataRow In DataTables("rd56768").DataRows
For i As Integer =1 To Date.DaysInMonth(dr("年"),dr("月"))
dt = dr("年") & "/" & dr("月") & "/" & i
fl = "Id = '56768' and datetime = " & "#" & dt & "#"
'Output.Show("条件:" & fl)
dr1 = DataTables("日气象要素").Find(fl)
If dr1 IsNot Nothing Then '如果找到的话
dr1("R") = dr("r" & i)
dr1("R2008") = dr("r28" & i)
dr1("R0820") = dr("r82" & i)
Else
Tables("日气象要素").AddNew()
dr1("R") = dr("r" & i)
dr1("R2008") = dr("r28" & i)
dr1("R0820") = dr("r82" & i)
End If
Next
Next