USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic .Net
Voltar
Autor Assunto:  Exibindo dados no VB.Net 2005
Ari147
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 12/06/2008 15:33 hs            
Olá,
 
Estou desenvolvendo uma palicação com conexão remota com o sql server. Já Fiz a conexão e já fiz o select, agora só preciso saber como recuperar os dados retornados da minha seleção e exibí-los.
 

Imports System.Data

Imports System.Data.SqlClient

Public Class Frm_pendencias

Private Sub Frm_pendencias_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub bt_oklogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_oklogin.Click

Dim cn As SqlConnection = New SqlConnection

cn.ConnectionString = "Data Source=fat04;Initial Catalog=conjur;Persist Security Info=True;User ID=sa;Password=123456;"

cn.Open()

Dim strsql As String = "Select count(*) from [conjur.usuarios] where login='" & txt_login.Text & "' And senha='" & txt_senha.Text & "'"

Dim rs As SqlCommand = New SqlCommand(strsql, cn)

Dim j As Integer

j = rs.ExecuteScalar()

If j = 0 Then

MsgBox("Usuário e/ou senha incorreto(s)")

If vbOK Then

txt_login.Text = ""

txt_senha.Text = ""

txt_login.Focus()

End If

Else

rs.Connection.Close()

j = 0

strsql = "Select * from [conjur.usuarios] where login='" & txt_login.Text & "' And senha='" & txt_senha.Text & "'"

rs = New SqlCommand(strsql, cn)

j = rs.ExecuteScalar()

'PAREI AQUI

End If

End Sub

End Class

   
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
Topo da página