|
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.
Mensajes - F_Tanori
Páginas: 1 ... 79 80 [81] 82 83
2001
« en: Jueves 12 de Octubre de 2006, 04:58 »
Se llama... Boot.iniy creo que definitivamente andas en otro foro!
2002
« en: Miércoles 11 de Octubre de 2006, 20:09 »
y obviamente se borre, o se ponga normal al anterior
que se borre?... que se le quite el color? borre el contenido? o elimine la fila? aque evento responderia? sabes en que fila estas colocado?
2003
« en: Miércoles 11 de Octubre de 2006, 19:27 »
Yo tengo estas funciones que tal vez pudieran ser de utilidad funciones.js var isIE = document.all?true:false; var isNS = document.layers?true:false; //----------------------------------------------------------------------------------------- //(c)Guillermo 'guille' Som, 1999 function InStr(n, s1, s2) { var numargs=InStr.arguments.length; if(numargs<3) return n.indexOf(s1)+1; else return s1.indexOf(s2, n)+1; } function UCase(s) { return s.toUpperCase(); } /* F_Tanori Julio del 2006 Validar tipo de caracteres conforme se va escribiendo */ //----------------------------------------------------------------------------------------- /* == PARAMETROS == e= evento permitidos: *- "sting"= permitir solo caracteres alfabeticos *- "int"= permitir solo caracteres numericos *- "all"= permitir cualquier caracter *- caracteres que se pueden permitir en la captura (Ej. "123456ABCD") mayusculas: 0 = Texto tal y como se captura 1 = Forzar a la conversion a mayusculas el texto capturado 2 = Forzar a la conversion a minusculas el texto capturado */ //------------------------------------------------------------------------------------------ function validar(e,permitidos,mayusculas) { var key = (isIE) ? window.event.keyCode : e.which; var obj = (isIE) ? event.srcElement : e.target; var letra=String.fromCharCode(key); var NuevaLetra=letra.toUpperCase(); switch (permitidos) { case "int": permitidos="0123456789"; break; case "string": permitidos="ABCDEFGHIJKLMNÑOPQRSTUVWXYZÁÉÍÓÚ "; break; } if (permitidos!="all") { var isPermitido = InStr(permitidos,NuevaLetra)>0 ? true:false; } else { isPermitido =true; } if (mayusculas==1) //Forzar a mayusculas { key=NuevaLetra.charCodeAt(0); } else { if (mayusculas==2) //Forzar a minusculas { NuevaLetra=letra.toLowerCase(); key=NuevaLetra.charCodeAt(0); } } window.event.keyCode = (!isPermitido && isIE) ? 0:key; e.which = (!isPermitido && isNS) ? 0:key; return (isPermitido); }
agregandolo en el archivo <script type="text/javascript" language="JavaScript" src="funciones.js"></script>
... $tipo= mysql_field_type($res, $i); ... Creartxt(mysql_field_name($res,$i),"text",25,"","onKeyPress=validar(event,'$tipo',1)")
Faltaria agregar otras modificaciones como para el campo de fecha, hora,blob etc... de momento no e tenido tiempo de probarlo por el trabajo pero espero pueda servir de algo....
2004
« en: Miércoles 11 de Octubre de 2006, 11:07 »
Hay un codigo aqui... http://www.vbsiglo21.net/articulo8.html....y esto tambien te pudiera ser util.... Option Explicit Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long Private Const WM_CLOSE = &H10 Function myHandle(Titulo) As Long Dim winHwnd As Long winHwnd = FindWindow(vbNullString, Titulo) myHandle = winHwnd End Function Private Sub Command1_Click() Dim lHwd As Long lHwd = myHandle(Me.Text1) If lHwd > 0 Then Call SendMessage(lHwd, WM_CLOSE, 0, ByVal CStr(1)) End If End Sub
es para cerrar un programa por el titulo (exacto) suerte
2005
« en: Miércoles 11 de Octubre de 2006, 08:49 »
Hola que tal, alguien conoce de alguna pagina web donde puedo alojar una pagina web, pero que me perimta publicar asp, php, mysql, sql, access, etc. Preferentemente si es gratis. Espero sus respuestas.
Iespana.es aqui se puede antes habia un 'parche' para quitar la publicidad pero parece que ya no funciona Bueno yo tengo una duda diferente, ya tengo mi servidor con mi dominio y hosting , pero tengo que checar mi correo desde la pagina del servidor y por ejemplo si mi correo es bicholey@miempresa.com lo tengo que checar desde la pagina del servidor.com entonces como podria migrar esto a ala pagina de miempresa.com ??????
yo no entendi esa pregunta
2006
« en: Miércoles 11 de Octubre de 2006, 07:50 »
Trabaja un sistema de inventarios.......... papas y refresco para acompañar su orden? ....... papelera....
2007
« en: Miércoles 11 de Octubre de 2006, 05:54 »
2008
« en: Miércoles 11 de Octubre de 2006, 05:37 »
que base de datos piensas utilizar? acceso remoto te refieres a traves de internet?
2009
« en: Miércoles 11 de Octubre de 2006, 04:58 »
Hola mira puedes hacer este pequeño procediemiento, sombrear es pintar,colorear...??? o solo la quieres seleccionar? Sub ColorearFila(Celda) 'Selecciona la celda en cuestion Range(Celda).Select 'Selecciona la fila completa Selection.EntireRow.Select 'Le cambia de color a la seleccion (Fila) Selection.Interior.ColorIndex = 50 End Sub
Que recibe como parametro el numero de la fila te anexo la tabla de colores espero que te sirva Suerte!
2010
« en: Martes 10 de Octubre de 2006, 23:53 »
Hola yo he usado este control GIF89 espero que te sirva (lo agregas como componente a la caja de herramentas)puede que tengas que registrarlo ( regsvr32) y listo Suerte!
2011
« en: Martes 10 de Octubre de 2006, 08:02 »
cual es el error?
2012
« en: Martes 10 de Octubre de 2006, 08:00 »
Que base de datos es?
2013
« en: Martes 10 de Octubre de 2006, 07:41 »
que tal... hice unas pequeñas adaptaciones no es mucho pero pretendo seguir colaborando en esto, me ha interesado, es de gran utilidad para todos y creo que es bueno saber que hay muchos cerebros que pueden aportar ideas <? //Archivo con las Opciones de conexion include("conexion.php"); //Archivo con Funciones para crear controles en HTML include("forms.php"); //Tomar el nombre de la tabla $tabla=$_GET['catalogo']; if (isset($tabla)) { //Ejecutar una consulta a la tabla seleccionada $SQL="SELECT * FROM $tabla"; $res=mysql_query($SQL); ?> <br><br><br> <!--Crear el Form --> <Form name=<? echo "frm_$tabla"?> action="guardar.php" method="GET"> <!-- Crear una Tabla HTML para ordenar los campos --> <table border=0 cellspacing=0 cellpadding=0> <? //Tomar los nombres de los campos y generar una pantalla para captura for($i=0; $i<mysql_num_fields($res); $i++) { //Tomar las llaves foraneas en un arreglo para generar un combo con sus posibles valores de la tabla //de referencia if(substr(mysql_field_name($res, $i),0,3)=="id_") { $ids=explode("id_", mysql_field_name($res, $i)); $campos_ids[$i]=$ids[1]; } else { echo "<tr><td>".ucfirst(mysql_field_name($res, $i)).":  </td><td>".Creartxt(mysql_field_name($res, $i),"text",25,"","")."</td></tr>\n"; } //Comprobar si es una llave foranea si lo es crear un combo (Select) if($tabla!=$campos_ids[$i] && substr(mysql_field_name($res, $i),0,3)=="id_") { echo "<tr><td>$campos_ids[$i]</td><td>".CrearCombo($campos_ids[$i],"")."</td></tr>"; } } echo "<tr><td colspan=2><center><br>".Creartxt("OK","submit","0","Guardar","")." ".Creartxt("Borrar","reset","0","Limpiar","")."</center></td></tr>"; } ?> </form> </table>
Archivo Forms.php <? //Jose Carlos García http://www.webestilo.com/php/articulo.phtml?art=48 // // F_Tánori // Agosto del 2006 function CrearCombo($Tabla,$Extra) { include("conexion.php"); $query="select * from $Tabla"; $resultado =mysql_db_query($bd,$query); $HTMLCombo="<select name='$Tabla' id=='$Tabla' $Extra><option value='0' selected>[Selecione una opcion]</option>"; while($registro = mysql_fetch_array($resultado)) { $HTMLCombo.="\n<option value='$registro[0]'>$registro[1]</option>"; } mysql_free_result($resultado); return "$HTMLCombo\n</select>"; } //=============================================================================================================== function Creartxt($Nombre,$Tipo,$Tamano,$Valor,$Extra) { include("conexion.php"); return "<input name='$Nombre' id='$Nombre' type='$Tipo' size='$Tamano' value='$Valor' $Extra>"; } ?>
Espero no haber modificado la idea que se tiene con esto por ahora no es mucho el avance pero ya vendra... ya estoy trabajando en unas validaciones en las capturas Saludos
2014
« en: Martes 10 de Octubre de 2006, 00:45 »
Me parecemuy buena idea..
espero poder coloborar con tu 'proyecto' de mejorar los clasicos catalogos y espero poder aportar algo en cuanto se me ocurran ideas
saludos
Suerte!
2015
« en: Lunes 9 de Octubre de 2006, 18:30 »
Hola pues aqui tengo un ejemplo de del uso de skins en pb (activeskin), pues dices que ya lo aplicaste, la idea es que lleva adjuntos algunos skins, trae 12 incluyendo el que ya tienes de algo pueden servirte... SkinsPBy espero que te sirvan Saludos
2016
« en: Lunes 9 de Octubre de 2006, 10:28 »
Hola tal vez un poco tarde pero aun puede ayudar a alguien! Private Sub cmdSumar_Click() Dim lv_element As ListSubItems Dim ld_suma As Double Dim li_Ultima li_Ultima = 3 'Columna del importe For Each lv_element In Me.ListView1.ListItems ld_suma = CDbl(ld_suma + lv_element(li_Ultima).Text) Next Me.TxtSuma = Format(ld_suma, "Currency") End Sub
Saludos
2017
« en: Lunes 9 de Octubre de 2006, 09:59 »
que version estas utilizando?
tampoco admite vistas?
2019
« en: Domingo 8 de Octubre de 2006, 23:55 »
Hola Altareum Que te parece esta consulta.... Select p.*,max(vencimiento) FROM productos p,analisis a WHERE p.id=a.id_producto GROUP BY p.id ORDER by p.id,vencimiento desc
o asi Select p.*,max(vencimiento) FROM productos p,analisis a WHERE p.id=a.id_producto and vencimiento<curdate() GROUP BY p.id ORDER by p.id,vencimiento desc
que es lo mismo Suerte!
2020
« en: Domingo 8 de Octubre de 2006, 06:15 »
2021
« en: Domingo 8 de Octubre de 2006, 06:11 »
Ese ArKaNtOs siempre atento
2022
« en: Viernes 6 de Octubre de 2006, 09:51 »
Hola para usar esta funcion necesitas el nombre de la clase o el titulo de la ventana
// por la clase
HWND hWnd = FindWindow("Shell_TrayWnd", NULL);
//Por el titulo (debe ser exacto) HWND hWnd = FindWindow(NULL,"Foros de SoloCodigo - Mozilla Firefox");
Si un parametro es null entonces elige otro el camino Si falta la clase busca por titulo y viceversa
Saludos
2024
« en: Miércoles 4 de Octubre de 2006, 10:02 »
hola yo no he utilizado mucho Postgres pero mira eso que comentas lo he realizado con otras bases de datos, y si puedes conectarte con ODBC (lo mas seguro que si) es sencillo mira te consigues el driver ODBC de Posgres me parece esta Aqui entonces ya que lo instales y configures tu dsn con la base de datos "nueva" (las tablas deben de llamarse igual que en access por supuesto) para que "aparenten estar en access" entonces y que hayas creado el Origen de datos ahora abres tu bd en access (por seguridad has un respaldo) ahora solamente creas tablas vinculadas le das click derecho sobre la ventana de base de datos (en access) y Vincular Tablas (dire como aparecen en español ) te aparece el cuadro de dialogo para seleccionar la base de datos de donde vas a vincular las tablas en la opcion de tipo de archivo selecciona 'ODBC Databases()' ahi se mostrara el cuadro de dialogo del ODBC para que selecciones el DSN previamente creado ya seleccionado te dara la lista de tablas las seleccionas y listo se creara un vinculo y todo parecera que guardas en access pero en realidad no Nota: los nombres de las tablas vinculadas deben de ser los mismos que el de las tablas Saludos espero te sea de ayuda
2025
« en: Miércoles 4 de Octubre de 2006, 09:37 »
Hola
el comando para ver las tablas es
\dt (describe tables)
para ver la estructura de una tabla es
\d nombretabla (describe)
Me parece que puedes ver las bases de datos con.. \l (List)
Saludo, espero te sea de ayuda!
Páginas: 1 ... 79 80 [81] 82 83
|
|
|