Anónimo
Ayuda para generar código y con mshflex
Hola saludos
Estoy realizando un programa que registre empleados, pero necesito que mi código del empleado, se genere automáticamente al dar de alta un nuevo. Que en un TextBox, me muestre el código y así el usuario no tenga que estar escribiendo el código de forma manual. Porfas un código sencillo. Se lo agradeceré mucho.
Y si no es mucha molestia quisiera saber que propiedad o código necesito para que las filas y columnas de un MsflexGrid se ajusten al contenido.
De antemano, gracias.
Estoy realizando un programa que registre empleados, pero necesito que mi código del empleado, se genere automáticamente al dar de alta un nuevo. Que en un TextBox, me muestre el código y así el usuario no tenga que estar escribiendo el código de forma manual. Porfas un código sencillo. Se lo agradeceré mucho.
Y si no es mucha molestia quisiera saber que propiedad o código necesito para que las filas y columnas de un MsflexGrid se ajusten al contenido.
De antemano, gracias.
1 Respuesta
Respuesta de carloscharly
1
Bueno asumo que sabes trabajar con BD, bueno tendrías que hacerle una consulta a ella para capturar la cantidad de registros, bueno eso se hace así
1 - Select Count(*) FROM TABLA1 // Esta consulta te devuelve el numero de registros que tengas, asumamos que te devuelve 5 para este ejemplo
2 - Ese valor que te devuelve tienes que capturarl en un avariable:
Dim Con as integer ' Variable General
Con = Rs(0) ' Imagino que trabjaas con objetos ADO y Recrodset RS
3 - Botón generar
Txt_Cod_Gen.text=Con+1
**Solo eso seria todo, bueno si no sabes manejar OBJETOS ADO, aqui te dejo un ejemplo, el cual no tiene como generar codigos, pero con l o que te estoy diciendo ya podras adaptarlo..
http://usuarios.lycos.es/charlycarlos/index.html
1 - Select Count(*) FROM TABLA1 // Esta consulta te devuelve el numero de registros que tengas, asumamos que te devuelve 5 para este ejemplo
2 - Ese valor que te devuelve tienes que capturarl en un avariable:
Dim Con as integer ' Variable General
Con = Rs(0) ' Imagino que trabjaas con objetos ADO y Recrodset RS
3 - Botón generar
Txt_Cod_Gen.text=Con+1
**Solo eso seria todo, bueno si no sabes manejar OBJETOS ADO, aqui te dejo un ejemplo, el cual no tiene como generar codigos, pero con l o que te estoy diciendo ya podras adaptarlo..
http://usuarios.lycos.es/charlycarlos/index.html
Bueno si no trabajas con OBJETOS ADO, si no con CONTROLES ADO, lo único que cambia es l
RS(0) por Ado_1. RecordSet(0)
A Y PARA EL ANCHO DEL MSFLEX
msflex_persona.ColWidth(0)=700
msflex_persona.ColWidth(1)=1500
.
.
Así según el numero de columnas que tengas, ten en cuenta que el numero de columnas inicializa en 0, Bueno eso es un tamaño estático, ahora para que se ajuste automáticamente aquí te dejo este link http://msdn2.microsoft.com/en-us/library/aa261249(VS.60).aspx
RS(0) por Ado_1. RecordSet(0)
A Y PARA EL ANCHO DEL MSFLEX
msflex_persona.ColWidth(0)=700
msflex_persona.ColWidth(1)=1500
.
.
Así según el numero de columnas que tengas, ten en cuenta que el numero de columnas inicializa en 0, Bueno eso es un tamaño estático, ahora para que se ajuste automáticamente aquí te dejo este link http://msdn2.microsoft.com/en-us/library/aa261249(VS.60).aspx