Otacildo Ferreira da Silva

Bom dia, Desenvolvi um projeto em vb.net 2010 com db em sql express. Gerei um .exe e ao publicar o sistema em um computador sem visual basic, é mostrado a seguinte mensagem, "O aplicativo exige que o conjunto de módulos (assembly) Microsoft.VisualBasic.PowerPacks.Vs Versão 10.0.0.0 seja instalado no GAC.

Boa noite amigos, Achei uma video aula que mostra como enviar email. Esta aula esta no vb 2012 e eu fiz no vb 2010. A escrita esta identica, mas no 2010 esta dando erro. Quando depuro o programa, ele da a mensagem de erro do catch. Imports System.Net.Mail Public Class Form1 Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Try Dim servidorsmtp As New SmtpClient() Dim email As New MailMessage() servidorsmtp.Credentials = New Net.NetworkCredential("emailenvio@gmail.com", "senhaenvio") servidorsmtp.Port = 587 servidorsmtp.Host = "smtp.gmail.com" email = New MailMessage email.From = New MailAddress("emailenvio@gmail.com") email.To.Add("emaildestino@gmail.com") email.Subject = "Email de teste" email.Body = "Este é um teste. Funcionou." servidorsmtp.Send(email) MsgBox("Email enviado") Catch ex As Exception MsgBox("Ocorreu um erro no envio.") End Try End Sub End Class

Bom dia a todos, O meu formulário possui dois botões e três textbox, um deles é txtChave o qual queria para informar como chave de encriptação, para que não tivesse uma chave fixa. Achei este programa mas não consegui colocar na linha Private Const key As String = txtChave.text. Alguém tem como ajudar. Imports System.Text Imports System.Security.Cryptography Public Class frmCrypto Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.TextBox2.Text = Crypto.Encrypt(Me.TextBox1.Text) Me.TextBox1.Clear() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.TextBox1.Text = Crypto.Decrypt(Me.TextBox2.Text) Me.TextBox2.Clear() End Sub End Class ''' <summary> ''' Encriptação simples usando TripleDES ''' (Triple Data Encryption Standard) ''' </summary> ''' <remarks></remarks> Partial Class Crypto Private Shared TripleDES As New TripleDESCryptoServiceProvider Private Shared MD5 As New MD5CryptoServiceProvider ' Definição da chave de encriptação/decriptação Private Const key As String = "123456" ''' <summary> ''' Calcula o MD5 Hash ''' </summary> ''' <param name="value">Chave</param> Public Shared Function MD5Hash(ByVal value As String) As Byte() ' Converte a chave para um array de bytes Dim byteArray() As Byte = ASCIIEncoding.ASCII.GetBytes(value) Return MD5.ComputeHash(byteArray) End Function ''' <summary> ''' Encripta uma string com base em uma chave ''' </summary> ''' <param name="stringToEncrypt">String a encriptar</param> Public Shared Function Encrypt(ByVal stringToEncrypt As String) As String Try ' Definição da chave e da cifra (que neste caso é Electronic ' Codebook, ou seja, encriptação individual para cada bloco) TripleDES.Key = Crypto.MD5Hash(key) TripleDES.Mode = CipherMode.ECB ' Converte a string para bytes e encripta Dim Buffer As Byte() = ASCIIEncoding.ASCII.GetBytes(stringToEncrypt) Return Convert.ToBase64String(TripleDES.CreateEncryptor().TransformFinalBlock(Buffer, 0, Buffer.Length)) Catch ex As Exception MessageBox.Show(ex.Message, My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error) Return String.Empty End Try End Function ''' <summary> ''' Decripta uma string com base em uma chave ''' </summary> ''' <param name="encryptedString">String a decriptar</param> Public Shared Function Decrypt(ByVal encryptedString As String) As String Try ' Definição da chave e da cifra TripleDES.Key = Crypto.MD5Hash(key) TripleDES.Mode = CipherMode.ECB ' Converte a string encriptada para bytes e decripta Dim Buffer As Byte() = Convert.FromBase64String(encryptedString) Return ASCIIEncoding.ASCII.GetString(TripleDES.CreateDecryptor().TransformFinalBlock(Buffer, 0, Buffer.Length)) Catch ex As Exception MessageBox.Show(ex.Message, My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error) Return String.Empty End Try End Function End Class

Bom dia amigos, Sou iniciante em vb.net 2010, estou desenvolvendo um sistema para aprendizado e deparei com alguns problemas. Desde já agradeço a todos e desejo-lhes um Feliz Natal. Banco de Dados: dB_Estoque.accdb Tabela: tbl_Usuario Cod_Usuario Usu_Matricula Usu_Nome Usu_Dpto Usu_Cargo Usu_Email Usu_Telefone Usu_Usuario Usu_Senha Usu_Desativado 1 – Os dados não aparecem no datagridview. 2 – Não consigo resolver o problema do Carrega_Campos(). Na linha Dim ind As Integer = dgvUsuarios.CurrentRow.Index + 1 apresenta a mensagem "Referência de objeto não definida para uma instância de um objeto". Imports System.Data.OleDb Public Class frm_Usuario Dim acod_Usuario(1) As Integer Dim aMatricula(1) As String Dim aNome(1) As String Dim aDpto(1) As String Dim aCargo(1) As String Dim aEmail(1) As String Dim aTelefone(1) As String Dim aUsuario(1) As String Dim aSenha(1) As String Dim aDesativado(1) As String Dim vModo As String = "x" Private Sub frm_Usuario_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Carrega_Usuarios() Habilita_Campos() End Sub Private Sub Carrega_Usuarios() Dim cs As String = My.Settings.db_EstoqueConnectionString Dim conect As New OleDb.OleDbConnection conect.ConnectionString = cs conect.Open() Dim selcom As New OleDb.OleDbCommand selcom.Connection = conect selcom.CommandText = "SELECT * FROM tbl_Usuario ORDER BY usu_Nome" Dim vLeitor As OleDb.OleDbDataReader vLeitor = selcom.ExecuteReader() Dim c As Integer = 0 dgvUsuarios.Rows.Clear() Do While vLeitor.Read c = c + 1 ReDim Preserve acod_Usuario© ReDim Preserve aMatricula© ReDim Preserve aNome© ReDim Preserve aDpto© ReDim Preserve aCargo© ReDim Preserve aEmail© ReDim Preserve aTelefone© ReDim Preserve aUsuario© ReDim Preserve aSenha© ReDim Preserve aDesativado© acod_Usuario© = vLeitor("cod_Usuario") aMatricula© = vLeitor("usu_Matricula") aNome© = vLeitor("usu_Nome") aDpto© = vLeitor("usu_Dpto") aCargo© = vLeitor("usu_Cargo") aEmail© = vLeitor("usu_Email") aTelefone© = vLeitor("usu_Telefone") aUsuario© = vLeitor("usu_Usuario") aSenha© = vLeitor("usu_Senha") aDesativado© = vLeitor("usu_Desativado") dgvUsuarios.Rows.Add(aNome©, aDpto©, aCargo©) Loop conect.Close() End Sub Private Sub Carrega_Campos() Dim ind As Integer = dgvUsuarios.CurrentRow.Index + 1 txtMatricula.Text = aMatricula(ind) txtNome.Text = aNome(ind) txtDpto.Text = aDpto(ind) txtCargo.Text = aCargo(ind) txtEmail.Text = aEmail(ind) txtTelefone.Text = aTelefone(ind) txtUsuario.Text = aUsuario(ind) txtSenha.Text = aSenha(ind) 'txtDesativado.Text = aDesativado(ind) End Sub Private Sub dgvUsuarios_SelectionChanged(sender As System.Object, e As System.EventArgs) Handles dgvUsuarios.SelectionChanged Carrega_Campos() End Sub Private Sub btnAlterar_Click(sender As System.Object, e As System.EventArgs) Handles btnAlterar.Click vModo = "A" Habilita_Campos() End Sub Private Sub Habilita_Campos() btnNovo.Enabled = False btnAlterar.Enabled = False btnExcluir.Enabled = False btnConfirmar.Enabled = True btnCancelar.Enabled = True btnFechar.Enabled = False txtMatricula.Enabled = True txtNome.Enabled = True txtDpto.Enabled = True txtCargo.Enabled = True txtEmail.Enabled = True txtTelefone.Enabled = True txtUsuario.Enabled = True txtSenha.Enabled = True 'txtDestivado.Enabled = True End Sub Private Sub Desabilita_Campos() btnNovo.Enabled = True btnAlterar.Enabled = True btnExcluir.Enabled = True btnConfirmar.Enabled = False btnCancelar.Enabled = False btnFechar.Enabled = True txtMatricula.Enabled = False txtNome.Enabled = False txtDpto.Enabled = False txtCargo.Enabled = False txtEmail.Enabled = False txtTelefone.Enabled = False txtUsuario.Enabled = False txtSenha.Enabled = False 'txtDestivado.Enabled = False End Sub Private Sub btnCancelar_Click(sender As System.Object, e As System.EventArgs) Handles btnCancelar.Click Desabilita_Campos() Carrega_Campos() End Sub Private Sub btnConfirmar_Click(sender As System.Object, e As System.EventArgs) Handles btnConfirmar.Click If vModo = "A" Then Dim cs As String = My.Settings.db_EstoqueConnectionString Dim conect As New OleDb.OleDbConnection conect.ConnectionString = cs Try conect.Open() Dim selcom As New OleDb.OleDbCommand selcom.Connection = conect selcom.CommandText = "UPDATE tbl_Usuario SET usu_Matricula= '" & txtMatricula.Text & "', usu_Nome= '" & txtNome.Text _ & "', usu_Dpto= '" & txtDpto.Text & "', usuCargo= '" & txtCargo.Text _ & "', usu_Email= '" & txtEmail.Text & "', usu_Telefone= '" & txtTelefone.Text _ & "', usu_Usuario= '" & txtUsuario.Text & "', usu_Senha= '" & txtSenha.Text & "' " _ & "WHERE usu_cod_Usuario = " & acod_Usuario(dgvUsuarios.CurrentRow.Index + 1) selcom.ExecuteNonQuery() conect.Close() Catch ex As Exception MessageBox.Show("Erro de gravação de dados!" & vbCrLf & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try Desabilita_Campos() Carrega_Usuarios() End If If vModo = "I" Then End If If vModo = "E" Then End If End Sub Private Sub btnNovo_Click(sender As System.Object, e As System.EventArgs) Handles btnNovo.Click Habilita_Campos() vModo = "I" txtMatricula.Text = "" txtNome.Text = "" txtDpto.Text = "" txtCargo.Text = "" txtEmail.Text = "" txtTelefone.Text = "" txtUsuario.Text = "" txtSenha.Text = "" 'txtDesativado.Text = "" txtMatricula.Focus() End Sub Private Sub btnExcluir_Click(sender As System.Object, e As System.EventArgs) Handles btnExcluir.Click Habilita_Campos() vModo = "E" End Sub End Class

Boa tarde, Sou iniciante e estou desenvolvendo um programa para aprendizado. A rotina para verificação de senha esta funcionando com um pequeno erro. a linha do selcom.CommandText = "SELECT usu_Senha FROM tbl_Usuario WHERE usu_Usuario= ' " & txtUsuario.Text & "'", verifica se o usuário que digitei, é igual ao usuário do banco de dados. Até aí tudo bem, só que se digito um usuário cadastrado que possui uma senha, mas deixo a senha em branco, no If vSenha = txtSenha.Text then ele verifica a senha em branco do formulário com a váriavel que criei vSenha, passa e abre o frm_Principal, onde não deveria fazer isso, no banco de dados o usuário possuir senha. Abaixo segue a código fonte da rotina. Desde já, agradeço a todos os colegas. Otacildo Ferreira da Silva Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click Dim cs As String = My.Settings.db_EstoqueConnectionString Dim conect As New OleDb.OleDbConnection conect.ConnectionString = cs conect.Open() Dim selcom As New OleDb.OleDbCommand selcom.Connection = conect selcom.CommandText = "SELECT usu_Senha FROM tbl_Usuario WHERE usu_Usuario= ' " & txtUsuario.Text & "'" Dim vSenha As String = selcom.ExecuteScalar conect.Close() If vSenha = txtSenha.Text Then frm_Principal.Show() Me.Close() Else MessageBox.Show("Usuário ou senha inválidos", "Usuário errada!", MessageBoxButtons.OK, MessageBoxIcon.Warning) txtUsuario.Text = "" txtSenha.Text = "" txtUsuario.Focus() End If End Sub