Novo blog http://tecnoprog.souto.pt

VB-NET - SQL

Rotina para verificar se um registo existe na base de dados.

    Private Function existe(pesquisa As String) As Boolean
        conn.Open()
        Dim sql As String = "Select * from [Dados].[dbo].[tabela]
 Where nome='" & pesquisa 

        Dim cmd As New SqlCommand(sql, conn)
        Dim leitura As SqlDataReader
        leitura = cmd.ExecuteReader
        Return leitura.HasRows
        conn.Close()
    End Function