Inquiridor
Programa funciona em 2 pcs de 4

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
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
-
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.
- Editado IgordeeOliveira domingo, 12 de julho de 2015 17:11
-
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
- Editado IgordeeOliveira domingo, 12 de julho de 2015 17:47
-
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?- Editado IgordeeOliveira domingo, 12 de julho de 2015 19:50
-
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
- Editado IgordeeOliveira segunda-feira, 13 de julho de 2015 05:00