erro fill: Propriedade SelectCommand.Connection n - VBWEB

USUÁRIO: SENHA:

SALVAR LOGIN ?


	Fórum
	Visual Basic

Voltar

Autor

Assunto: erro fill: Propriedade SelectCommand.Connection n

Hetfield

RIO DE JANEIRO
RJ - BRASIL

Postada em 21/09/2006 12:01 hs

erro fill: Propriedade SelectCommand.Connection não foi definidada

Public Sub Login(ByVal LoginUsername As String, ByVal LoginSenha As String)

Dim Tabela As New DataTable

Dim SQL As String

SQL = "Select Username, Senha From Tbl_Usuarios Where Username = '" & LoginUsername & "' and Senha = '" & LoginSenha & "'"

Try

Adp = New OleDbDataAdapter(SQL, Conn)

Adp.Fill(Tabela)

If Tabela.Rows.Count > 0 Then

Usuario = LoginUsername

My.Response.Redirect("http://www.cade.com.br")

Else

MsgBox("Nome de usu rio ou senha inv lida", MsgBoxStyle.Information, "Aviso!")

End If

Catch ex As Exception

MsgBox(ex.Message)

End Try

End Sub

Alguém tem alguma sugestão?

TÓPICO EDITADO

ghost_jlp

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 21/09/2006 13:34 hs

Cara, num manjo muito mas tenta assim...

Public Sub Login(ByVal LoginUsername As String, ByVal LoginSenha As String)

Dim Tabela As New DataTable

Dim SQL As String

Dim ds As DataSet

SQL = "Select Username, Senha From Tbl_Usuarios Where Username = '" & LoginUsername & "' and Senha = '" & LoginSenha & "'"

Try

Adp = New OleDbDataAdapter(SQL, Conn)

ds = New DataSet

Adp.Fill(ds,Tabela)

If Tabela.Rows.Count > 0 Then

Usuario = LoginUsername

My.Response.Redirect("http://www.cade.com.br")

Else

MsgBox("Nome de usu rio ou senha inv lida", MsgBoxStyle.Information, "Aviso!")

End If

Catch ex As Exception

MsgBox(ex.Message)

End Try

End Sub

tente dar uma olhada na parte em vermelho...

at+

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR


		CyberWEB Network Ltda. © Copyright 2000-2024 - Todos os direitos reservados. Powered by HostingZone - A melhor hospedagem para seu site