Insertar datos en orden alfabético
Publicado por WhiteBader (9 intervenciones) el 30/05/2005 21:07:44
¿Cómo puedo añadir un nuevo dato (de tipo string) a una tabla en el lugar que yo quiero, es decir: de modo que lo inserte antes de la cadena de la base de datos que es mayor alfabéticamente?
Lo estoy haciendo de este modo pero no me funciona: (A ver si alguien me puede ayudar algo).
SQL = "SELECT * FROM " & Tabla$
Set TBL = Bd1.OpenRecordset(SQL)
TBL.MoveFirst
Do Until Dato$ < TBL("Nombre") Or TBL.EOF
TBL.MoveNext
Loop
SQL = "INSERT INTO " & Tabla$ & " (Nombre) VALUES ('" & Dato$')"
Bd1.Execute SQL
Donde Tabla$=El nombre de la tabla
Dato$=El dato que quiero introducir
Nombre=El nombre de dicho campo
Bd1=La base de datos
No te fijes en los errores de sintaxis (si los hubiese). Sólo necesito saber si está bien planteado.
MUCHAS GRACIAS!!!!
Lo estoy haciendo de este modo pero no me funciona: (A ver si alguien me puede ayudar algo).
SQL = "SELECT * FROM " & Tabla$
Set TBL = Bd1.OpenRecordset(SQL)
TBL.MoveFirst
Do Until Dato$ < TBL("Nombre") Or TBL.EOF
TBL.MoveNext
Loop
SQL = "INSERT INTO " & Tabla$ & " (Nombre) VALUES ('" & Dato$')"
Bd1.Execute SQL
Donde Tabla$=El nombre de la tabla
Dato$=El dato que quiero introducir
Nombre=El nombre de dicho campo
Bd1=La base de datos
No te fijes en los errores de sintaxis (si los hubiese). Sólo necesito saber si está bien planteado.
MUCHAS GRACIAS!!!!
Valora esta pregunta


0