Programa funciona em 2 pcs de 4

Question

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

Answer 1

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

Answer 2

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.

Answer 3

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

Answer 4

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?

Answer 5

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