Trabajo con vb6 y sql server, necesito saber si un registro existe para eso tengo una clase para conectarme a la base de datos.
Public cn As ADODB.Connection
Public rs As ADODB.Record
Public Sub Conectar()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
' cn.Open "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=gestvehicular;User=root;Password=123456;Option=3;"
cn.Open "Provider=SQLNCLI10;Server=.;Database=Northwind;Trusted_Connection=yes;"
End Sub
Public Sub Desconectar()
On Local Error Resume Next
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub
Tengo creada una Function en la cual le paso el parámetro id de tipo integer para poder hacer esta consulta a la base de datos
Public Function Existe(id As Integer) As Boolean
On Error GoTo tratarError
Dim cmd As New Command
Conectar
With cmd
.ActiveConnection = cn
.CommandText = "SELECT COUNT(*) FROM Employees WHERE EmployeeID=@id"
.CommandType = adCmdText
.NamedParameters = True
.Parameters.Append .CreateParameter("@id", adInteger, adParamInput, , id)
.Execute
If (rs.EOF) Then
End With
On Error GoTo 0
Desconectar
Exit Function
tratarError:
MsgBox Err.Description
End Function
Con la consulta sql que tengo me si existe en la base de datos me da 1 y si no existe me da 0 entonces lo que quiero hacer es que si me da 1 que retorne true
y si da 0 que retorne false
no se como hacer eso con ADO.