1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

erro de VB 2005 ja ando maluco :S

Discussão em 'Programação' iniciada por Ruben_Barbosa, 16 de Outubro de 2008. (Respostas: 7; Visualizações: 839)

  1. Ruben_Barbosa

    Ruben_Barbosa Power Member

    Da-me este Erro
    [​IMG]

    E o Codigo é

    Código:
    Código:
         Dim daSql As New SqlDataAdapter
            daSql = New SqlDataAdapter("select * from utilizador where utilizador='" & txtUtilizador.Text & "' and password='" & txtPassword.Text & "'", Connection.ConnectionString)
            daSql.Fill(dsSQL, "utilizador")
            If dsSQL.Tables.Item(0).Rows(0).Item(0) = 1 Then
                Utilizador = txtUtilizador.Text
                Main_Renamed.Show()
            Else
                MsgBox("Utilizador ou password incorrectas.", MsgBoxStyle.Critical)
                txtUtilizador.Text = ""
                txtPassword.Text = ""
                txtUtilizador.Focus()
            End If
    
            daSql = Nothing
            dsSQL = Nothing
    
     
    Última edição pelo moderador: 16 de Outubro de 2008
  2. fLaSh_CF

    fLaSh_CF Banido

    Só precisas fazer uma vez New, mas também não é por aí o problema..
    Mostra o que tens em Connection.ConnectionString

     
    Última edição: 16 de Outubro de 2008
  3. Ruben_Barbosa

    Ruben_Barbosa Power Member

    flash Bgd mas ja resolvi o meu problema Agradeco ;)
     
  4. Kayvlim

    Kayvlim Undefined Moderator
    Staff Member

    E como o resolveste? Dá sempre jeito deixar isso para referência futura de alguém que venha a este tópico pelo search ;)
     
  5. SkylineGTR

    SkylineGTR Power Member

    Não incluas directamente na query dados de formulários. Usa parameters.
    Criar um SqlCommand e pois podes adicionar parameters facilmente.
     
  6. Ruben_Barbosa

    Ruben_Barbosa Power Member

    Kayvlim esá aqui o codigo completo ;) para a criação do login :) conforme pediste ;)
    Kayvlim atenção que eu tou a trabalhar com SQL SERVER 2005 e AS400 :)

    Código:
    Imports System.Data.SqlClient
    
    Public Class frmLogin
    
        Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
    
            'cmSQL = New SqlCommand("select * from utilizador", cnSQL)
            'daSql.SelectCommand = cmSQL
            daSql = New SqlDataAdapter("select count(*) from utilizador where utilizador='" & txtUtilizador.Text & "' and password='" & txtPassword.Text & "'", cnSQL)
            Dim dsSQL As DataSet = New DataSet()
            daSql.Fill(dsSQL, "utilizador")
            If dsSQL.Tables.Item(0).Rows(0).Item(0) = 1 Then
                Utilizador = txtUtilizador.Text
                Me.Hide()
                Main_Renamed.Show()
    
            Else
                MsgBox("Utilizador ou password incorrectas.", MsgBoxStyle.Critical)
                txtUtilizador.Text = ""
                txtPassword.Text = ""
                txtUtilizador.Focus()
            End If
            daSql = Nothing
            dsSQL = Nothing
    
        End Sub
    
        Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
            Me.Close()
        End Sub
    
        Private Sub frmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    
            'Abre_BDs()
            Try
                cnSQL = New SqlConnection("Data Source=xxxx;Initial Catalog=xxx;Persist Security Info=True;User ID=xxx;Password=xxxx")
                cnSQL.Open()
                'Abre a conexão a AS400
                dsAS400 = CreateObject("ADODB.Connection")
                dsAS400.Open("Provider=IBMDA400;Data Source=10.x.x.x")
            Catch
            End Try
    
        End Sub
    
        Private Sub txtUtilizador_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtUtilizador.GotFocus
    
            txtUtilizador.SelectAll()
    
        End Sub
    
        Private Sub txtPassword_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtPassword.GotFocus
    
            txtPassword.SelectAll()
    
        End Sub
    
    End Class
    
     
  7. [C4]

    [C4] Power Member

    Atencao que as pesquisas em BD normalmente sao case INSENSITIVE.
    Se for este o caso, uma passoword = 'asdfg' e password='ASDFG' sao consederadas iguais.
     
  8. joao.miguel

    joao.miguel Power Member

    Depende do encoding da base de dados....
     

Partilhar esta Página