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

 

  Fórum

  Visual Basic .Net
Voltar
Autor Assunto:  como é recordeset no .net?
xprata
não registrado
ENUNCIADA !
Postada em 10/09/2004 11:57 hs   
Bom dia,
 
No vb6 faço a verificação de usuario e senha no banco desta forma:
 
vsSql = "select usuario from ace_usuario where usuario = ' " & usu & " ' and senha = ' " & sen & " '
Cmd.CommandText = vsSql
Set frsRs = New ADODB.Recordset
frsRs.Open Cmd, , 3
If frsRs.RecordCount Then 
   msgbox "Usuario ok"
else
   msgbox "Usuario não localizado"
endif
 
Como faço isso no .net
Sei qua não tem recordset e uso o dataset, mas como fazer ?
 
Comecei assim:

Dim voCnn As New SqlConnection(fString_Conexao)

Dim voDs As New DataSet

vsSql = "select usuario from ace_usuario where usuario = ' " & usu & " ' and senha = ' " & sen & " '

Dim voCmd As New SqlDataAdapter(vsSql, voCnn)

voCmd.Fill(voDs)

agora como verifica se tem alguma coisa no vods?
 
if ....
else
...
endif
 
t+
   
Fabio Rocha
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 23/06/2005 10:35 hs            
Aqui vai um exemplo de DELETE, INSERT e SELECT ao mesmo tempo:
 
    Public Function GravaRegistros() As Boolean
        Dim strDatope As String
        Dim mCmd As New SqlCommand
        Dim i As Short
        Dim iLinhaRet As Short
        Try
            strDatope = varDatope.Year & "-" & varDatope.Month & "-" & varDatope.Day
            mCon = New SqlConnection("Server=" & sServidorSQL & ";Database=NomeBD; Trusted_Connection=yes")
            mCon.Open()
            mCmd.Connection = mCon
            mCmd.CommandText = "DELETE FROM TABELA"
            mCmd.ExecuteScalar()
            For i = 1 To UBound(AcoesBovespa) - 1
                mCmd.CommandText = "insert into TABELA values ('" & AcoesBovespa(i).Codigo & "', '" & AcoesBovespa(i).Descri & "', '" & AcoesBovespa(i).Tipo & "', '" & AcoesBovespa(i).Mercado & "', '" & AcoesBovespa(i).Isin & "', '" & strDatope & "')"
                mCmd.ExecuteNonQuery()
                If (i Mod 100) = 0 Then
                    System.Windows.Forms.Application.DoEvents()
                    System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor
                End If
            Next i
            mCmd.CommandText = "SELECT COUNT(*) AS Total_Registros FROM TABELA"
            iLinhaRet = CType(mCmd.ExecuteScalar(), Short)
            If iLinhaRet > 0 Then
                GravaRegistros = True
            Else
                GravaRegistros = False
            End If
        Catch sError As Exception
            MsgBox(sError.ToString)
            GravaRegistros = False
        Finally
            mCon.Close()
        End Try
    End Function
   
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