erro de VB 2005 ja ando maluco :S

Ruben_Barbosa

Power Member
Da-me este Erro
semttulomk0.jpg


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:
Dim daSql As New SqlDataAdapter
daSql = New SqlDataAdapter("select * from utilizador where utilizador='" & txtUtilizador.Text & "' and password='" & txtPassword.Text & "'", Connection.ConnectionString)
Só precisas fazer uma vez New, mas também não é por aí o problema..
Mostra o que tens em Connection.ConnectionString

Poem breakpoint, e na janela "Immediate Windows" e escreve este comando: ?Connection.ConnectionString
e prime enter..
 
Última edição:
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
 
Atencao que as pesquisas em BD normalmente sao case INSENSITIVE.
Se for este o caso, uma passoword = 'asdfg' e password='ASDFG' sao consederadas iguais.
 
Back
Topo