30. november 2000 - 11:39Der er
2 kommentarer og 1 løsning
Error Description
Jeg håber der er nogen der kan hjælpe mig. Jeg er ved at lave noget connection til en database. Jeg skal have mulighed for at se fejlbeskrivelserne, hvis der af en eller anden grund skulle ske fejl. Jeg ved at fejlene bliver opfanget i Login.Errors.Count, men hvordan gør jeg så herfra?
Private Function OpenDB(SConnection) As String
Dim strCnn As String
On Error GoTo error1
Set Login = New ADODB.Connection strCnn = SConnection \'getting the connectionstring from the programmers page
Login.Open strCnn
If Login.Errors.Count > 0 Then
Else \'opening the Login tabel Set rsLogin = New ADODB.Recordset rsLogin.CursorType = adOpenKeyset rsLogin.LockType = adLockOptimistic rsLogin.CursorLocation = adUseClient End If error1: OpenDB = Err.Description
måske kan det her hjælpe, er lidt i tvivl om dit spørgsmål :-)
Private Function OpenDB(SConnection) As String On Error GoTo error1 Dim rslogin as new Adodb.recordset Dim strCnn As String Dim Login as new Adodb.connection Login.Open SConnection \' her går den i fejl hvis der er noget galt med database forbindelsen
If not Login.Errors.Count > 0 Then \'opening the Login tabel rsLogin.CursorType = adOpenKeyset rsLogin.LockType = adLockOptimistic rsLogin.CursorLocation = adUseClient End If error1: Her kan du fange fejlene da de ligger i error objektet, eller handle dem fra hvor denne funktion bliver kaldt, fejlene ligger stadig i objectet selvom du går ud af denne funktion.
Du kan handle fejlene ud fra deres nummer (err.number) og hvis du har brug for det kan du også selv tilføje fejl til error objektet ved kommandoen (err.raise )
Jeg har selv fundet en løsning! Men tak peep for dit bud:)
Synes godt om
Ny brugerNybegynder
Din løsning...
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.