|
|
 | Kør en gang i døgnet
Fra :  souidr | Vist : 484 gange
200 point
Dato : 11-09-06 15:17 |
|
Hej
Jeg har bruge for et lille programe der kører en gang i døgnet (23.55), udfører et forspørgsel til en MSSQL database (access db. kan stilles til rådighed) og returner et værdi til videre behandling.
Der er op til 325 point at tjene
Mere om det ? kontakt mig på souidri@yahoo.dk
Hilsen
Souidr
| |
|
Lav et almindelig program og kør det under "planlagte opgaver" fra kontrol panelet.
| |
|
Bertel har ret.
Men en anden måde at tilgå "Planlagte opgaver", er gennem dos/cmd commandoen "AT"
Dette giver lidt flere muligheder, hvis du vil programmere en løsning.
/Michael Christoffersen
| |
| Kommentar
Fra : souidr |
Dato : 12-09-06 12:07 |
|
Ok her er lidt mere forklaring på hvad jeg skal bruge
i et dokument arkivsystem, vil der blive arkiveret nogen dokumenter til download, de studerende får tilsendt et mail der notificer dem om at opgaven er nu til rådighed og de skal download det inden 48 timer (Nedtælling til aflevering starter også der). Det jeg gerne vil have lavet i VB (det er jeg ikke god til selv) er et funktion der holder øje med et tabel i Databasen, aflæser et felte en gang i døgnet og returner Dataid for de dokumenter der er mere end 48 timer gamle. Disse dataid'er vil så blive lagt ind som variabel i en API som sletter de dokumenter der er mere en 2 dage gamle. API ser som følgende ud. Jeg sender gerne VB projektet som ZIP hvis nødvendige
hilsen
Souidr
Kode
Private Sub RUNLAPI_Click()
Dim server As String
Dim port As Long
Dim LIVELINK_UID As String
Dim UID_PW As String
Dim TITLE As String
Dim FILE As String
' --------------TODO: Modify the following values as necessary before
' compiling and executing this sample --------------------------------------------
server = "localhost"
port = 2999
LIVELINK_UID = "UserName"
UID_PW = "Password"
Dim session As Long
Dim status As Long
Dim NodeID As Long
Dim ParentID As Long
Dim nodeVol As Long
Dim parentVol As Long
Dim ObjInfo As Long
Dim VersionInfo As Long
Dim logMsgs As String
' Initialize values
session = 0
status = LL_OK
' --------------Build a VB application to get the NodeID and put it here as var -------
NodeID = 53435
' -------------------------------------------------------------------------------------
' if you have documents with the same name but in different files,
' then you must seek the parentID too and/or evt. the version nr., etc.
' ParentID = 0
' nodeVol = 0
' parentVol = 0
' ObjInfo = 0
' VersionInfo = 0
'-------------------------------------------------------------------------------------
logMsgs = ""
' Initialize LAPI
status = LL_Initialize(LL_HEADER_VERSION)
If (status = LL_OK) Then
logMsgs = logMsgs & "Initialized LAPI" & vbCrLf
'Allocate some value objects
status = LL_ValueAlloc(ObjInfo)
If (status = LL_OK) Then
status = LL_ValueAlloc(VersionInfo)
End If
End If
If (status = LL_OK) Then
'Connect to Livelink
status = LL_SessionAllocEx(session, server, _
port, "", _
LIVELINK_UID, UID_PW, 0)
End If
If (status = LL_OK) Then
logMsgs = logMsgs & "Connected to Archive" & vbCrLf
' Access the user's Personal Workspace
status = LL_AccessPersonalWS(session, ObjInfo)
If (status = LL_OK) Then
status = LL_AssocGetInteger(ObjInfo, "VolumeID", parentVol)
End If
If (status = LL_OK) Then
status = LL_AssocGetInteger(ObjInfo, "ID", ParentID)
End If
End If
If (status = LL_OK) Then
logMsgs = logMsgs & "Student workspace accessed" & vbCrLf
status = LL_DeleteObject(session, nodeVol, NodeID)
If (status = LL_OK) Then
logMsgs = logMsgs & "Document deleted" & vbCrLf
End If
End If
' Handle any errors
If (status <> LL_OK) Then
' Display status code
logMsgs = logMsgs & "Status=" & Trim(str(status)) & _
" (0x" & LCase(Hex(status)) & ")" & vbCrLf
If (session <> 0) Then
Dim siz1 As Long
Dim siz2 As Long
Dim siz3 As Long
Dim buf1 As String * 256
Dim buf2 As String * 256
Dim buf3 As String * 256
Dim stat As Long
Dim message As Long
Dim errMsg As Long
Dim apiError As Long
Dim status2 As Long
' Allocate the error value objects
Call LL_ValueAlloc(message)
Call LL_ValueAlloc(errMsg)
Call LL_ValueAlloc(apiError)
' Get the error information
Call LL_SessionStatusError(session, stat, message, errMsg, apiError)
status = LL_ValueIsDefined(message)
If (status = LL_OK) Then
status = LL_ValueGetString(message, buf1, 256, siz1)
Else
buf1 = ""
End If
status = LL_ValueIsDefined(errMsg)
If (status = LL_OK) Then
status = LL_ValueGetString(errMsg, buf2, 256, siz2)
Else
buf2 = ""
End If
status = LL_ValueIsDefined(apiError)
If (status = LL_OK) Then
status = LL_ValueGetString(apiError, buf3, 256, siz3)
Else
buf3 = ""
End If
logMsgs = logMsgs & "Session failure status is " & _
Trim(str(stat)) & _
" (0x" & LCase(Hex(stat)) & ")" & vbCrLf
If (siz1 <> 0 Or siz2 <> 0 Or siz3 <> 0) Then
logMsgs = logMsgs & "Message=" & Left(buff1, siz1) & vbCrLf
logMsgs = logMsgs & "errMsg=" & Left(buff2, siz2) & vbCrLf
logMsgs = logMsgs & "apiError=" & Left(buff3, siz3) & vbCrLf
End If
' Free the error value objects
Call LL_ValueFree(message)
Call LL_ValueFree(errMsg)
Call LL_ValueFree(apiError)
End If
End If
' Free value objects that were allocated
If (ObjInfo <> 0) Then
Call LL_ValueFree(ObjInfo)
End If
If (VersionInfo <> 0) Then
Call LL_ValueFree(VersionInfo)
End If
' Free the session
If (session <> 0) Then
Call LL_SessionFree(session)
End If
' Uninitialize LAPI
Call LL_Uninitialize
logMsgs = logMsgs & "End of sample"
MsgBox (logMsgs)
End Sub |
 | |
 | Du har følgende muligheder | |
|
Dette spørgsmål er blevet annulleret, det er derfor ikke muligt for at tilføje flere kommentarer.
| |
|
|