FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Problema con la creación de Indices
Utilizo Ibo+Firebird y la siguiente rutina para la creación o reconstruccion de los indices:
Código:
procedure TCheque.Indice(Nome,Tabla,Campos:String); begin Query.Close; Query.SQL.Clear; Query.SQL.Text:='select RDB$INDEX_NAME from RDB$INDICES '+ 'where RDB$INDEX_NAME='+#39+Nome+#39; Query.Open; if not Query.IsEmpty then begin Query.Close; Query.SQL.Clear; Query.SQL.Add('drop index '+Nome+';'); try Query.Open; except Imprime('No se ha podido Eliminar el INDICE '+Nome+' en '+Tabla); Transa.Rollback; end; Transa.Commit; Imprime('Eliminado Indice '+Nome+' en '+Tabla); end; Query.Close; Query.SQL.Clear; Query.SQL.Add('create index '+Nome+' on '+Tabla+' ('+Campos+')'); try Query.Open; except Imprime('No se ha podido crear el INDICE '+Nome+' en '+Tabla); Transa.Rollback; exit; end; Transa.Commit; Imprime('Creado Indice '+Nome+' en '+Tabla); Query.Close; end; Código:
Indice('RES_NUMERO','RES','RES_TIPO,RES_ANO,RES_NUMERO'); Código:
create index RES_NUMERO on RES (RES_TIPO,RES_ANO,RES_NUMERO); Alguien me puede ayudar?: Última edición por apicito fecha: 10-05-2005 a las 19:55:04. |
#2
|
||||
|
||||
¿A nadie le suena a que puede deberse este mensaje de error?
|
#3
|
||||
|
||||
resp
Mira no he leido mucho el codigo.
Pero solo te puedo decir que usar .open No te va funcionar con intrucciones sobre la base de datos debes usar .excute. No te estoy diciendo que ese sea el error
__________________
Todo se puede, que no exista la tecnología aun, es otra cosa. |
#4
|
||||
|
||||
Cita:
|
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|