none
Programa funciona em 2 pcs de 4 RRS feed

  • Discussão Geral

  • Fiz um programa  em vb porém ele só funciona em 2 pcs de 4 que testei, capturei o log de eventos do windows de um pc de que não abriu.

    Load do form principal:

    Public Class FormPrincipal
        Private SQL As New SQLcontrol
        Dim idSAMP As Integer
        Dim idTS As Integer
        Dim CaminhoArquivo As String
        Dim tempodosamp As Integer
        Dim tempodots As Integer
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            GetServidores()
            mostrarip()
            GetServidoresTS()
            carregarconfiguracoes()
        End Sub

    Esse é um dos erros: 

    Aplicativo: Launcher SA-MP.exe
    Versão do Framework: v4.0.30319
    Descrição: O processo foi terminado devido a uma exceção sem tratamento.
    Informações da Exceção: System.InvalidOperationException
    Pilha:
       em Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()
       em Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(System.String[])
       em LauncherSAMP.My.MyApplication.Main(System.String[])

    depois da esse:

    Aplicativo: Launcher SA-MP.exe
    Versão do Framework: v4.0.30319
    Descrição: O processo foi terminado devido a uma exceção sem tratamento.
    Informações da Exceção: System.InvalidOperationException
    Pilha:
       em Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()
       em Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(System.String[])
       em LauncherSAMP.My.MyApplication.Main(System.String[])

    Não sei oque fazer.

    LOG PARA DOWNLOAD: https://onedrive.live.com/redir?resid=BBDD036BAD75D4DA!3697&authkey=!AIQMMZxL1xSXy4o&ithint=file%2cevtx

    domingo, 12 de julho de 2015 00:07

Todas as Respostas

  • em framework target em propriedades do projeto esta o 4.5.1 e todos os pcs testados tem essa versão, tentei instalar mesmo assim e disse que já tinha, e todos são 64bits incluindo o meu aonde compilei.

    Vou fazer um programa simples e testar já retorno

    domingo, 12 de julho de 2015 16:47
  • Fiz um com um botão que quando apertado aparece 2 msgbox, e funcionou normalmente nos pc que n funciona o meu programa mesmo.

    Esqueci de citar que os arquivos do programa ficam todos no lugar correto, inclusive o banco de dados fica no %appdata% o programa só não abre mesmo.

    domingo, 12 de julho de 2015 17:10
  • Lá vou eu ... não sei nem por onde começa, em um dos erro no log aparece P4: System.Data.SqlServerCe, provavelmente deve ser problema com o banco de dados, e se eu mexer vou ter que alterar todo o programa.

    Tambem não entendo porque funcione em outro pc mas no resto não ...

    Aproveitando, me indica um banco de dados super simples vo usar 2 tabelas iguais com no max 10 valores cada?

    Estavo dando uma olhada nesse entity http://imasters.com.br/desenvolvimento/utilizando-entity-framework-com-sql-ce/

    Já usou ? meu banco de dados é do sql ce então já é .sdf

    sqlcontrol 

    Imports System.Data
    Imports System.Data.SqlServerCe
    Public Class SQLcontrol
        Dim filepatch As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Launcher SA-MP"
        'Conexão SQL
        Private SQLcon As New SqlCeConnection("Data Source=" & filepatch & "\dataservidores.sdf")
        Private SQLcmd As SqlCeCommand
        'SQL data
        Public SQLDA As SqlCeDataAdapter
        Public SQLDS As DataSet
        'Busca parametros
        Public params As New List(Of SqlCeParameter)
        'Busca estatisticas
        Public RecordCount As Integer
        Public exception As String
        Public Sub ExecQuery(Query As String)
            Try
                SQLcon.Open()
                'Criar cmd sql
                SQLcmd = New SqlCeCommand(Query, SQLcon)
                'Carregar parametros
                params.ForEach(Sub(x) SQLcmd.Parameters.Add(x))
                'Limpar parametros
                params.Clear()
                'Executar cmd
                SQLDS = New DataSet
                SQLDA = New SqlCeDataAdapter(SQLcmd)
                RecordCount = SQLDA.Fill(SQLDS)
                SQLcon.Close()
            Catch ex As Exception
                'capturar erro
                exception = ex.Message
            End Try
            If SQLcon.State = ConnectionState.Open Then SQLcon.Close()
        End Sub
        Public Sub AddParam(name As String, value As Object)
            Dim NewParam As New SqlCeParameter(name, value)
            params.Add(NewParam)
        End Sub
        'CRIAR SERVIDOR samp
        Public Sub criarservidor(addnomeservidor As String, addipservidor As String)
            Try
                Dim strInsert As String = "INSERT INTO dataservidor (NomeServidor,IPServidor) " & _
                                          "VALUES (" & _
                                          "'" & addnomeservidor & "'," & _
                                          "'" & addipservidor & "') "
                SQLcon.Open()
                SQLcmd = New SqlCeCommand(strInsert, SQLcon)
                SQLcmd.ExecuteNonQuery()
                SQLcon.Close()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End Sub
        'criar servidor TS
        Public Sub criarservidorTS(addnomeservidorTS As String, addipservidorTS As String)
            Try
                Dim strInsert As String = "INSERT INTO dataservidorTS (NomeTS,IPServidorTS) " & _
                                          "VALUES (" & _
                                          "'" & addnomeservidorTS & "'," & _
                                          "'" & addipservidorTS & "') "
    
                SQLcon.Open()
                SQLcmd = New SqlCeCommand(strInsert, SQLcon)
    
                SQLcmd.ExecuteNonQuery()
    
    
                SQLcon.Close()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End Sub
        Public Sub DataUpdate(Command As String)
            Try
                SQLcon.Open()
                SQLcmd = New SqlCeCommand(Command, SQLcon)
    
                Dim ChangeCount As Integer = SQLcmd.ExecuteNonQuery
    
                SQLcon.Close()
    
                'Reportando resultados
                If ChangeCount = 0 Then
                    MsgBox("O item que você procura para deletar não foi encontrado.")
                Else
                    MsgBox(ChangeCount & " Servidor apagado!")
                End If
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End Sub
    End Class
    

    domingo, 12 de julho de 2015 17:34
  • Consegui reproduzir o erro no meu PC, oque acontece é que em pcs sem o sql compact instalado o programa nem abre ( eu pensei q ia avisar que não achou banco de dados ), mas agora que sei disso, só precisa descobrir como incluir o SQL CE na instalação ou instalar o SQL CE junto na instalação porque não quero que a pessoa instale programa por fora. 
    Como incluir na instalação?
    domingo, 12 de julho de 2015 19:49
  • Resolvido :)

    Inclui o SQL CE x64 e x86 no instalador com o inno setup, tudo bem que ficou 20mb mas tudo bem..

    Quem quiser testar: http://www.mediafire.com/download/1fjg9vviynfsfb3/SetupLauncherSAMP2.exe


    segunda-feira, 13 de julho de 2015 04:59