05. januar 2005 - 10:58
Der er
2 kommentarer og
1 løsning
ActiveX script til DTS (def af DateTime)
Hej
Jeg sidder og har brug for at vide hvordan jeg definerer en datetime i et ActiveX script i DTS.
Jeg har prøvet på følgende metode, som dog ikke virker.
Dim temp As DateTime
Har også prøvet bare som string, men så får jeg kun yyyy-mm-dd. Det resultere så i at når jeg sætter den ind i det datetime felt hvor den skal hen, så bruger den værdien og regner frem fra datetime's starttidspunkt.
Det jeg gerne vil er at få det eksakte timestamp og kunne sætte det ind i en anden tabel.
Alle kommentarer er mere end velkomne ;)
05. januar 2005 - 11:10
#1
Da ActiveX script i DTS er det samme som VB-script, kan du ikke typedeklarere dine variabler. Alle variabler er af typen variant. Du kan eventuelt konvertere din variable med
CDate(temp).
05. januar 2005 - 12:50
#3
tja.. det virker ikke helt - jeg prøver lige at skrive hvad jeg gerne vil have kodemæssigt.
--------------------------------------------------------------
sql = " SELECT * FROM " & DTSGlobalVariables("Table").Value
Set rs3050 = Conn.Execute(sql)
sql = " SELECT * FROM K3050_fact_raekker"
Set rs3050modpost = Conn.Execute(sql)
If Not rs3050.EOF Then
rs3050.movefirst
do until rs3050.eof
sql = " SELECT * FROM " & DTSGlobalVariables("Table").Value
sql = sql & " WHERE rec_c_key = " & trim(VtoN(rs3050("rec_c_key"), 1))
sql = sql & " AND org_value = '" & trim(VtoN(rs3050("org_value"), 2)) & "'"
sql = sql & " AND kund_gruppe = '" & trim(VtoN(rs3050("kund_gruppe"), 2)) & "'"
sql = sql & " AND kto_value = '" & trim(VtoN(rs3050("kto_value"), 2)) & "'"
sql = sql & " AND kto_DBCRKD = '" & trim(VtoN(rs3050("kto_DBCRKD"), 2)) & "'"
sql = sql & " AND valtype_c_key = '" & trim(VtoN(rs3050("valtype_c_key"), 2)) & "'"
sql = sql & " AND val_c_key = '" & trim(VtoN(rs3050("val_c_key"), 2)) & "'"
sql = sql & " AND sys_source = '" & trim(VtoN(rs3050("sys_source"), 2)) & "'"
sql = sql & " AND tid_C_key = " & trim(VtoN(rs3050("tid_C_key"), 1))
sql = sql & " AND aar_c_key = " & trim(VtoN(rs3050("aar_c_key"), 1))
sql = sql & " AND sen_c_key = " & trim(VtoN(rs3050("sen_c_key"), 1))
Set rs3050modpost = Conn.Execute(sql)
-> Her vil jeg så gerne have en msgbox med datoformatet.
'Dim temp As DateTime = rs3050("TID_TIMESTAMP")
temp = rs3050("TID_TIMESTAMP")
if msgbox(temp,vbyesno) = vbyes then
Exit function
end if
Gør det det klarer?
