Reiniciar el Generador

[cmgenny]

Holas

Mi base de datos esta compuesta por 6 tablas tres de las cuales utilizan generadores, lo que quiero es poner el valor del generador otravez en 0 para que empiece otra vez. Borro todos los datos pero los generadores siguen en la secuencia que se quedaron.

Muchas gracias

utilizo Interbase 7

[jachguate]

set generator gen_name to int_value;

Hasta luego

[cmgenny]

No entiendo

Que quieres que haga exactamente ponga esa linea de codigo dentro del alter table o no se bien por que ella sola no va a funcionar y disculpa que te pregunte tanto es que me gustan que me expliquen con detalles gracias

[jachguate]

hola cmgenny. Lo que te he dado es una instrucción SQL válida (al menos en interbase 6). Podes ejecutarla directamente en ibconsole, en isql, o ponerla en la propiedad SQL de un TQuery y lanzarla a la base de datos.

Si queres mas detalles, te recomiendo leer la documentación disponible de la base de datos.

Hasta luego.

[[BlueSteel]]

Hola.. justo estaba buscando algo por el estilo... funciona super bien desde el IBExpert... pero quisiera ejecutarla desde delphi... pero pasando el valor x, la idea es volverla al numero que yo quiera....

para tratar de cambiarle el valor estoy usando lo siguiente

IBQuery
IBTransaction

y el codigo es el siguiente

Código Delphi [-]
IBQ_Edit.SQL.Clear;
IBQ_Edit.SQL.Add('Set Generator "G_Orden_Numero" to Var1');
IBQ_Edit.Params[0].AsInteger := StrToInt(pOrden.Text);
IBQ_Edit.ExecSQL;
IBT_Edit.Commit;

alguien sabe como hacerlo...

Editado:::

lo hice así...

Código Delphi [-]
IBQ_Edit.SQL.Clear;
IBQ_Edit.SQL.Add('Set Generator g_orden_numero to '+QuotedStr(pOrden.Text));
IBQ_Edit.ExecSQL;
IBT_Edit.Commit;

pero tengo un error.. ya que no se como pasarle el dato de str a integer ???

[nemesio]

Pues utiliza bien los parámetros. Para indicarle al sql que una variable es parámetro se colocan dos puntos antes de la misma. :Var1.

Suerte.

[aledieb]

Empezado por BlueSteel

lo hice así...

Código Delphi [-]
IBQ_Edit.SQL.Clear;
IBQ_Edit.SQL.Add('Set Generator g_orden_numero to '+QuotedStr(pOrden.Text));
IBQ_Edit.ExecSQL;
IBT_Edit.Commit;

pero tengo un error.. ya que no se como pasarle el dato de str a integer ???

Usa lo siguiente:

Código Delphi [-]
IBQ_Edit.SQL.Clear;
IBQ_Edit.SQL.Add('Set Generator g_orden_numero to '+pOrden.Text);
IBQ_Edit.ExecSQL;
IBT_Edit.Commit;