17. maj 2001 - 12:31Der er
15 kommentarer og 1 løsning
Hjælp!! checke om en database er tilgængelig.
Jeg har brug for at checke om min database er tilgængelig.. Databasen bliver x antal gange i døgnet uploadet via ftp, og når dette sker kan man ikke læse i databasen, og jeg skal derfor bruge en metode til at cheke om dette sker. Så brugerne kan blive sendt vidre til en side med en meddelse om at databasen bliver opdateret..
Jeg har indtil vidre brugt.
<!--#include virtual=\"/include/adovbs.asp\"--> <% Dim Connect Dim rs
On Error Resume Next Set Connect = Server.CreateObject(\"ADODB.Connection\") Connect.Open \"1-netdk\"
If Connect.errors.count > 0 Then Connect.close Set Connect = Nothing Response.Redirect(\"db_opda.asp\") End IF
Set rs = Server.CreateObject(\"ADODB.Recordset\") %>
men af en eller anden underlig grund virker det ikke mere.. selv når databasen ikke bliver uploadet bliver man sendt vidre til db_opda.asp
De fleste virksomheder har efterhånden bevist, at AI virker.
Pilotprojekter leverer resultater. Medarbejdere bruger generative AI-værktøjer. Nye use cases dukker op på tværs af organisationen.
El. ved hjælp \"Scripting.FileSystemObject\" tjekke om filen eksistere el. hvornår den sidst er redigeret/oprettet (alt efter om du overskriver/sletter)
jeg har prøvet at rettet det til If Errors.Count > 0 Then desværre uden held..
Jeg har skiftet den Response.Redirect \"db_opda.asp\") ud med If Errors.Count > 0 Then
så det nu ser sådan ud: If Errors.count > 0 Then Response.Write \"Fejl #\" & Err.Number &\": \" & Err.Description Connect.close Set Connect = Nothing \'Response.Redirect(\"db_opda.asp\") End IF
Så får jeg denne fejl Fejl #424: Object required men jeg får den både når db bliver uploadet og når den ikke gør..
Jeg er bange for at hvis man checker om filen eksistere med FileSystemObject, at man så vil få at vide at det gør den.. Filen vil være der selv om at den er ved at blive skrevet.
Du skal også checke om fejlens nummer er forskelligt fra 0. Fejl med nummer 0 er ikke fejl som sådan. Prøv denne funktion:
Function ConnectionError(ByVal objDBConn) Dim objErr If objDBConn.Errors.Count > 0 Then For Each objErr In objDBConn.Errors If objErr.Number <> 0 Then ConnectionError = True End If Next Else ConnectionError = False End If End Function
Når du har forsøgt at åbne din forbindelse kalder du denne funktion med Connection objektet som parameter.
Function ConnectionError(ByVal objDBConn) Dim objErr If objDBConn.Errors.Count > 0 Then For Each objErr In objDBConn.Errors If objErr.Number <> 0 Then ConnectionError = True Exit Function End If Next Else ConnectionError = False End If End Function
<% response.buffer = true %> <!--#include virtual=\"/include/adovbs.asp\"--> <% Dim Connect Dim rs
On Error Resume Next
Set Connect = Server.CreateObject(\"ADODB.Connection\") Connect.Open \"1-netdk\"
Set rs = Server.CreateObject(\"ADODB.Recordset\")
rs.open \"SELECT TOP 1 Users.userID, * FROM Users;\" ,Connect,adOpenKeyset,adLockReadOnly,adCmdText If (rs.BOF Or rs.EOF) Then connect.close set connect = Nothing rs.Close Set rs = Nothing Response.Redirect(\"db_opda.asp\") End If
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
