ERRO NO CODIGO DE CONEXAO.

SAMUELRIBEIRO 06/06/2013 14:40:17
#424431
boa tarde Omar 2011.
Segue abaixo todo o código.
Você teria uma apostila ou videos sobre a diferença destes códigos vb6 e vb 2010?
Ta complicado, para quem é novato em programação.

Citação:

Public cnSiscom As New ADODB.Connection
Public vNome As String
Private rsLogon As New ADODB.Recordset


Private Sub frmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim conn As MySql.Data.MySqlClient.MySqlConnection
conn = New MySql.Data.MySqlClient.MySqlConnection
conn.ConnectionString = [Ô]Server = localhost; User Id= Administrador; Password = 25041966; Database = siscom[Ô]
SQL = [Ô]Select * from siscom.tblUsuario[Ô]
Try
conn.Open()

Try
myCommand.Connection = conn
myCommand.CommandText = SQL
myAdapter.SelectCommand = myCommand
myAdapter.Fill(MyData)
[ô]DataSource = MyData

Catch myErro As MySql.Data.MySqlClient.MySqlException
MsgBox([Ô]Erro de leitura no banco de Dados:[Ô] & myErro.Message)
End Try

MessageBox.Show([Ô]Conexão aberta com sucesso[Ô])
Catch myErro As MySql.Data.MySqlClient.MySqlException
MessageBox.Show([Ô]Erro ao Conectar com o Banco de Dados:[Ô] & myErro.Message)
Finally
conn.Dispose()
End Try
End Sub

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
Dim senha As String
Dim vNivel, vSenha As String

If txtUsuario.Text = Nothing Then
MsgBox([Ô]Digite o seu Nome de Usuario![Ô], vbOKOnly + vbInformation, [Ô]Sistema de automação Comercial Aviso[Ô])
txtUsuario.Focus()
End If
Exit Sub
If txtSenha.Text = Nothing Then
MsgBox([Ô]Digite a sua Senha Corrente![Ô], vbOKOnly + vbInformation, [Ô]Sistema de automação Comercial Aviso[Ô])
txtSenha.Focus()
Exit Sub
End If
vNome = Chr(39) & txtUsuario.Text & Chr(39)
vSenha = Chr(39) & txtSenha.Text & Chr(39)
rsLogon.Open([Ô]Select * tblUsuario where usuario & vNome &[Ô] And senha = [Ô] & vSenha, cnSiscom, adOpenKeySet, adLockOptimistic, adCmdTest [Ô])

If rsLogon.RecordCount = 0 Then
MsgBox([Ô]Usuario ou senha invalido[Ô], vbOKOnly + vbInformation, [Ô]Sistema de Automação Comercial Aviso[Ô])
txtUsuario.Text = [Ô][Ô]
txtSenha.Text = [Ô][Ô]
txtUsuario.Focus()
rsLogon.Close()
Exit Sub
Else
frmPrincipal.Show()
vNivel = rsLogon([Ô]nivel[Ô])
vNome = rsLogon([Ô]usuario[Ô])
frmPrincipal.sttPrincipal.Text = [Ô]Operador:[Ô] & vNome
If vNivel = [Ô]B[Ô] Then
With frmPrincipal

End With
End If
End If

End Sub
End Class

FILMAN 07/06/2013 19:43:38
#424481
Como foi dito, não utilize linhas de código baseado em vb6 dentro do .NET

Essa linhas não se declara assim

Public cnSiscom As New ADODB.Connection
Private rsLogon As New ADODB.Recordset

Declare-as como foi citado no inicio do topico

Essa linhas aqui esta errada

rsLogon.Open([Ô]Select * tblUsuario where usua[txt-color=#e80000]rio &[/txt-color] [txt-color=#0000f0]vNome [/txt-color]&[Ô] And senha = [Ô] & vSenha, cnSiscom, adOpenKeySet, adLockOptimistic, adCmdTest [Ô])

Onde esta vermelho não esta sendo fechado para contatenação da variavel vNome e deve estar fazendo uma comparação
tipo [Ô]where usuario = [ô][Ô] & vNome .....

Só que mesmo assim não pode ser utilizado dessa maneira, pois essa é uma expressão para vb6
utilize métodos de programação apto para .NET

http://www.macoratti.net/net_msql.htm

http://www.vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=8139


http://www.codeproject.com/Tips/493133/Connecting-to-MySQL-databases-using-VB-NET


Existe vários exemplo na NET tem que procurar que você vai achar

Aqui no fórum mesmo existe um monte


espero ter ajudado
SAMUELRIBEIRO 10/06/2013 16:21:17
#424552
Boa Tarde FILMAN.

Muito Obrigado pela atenção e sugestão.

Tentei fazer o que você me disse, mas no Inicio do tópico eu estava usando o Visual BASIC 2010 e tentando conectar me em um banco de dados Access, só que o meu forte é o banco de dados MySQL, O banco de dados já esta prontinho com todas as relações de tabelas feitas e tive que mudar para o visual BASIC 2008 Express Edition, conectado ao banco de dados já estou mas não estou conseguindo é fazer os códigos, do jeito que precisa ser feito, os exemplos que você me passou estão meios complicados. Mas vou continuar tentando, é complicado mas aprendo.

Caso você tenha outra sugestão, eu agradeço muito.

Desde já Obrigado.
FILMAN 11/06/2013 16:25:05
#424603
Qual o problema que realmente acontecendo?
qual o código que você não esta conseguindo fazer?
SAMUELRIBEIRO 11/06/2013 17:27:53
#424609
Boa Tarde Filman.
Em anexo segue o formulário de login onde esta aparecendo label1 onde deveria estar aparecendo a data do SO, e label2 onde deveria estar aparecendo a hora do SO. Abaixo segue o código completo novamente onde não consigo achar erro pois ainda não sei diferenciar os códigos de vb6 de vb2008 express edition. Conectado ao banco de dados já esta normal,

Citação:

Public cnSiscom As New ADODB.Connection
Public vNome As String
Private rsLogon As New ADODB.Recordset

Private Sub frmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim conn As MySql.Data.MySqlClient.MySqlConnection
conn = New MySql.Data.MySqlClient.MySqlConnection
conn.ConnectionString = [Ô]Server = localhost; User Id= Administrador; Password = 25041966; Database = siscom[Ô]
SQL = [Ô]Select * from siscom.tblUsuario[Ô]
Try
conn.Open()

Try
myCommand.Connection = conn
myCommand.CommandText = SQL
myAdapter.SelectCommand = myCommand
myAdapter.Fill(MyData)
[ô]DataSource = MyData

Catch myErro As MySql.Data.MySqlClient.MySqlException
MsgBox([Ô]Erro de leitura no banco de Dados:[Ô] & myErro.Message)
End Try

MessageBox.Show([Ô]Conexão aberta com sucesso!![Ô])
Catch myErro As MySql.Data.MySqlClient.MySqlException
MessageBox.Show([Ô]Erro ao Conectar com o Banco de Dados:[Ô] & myErro.Message)
Finally
conn.Dispose()
End Try
End Sub

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
Dim senha As String
Dim vNivel, vSenha As String
senha = [Ô][Ô]
vNivel = [Ô][Ô]
vSenha = [Ô][Ô]

If txtUsuario.Text = Nothing Then
MsgBox([Ô]Digite o seu Nome de Usuario![Ô], vbOKOnly + vbInformation, [Ô]Sistema de automação Comercial Aviso[Ô])
txtUsuario.Focus()
End If
Exit Sub
If txtSenha.Text = Nothing Then
MsgBox([Ô]Digite a sua Senha Corrente![Ô], vbOKOnly + vbInformation, [Ô]Sistema de automação Comercial Aviso[Ô])
txtSenha.Focus()
Exit Sub
End If
vNome = Chr(39) & txtUsuario.Text & Chr(39)
vSenha = Chr(39) & txtSenha.Text & Chr(39)
rsLogon.Open([Ô]Select * tblUsuario where usuario & vNome &[Ô] And senha = [Ô] & vSenha, cnSiscom, adOpenKeySet, adLockOptimistic, adCmdTest [Ô])

If rsLogon.RecordCount = 0 Then
MsgBox([Ô]Usuario ou senha invalido[Ô], vbOKOnly + vbInformation, [Ô]Sistema de Automação Comercial Aviso[Ô])
txtUsuario.Text = [Ô][Ô]
txtSenha.Text = [Ô][Ô]
txtUsuario.Focus()
rsLogon.Close()
Exit Sub
Else
frmPrincipal.Show()
vNivel = rsLogon([Ô]nivel[Ô])
vNome = rsLogon([Ô]usuario[Ô])
frmPrincipal.tssPrincipal.Text = [Ô]Operador:[Ô] & vNome
If vNivel = [Ô]B[Ô] Then
With frmPrincipal
[ô].Gerenciar.visible = False
[ô].Cadastro.visible = False
End With
End If
If vNivel = [Ô]C[Ô] Then
With frmPrincipal
[ô].Gerenciar.visible = False
[ô].Cadastro.visible = False
End With
End If
End If
End Sub
Private Sub frmLogin_Load()

Dim mTime, mData, MStr
mData = [Ô][Ô]
MStr = [Ô][Ô]
mTime = [Ô][Ô]

cnSiscom.ConnectionString = [Ô]Server = localhost; User Id= Administrador; Password = 25041966; Database = siscom[Ô]
lblData.Text = MStr = Format(mData, [Ô]dddd, mmm d yyyy[Ô])
lblHora.Text = MStr = Format(TimeOfDay, [Ô]Long time[Ô])
End Sub
End Class

FILMAN 11/06/2013 18:32:04
#424612
vou ver pra você mais tarde

Vlw
FILMAN 11/06/2013 22:48:59
#424617
Cara seguinte

Se você quer programar em plataforma .NET esquece vb6, pois o conceito muda

Imports MySql.Data.MySqlClient

Public Class frmLogin
	Inherits System.Windows.Forms.Form
	
	Dim conn As New MySqlConnection
	Dim SQL As String
	
	Private Sub frmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		Label1.Text = Date.Now.ToString([Ô]hh:mm:ss[Ô]) [ô]Para Hora
		Label2.Text = Date.Now.ToString([Ô]dd/MM/yyyy[Ô]) [ô]Para Data
		
        	Try
			conn.ConnectionString = [Ô]server=localhost;user id=Administrador;password=25041966;database=siscom[Ô]
			conn.Open()
			
        	Catch myErro As MySqlException
			MessageBox.Show([Ô]Erro ao Conectar com o Banco de Dados:[Ô] & Chr(13) & myErro.Message)
		End Try
    	End Sub

    	Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
		Dim myCommand As New MySqlCommand
		Dim myAdapter As New MySqlDataAdapter
		Dim myData As New DataTable

        	If String.IsNullOrEmpty(txtUsuario.Text) Then
			MsgBox([Ô]Digite o seu Nome de Usuario![Ô], vbOKOnly + vbInformation, [Ô]Sistema de automação Comercial Aviso[Ô])
			txtUsuario.Focus()
			Exit Sub
        	End If

        	If String.IsNullOrEmpty(txtSenha.Text) Then
            	MsgBox([Ô]Digite a sua Senha Corrente![Ô], vbOKOnly + vbInformation, [Ô]Sistema de automação Comercial Aviso[Ô])
            	txtSenha.Focus()
            	Exit Sub
        	End If
		
		SQL = [Ô][Ô]
		SQL &= [Ô]SELECT * [Ô]
		SQL &= [Ô]  FROM tblUsuario 
		SQL &= [Ô]  WHERE usuario = [ô][Ô] & txtlogin.Text & [Ô][ô] AND senha = [ô][Ô] & txtSenha.Text & [Ô][ô][Ô]
		
		myCommand.Connection = conn
		myCommand.CommandText = SQL
		myAdapter.SelectCommand = myCommand
		myAdapter.Fill(MyData)

		if MyData.Rows.Count = 0 Then
			MsgBox([Ô]Usuario ou senha invalido[Ô], vbOKOnly + vbInformation, [Ô]Sistema de Automação Comercial Aviso[Ô])
			txtUsuario.Text = [Ô][Ô]
			txtSenha.Text = [Ô][Ô]
			txtUsuario.Focus()
            
			MyData.Dispose()
			
			Exit Sub
        	Else
			Dim frmPrincipal As New frmPrincipal
			frmPrincipal.tssPrincipal.Text = [Ô]Operador: [Ô] & MyData.Rows(0)([Ô]usuario[Ô]).ToString()
			
			MyData.Dispose()
			
			frmPrincipal.ShowDialog()
                        Me.Close()
		End If
	End Sub
End Class


Esse código é mais ou menos como deve ficar o seu FORM de login, porém o resto que você copiou e colou do VB6 para o VB.NET não vale de nada

Não misture as plataformas

Pesquise no Google que você encontra alguma coisa baseada e .NET ai é só adaptar e não misturar

Espero ter ajudado
SAMUELRIBEIRO 12/06/2013 16:43:31
#424678
Filman

Não sei como, código que você me passou, Gerou 16 erros [Ô]A instrução não é valida em um namespace[Ô], e sumiu o Designer do formulário Login.


FILMAN 13/06/2013 00:38:54
#424695 Resposta escolhida
Cara você precisa importar o MySql para o sistema ou seja adicionar a referencia da biblioteca

conforme link abaixo, porém se você prestar atenção nas explicações vai conseguir ir m frente
no link existe uma explicação para fazer uma consultar na tabela que é o que você vai utilizar

http://www.macoratti.net/net_msql.htm
Página 2 de 2 [19 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar