LOG

ROBFERREIRAA 16/08/2012 16:12:45
#408037
ola tenho essa classe aqui para gera lg no meu sistemas so que esta dando um erro e nao tenho mais ideia

Imports System.IO
Public Class MeuLog
Public Sub gravar(ByVal ex As Exception)
Dim StackTrace1 As String = [Ô][Ô]
Dim StackTrace2 As String = [Ô][Ô]
Dim StackTrace3 As String = [Ô][Ô]
Dim arquivo As String = [Ô][Ô]
String.Format([Ô]{0}\Logs|{1}.txt[Ô], Application.StartupPath.ToString, FormatDateTime(Date.Today, DateFormat.ShortDate).Replace([Ô]/[Ô], [Ô]/[Ô]).ToString)
If Not Directory.Exists(Application.StartupPath & [Ô]\Logs\[Ô]) Then
Directory.CreateDirectory(Application.StartupPath & [Ô]\Logs\[Ô])
Using fs As FileStream = New FileStream(arquivo, FileMode.OpenOrCreate, FileAccess.ReadWrite)
Dim s As StreamWriter = New StreamWriter(fs)
s.Close()
End Using

Using File As FileStream = New FileStream(arquivo, FileMode.Append, FileAccess.Write)
Using sw As StreamWriter = New StreamWriter(File)
sw.Write([Ô]Data/hora:[Ô] & DateTime.Now.ToString() & vbCrLf)
sw.Write([Ô][Ô] & vbCrLf)
sw.Write([Ô]Mensagem: [Ô] & ex.Message & vbCrLf)
sw.Write([Ô]Tipo:[Ô] & ex.GetType.ToString & vbCrLf)
sw.Write([Ô]StrackTrace:[Ô] & ex.StackTrace & vbCrLf)
sw.Write([Ô]==============================================================[Ô] & _
[Ô]==============================================================[Ô] & _
[Ô]==============================================================[Ô] & vbCrLf)
End Using
End Using
End If
End Sub
Public Function Adicionar() As Boolean

If [txt-color=#e80000]Me.Existe[/txt-color](True) = True Then Return False
Using Banco As New [txt-color=#e80000]Banco
Try[/txt-color] Banco.AddToBairro(Me)
Banco.Savechanges()
Return True

Catch ex As Exception
Dim Log As New Log
Log.gravar(ex)
Throw New Exception([Ô]Ocorreu um erro ao gravar o bairro[Ô], ex)
Return False
End Try

End Using

End Function
End Class



O erro estao nas duas palavras de vermelho

obrigado
ALTAIR148 16/08/2012 16:21:11
#408041
O que era para esse trecho fazer?


  Public Function Adicionar() As Boolean

        If Me.Existe(True) = True Then Return False
        Using Banco As New Banco
            Try                Banco.AddToBairro(Me)
                Banco.Savechanges()
                Return True

            Catch ex As Exception
                Dim Log As New Log
                Log.gravar(ex)
                Throw New Exception([Ô]Ocorreu um erro ao gravar o bairro[Ô], ex)
                Return False
            End Try

        End Using

    End Function
ROBFERREIRAA 16/08/2012 16:55:05
#408044
para gravar o log salvar o arquivo
ALTAIR148 16/08/2012 17:02:59
#408045
E qual erro que aparece?
ROBFERREIRAA 16/08/2012 17:10:27
#408046
nem deixa eu compilar o [Ô]Existe[ô] diz que nao é membro da minha classe e na linha do Using Banco As New Banco esta dando erro no ultimo banco dizendo que nao esta definido on tipo
ALTAIR148 16/08/2012 17:15:10
#408048
Tente assim

Public Function Adicionar() As Boolean

        If Me.Existe(True) = True Then Return False
        Dim Banco As New Banco
            Try             
   Banco.AddToBairro(Me)
                Banco.Savechanges()
                Return True

            Catch ex As Exception
                Dim Log As New Log
                Log.gravar(ex)
                Throw New Exception([Ô]Ocorreu um erro ao gravar o bairro[Ô], ex)
                Return False
            End Try


    End Function
ROBFERREIRAA 16/08/2012 17:23:43
#408052
ja tinhya tentado usando o Dim no lugar do using ele da erro na variavel LOG
ALTAIR148 16/08/2012 17:25:37
#408053
Citação:

ja tinhya tentado usando o Dim no lugar do using ele da erro na variavel LOG



Qual erro?
ROBFERREIRAA 16/08/2012 17:33:01
#408054
o mesmo erro que no banco [Ô]o tipo log nao esta definido[Ô]
ALTAIR148 16/08/2012 17:39:13
#408055
A mensagem é muito clara, não existe nada com o nome Log.

Esse seu código esta tudo dentro da mesma classe?
ROBFERREIRAA 16/08/2012 17:49:11
#408056
sim esta da mesma forma que postei ... Mais se eu uso [ô]Using nao erro mais no Log o erro fica so no banco
Página 1 de 3 [25 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar