-
Total de itens
4 -
Registro em
-
Última visita
Sobre igordeeoliveira
igordeeoliveira's Achievements
0
Reputação
-
igordeeoliveira alterou sua foto pessoal
-
Programa funciona em 2 PC de 4 testados
pergunta respondeu ao igordeeoliveira de igordeeoliveira em Visual Basic
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. -
Conexão com BD SqlServer em projeto Visual Basic
pergunta respondeu ao gleiterson de igordeeoliveira em Visual Basic
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- 1 resposta
-
- sqlserver
- visual basic
- (e %d mais)
-
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
-
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