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.DataImports System.Data.SqlClientPublic Class Frm_pendenciasPrivate Sub Frm_pendencias_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadEnd SubPrivate Sub bt_oklogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_oklogin.ClickDim cn As SqlConnection = New SqlConnectioncn.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 Integerj = rs.ExecuteScalar() If j = 0 ThenMsgBox( "Usuário e/ou senha incorreto(s)")If vbOK Thentxt_login.Text = ""txt_senha.Text = ""txt_login.Focus() End IfElsers.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 AQUIEnd IfEnd SubEnd Class
|
|
|