Contador de Registros

m_kohls
31 de Enero del 2005
hola gente soy nueva y estoy tratando de aprender visual y la conexion con SQL. Tengo un problema que ya no se como resolver: necesito el numero de registros que tiene la base para guardar otro registroy estoy haciendo esto:

Dim sSelect As String
Dim oReg As Recordset


Call AbrirConexion

Public Sub AbrirConexion()

Set oCon = New ADODB.Connection
oCon.Open "DSN=VET; UID=sa; PWD=;"
end sub
)

' iId = select para buscar id maximo
sSelect = "select count(cliId)as Total from cliente" (poniendolo en el sql me devuelve una columna con los datos, lo que tengo que hacer es extraer el numero que me devuelve, para eso hago:)
Set oReg = oCon.Execute(sSelect) Y AQUI TIRA ERROR EN TIEMPO DE EJECUCION NO SON EL MISMO TIPO, pero busque en internet y me decia q tenia q guardarlo en un recordset, por favor.. NECEISTO AYUDA :) muchas gracias!!!

l_island
31 de Enero del 2005
En lugar de:

Set oReg = oCon.Execute(sSelect)

pon:

set oReg = new ADODB.Recordset
oReg.CursorType = adOpenKeyset
oReg.LockType = adLockOptimistic
oReg.open sSelect, oCon

En oReg("Total") tienes el dato que buscas

Saludos!!
l_island