VB 6 Y SQL --- no coinciden los tipos

[asitudela]

sql = "SELECT TOP 1 Codigo_Clie FROM clientes ORDER BY Codigo_Clie DESC"
cm.CommandText = sql
cm.Execute


tengo esa consulta a la bd, lo que quiero es que el resultado de la consulta lo tenga en una variable, por ejemplo al similar a esto que no me funciona

variable = cm.execute

pero me dice que no coinciden los tipos (declaro la variable como string, supongo que tendré que declararla de otra manera que no sé)

[neikex]

nose si abra otra manera pero ami me enseñaron a guardarlo siempre en un recordset, ya que como el select t puede devolver varios valores pos tendras que tener una variable q los guarde todos y puedas recorrerlos.

dim mirecordset as adodb.recordset

set mirecordset = micon.execute ("SELECT ......")

Usariamos mirecordset.movefirst, mirecordset.movelast,mirecordset.movenext,mirecord set.moveprevious para movernos por los registros devueltos y para sacarlos seria:

mirecordset.fields!nombre_campo

espero q t sirva

[asitudela]

gracias pero no es lo que estaba buscando...

estoy con un proyecto que nos han prohibido utilizar recordsets para hacer todo con consultas sql... :-p :-p :-p


gracias de nuevo

[neikex]

buf xungo nose, prueba a declarar la variable como variant aber si t funciona pero tampoco se muy bien, yo siempre uso los recordset

[asitudela]

pos tampoco

[gefuva]

Si no puedes utilizar RS (cosa que no entiendo, ya que dices para hacer todo con consultas SQL, y un RS no es mas que el envase de la consulta, en fin, a lo que iba).
Puedes crearte un control no visible, por ejemplo el control, y asociar la consulta al .DataSource, y el control almacenará el valor, pero lo dicho, sigo sin entender la prohibición del RS, pues un programa con gestión de BD sin él es impensable, al menos para mi.
Espero que te sirva lo del control oculto.
Saludos

[asitudela]

Bueno solucionado... ya no le doy más vueltas, que igual ni se puede... con el recordset al final.

Lo que he puesto...

Set rcs = cn.Execute("SELECT TOP 1 Codigo_Clie FROM clientes ORDER BY Codigo_Clie DESC")

ultimo_registro = rcs("Codigo_Clie")


Un saludo, muchas gracias a todos