Ir para conteúdo
Fórum Script Brasil

igordeeoliveira

Membros
  • Total de itens

    4
  • Registro em

  • Última visita

Tudo que igordeeoliveira postou

  1. No log de erro do windows, ele informa um problema com a dll do SQL CE acho que tenha ao haver, mas estou desistalando todos os meus SQL aqui tentando repoduzir o erro.
  2. recomendo você instalar usando o sqlcompact eu fiz isso e no source do banco de dados eu cooloco = % appdata %\nome do programa\banco.sdf sendo app data uma variavel do caminho mesmo, o banco n pode ficar no arquivos de programa porque lá ele n pode ser lido pelo programa, devido permisões.. dai tu faz o instaladore manda o banco de dados pra appdata\nomedoprograma\banco.sdf
  3. Fiz um programa em vb mas só funciona em 2 ( 1 é o meu) 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 completo: https://onedrive.live.com/redir?resid=BBDD036BAD75D4DA!3697&authkey=!AIQMMZxL1xSXy4o&ithint=file%2cevtx
  4. Estou com um problema em adicionar/editar/deletar novos itens na tabela, eu segui um tutorial e me levou ao código abaixo e funciona, ele lista os valores na combobox, mas ai eu clico em adicionar e abr e o form2 com dois textbox form1.vb: Imports System.Data Imports System.Data.OleDb Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load PPreenchaComboBox() End Sub Private Sub PPreenchaComboBox() Using con As OleDbConnection = GetConnection() Try con.Open() Dim sql As String = "SELECT Nome FROM servidores" Dim cmd As OleDbCommand = New OleDbCommand(sql, con) Dim da As OleDbDataAdapter = New OleDbDataAdapter Dim dt As DataTable = New DataTable da.SelectCommand = cmd da.Fill(dt) cmxNomeservidores.DisplayMember = "Nome" cmxNomeservidores.DataSource = dt Catch ex As Exception MsgBox(ex.Message) Finally con.Close() End Try End Using End Sub Private Sub PleDados() Dim dr As OleDbDataReader = Nothing Using con As OleDbConnection = GetConnection() Try con.Open() Dim sql As String = "SELECT IP FROM servidores WHERE nome='" & cmxNomeservidores.Text & "'" Dim cmd As OleDbCommand = New OleDbCommand(sql, con) dr = cmd.ExecuteReader(CommandBehavior.SingleRow) If dr.HasRows Then dr.Read() lbl_IP.Text = dr.Item("IP") Else MsgBox("Não foi encontrado") End If Catch ex As Exception MsgBox(ex.Message) Finally con.Close() End Try End Using End Sub Private Sub cmxNomeservidores_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmxNomeservidores.SelectedIndexChanged PleDados() End Sub Private Sub btn_addservidor_Click(sender As Object, e As EventArgs) Handles btn_addservidor.Click Form2.Show() End Sub End Class mdlAcesso.vb: Imports System.Data Imports System.Data.OleDb Module mdlAcesso Public Function GetConnection() As OleDbConnection Dim sql As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\bancoservidores.accdb" Return New OleDbConnection(sql) End Function End Module
×
×
  • Criar Novo...