1
Bases de Datos / Re:¿VB6 con MongoDB?
« en: Octubre 26, 2018, 07:09:06 pm »
todavia estas interesado?
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Hola @Luffy la verdad no se que tiene que ver Multi hilos con este tema, no lo veo para nada necesario.Hola Leandro, al estar recolectando los datos y mostrando los en tu sistema puede hacerlo extremadamente lento o incluso colgarse, para eso esta el trabajo asíncrona pero si me equivocó ¿Puedes explicarme?
@Yvan mirate este enlace quizas te sirva de algo, en lo personal no lo veo estable M.H. en vb6
Te reitero, la instrucción COUNT() lo que hace es, 'contar' el número de registros que tienes en una tabla determinada, sin importar los valores que tengas almacenados en cada uno de ellos... A través de la variable _total.
La instrucción MAX(), te proporciona el valor más alto del campo que estés evaluando (en tu caso, Codigo), siempre y cuando dicho campo sea numérico, y creo que como lo estás planteando, tu campo debe ser del tipo String, por lo tanto la instrucción MAX() no te va a servir de nada (sino, que me corrija mi gran amigo y Gurú de FirebirdSQL, el gran Ivan -YAcosta-, que él si sabe de este tema...).
En mi humilde opinión, lo que haría:
1.- Contar los registros.
2.- Sumaría +1 al valor de es contador.
3.- Luego asignaría más o menos así: "CODIGO-" + incremento.ToString("000")Código: (VB) [Seleccionar]Dim Sql As String = "Select Count(CODIGO) As Total From REPUESTOS"
Dim _total As Integer = 0
Dim Cmd As New FbCommand(Sql, Base)
Dim NuevoCodigo As String = "CODIGO-"
'//
_total = CType(FbCmd.ExecuteScalar, Integer)
NuevoCodigo = NuevoCodigo & _total.ToString("000")
DELIMITER $$
CREATE
TRIGGER <NOMBRE DEL TRIGGER> AFTER INSERT
ON <NOMBRE DE LA TABLA QUE LO VA A APLICAR>
FOR EACH ROW BEGIN
DECLARE <NOMBRE DE LA VARIABLE> INT DEFAULT SELECT <CAMPO NUMERICO> FROM <TABLA CONTADOR>;
SET <NOMBRE DE LA VARIABLE> = <NOMBRE DE LA VARIABLE> + 1;
UPDATE <TABLA CONTADOR> SET <CAMPO NUMERICO> = <NOMBRE DE LA VARIABLE>;
NEW.<EL CAMPO CÓDIGO DE TU TABLA> = <NOMBRE DE LA VARIABLE>;
END$$
DELIMITER ;