como asignar el resultado una una consulta select count (*) a una variable en vb 6.0

O

odcg2007

Lanero Regular
28 Jul 2007
1
Hola laneros, NECESITO AYUDA URGENTE, necesito saber como guardar el resultado de una consulta select count(*) en una variable porque a través del método recordcount de ado me da como resultado -1 la Db que uso es MySql y la manipulo desde vb 6.0

el codigo que estoy usando es el siguiente


Rs.Open "Select Count(*) From Usuarios"
If Rs.Recordcount > 0 Then
sentencias .....
else
sentencias
end if

por favor como hago para saber el numero de registros que devolvio la consulta, Recordcount no funciona con MySql

Por favor ayudenme pueden escribirme a oscar21224@hotmail.com o contestarme aca mismo

Gracias de antemano
 
En primer lugar deberías usar un commando en VB, tambien deberías tener un SP que hiciera mas o menos esto
Código: 
CREATE PROCEDURE sp_CuentaRegistros
(
    @Total AS INTEGER OUTPUT --Variable de salida
)
AS
    SELECT @Total = COUNT(1)
    FROM Usuarios
GO

En el Código VB tendrías lo siguiente
Código: 
Dim ObjCn As New Connection
Dim ObjCmd As New Command

'Conectar a la Base de Datos
With ObjCn
    .ConnectionString = "Cadena de Conexion al SQL" 'Aqui pones tu cadena de conexión
    .Open()
End With

'Connectamos el Command
With ObjCmd
    Set .ActiveConnection = ObjCn

    'Indicamos que será un SP
    .CommandType = adStoredProc
    .CommandText = "sp_CuentaRegistros"

    'Fijamos el parámetro
    .Parameters.Append .CreateParameter("@Total", adInteger, adParamOutput)

    'Ejecutamos el Commando
    .Execute

    MsgBox .Parameters("@Total").Value
End With

'Destruimos todo
Set ObjCmd = Nothing
ObjCn.Close
Set ObjCn = Nothing


Esto te lo resuelve

Saludos!
 

Los últimos mensajes

Los últimos temas

Arriba Pie
Atrás