|
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 - neorent
Páginas: 1 ... 6 7 [8] 9 10 11
176
« en: Martes 5 de Septiembre de 2006, 17:24 »
hola que tal amigos bueno aqui va mi consulta estoy tratando de almacenar datos de fecha en un tbl mysql pero resulta que ahora no me lo graba y antes lo hacia, no se que puede ser quizas algun error en el codigo, ustedes podrian acharme una manito para revisar el code. bueno les dejo el ingreso: <html> <head> <title>Ingreso Solicitud</title> </head> <body> <p> </p> <?php include("formato.php"); ?> <?php CabeceraPagina(); ?> <h3>Ingreso de Solicitudes </h3> <FORM ACTION="graba_db.php"> <TABLE> <TR> <TD width="129">Nombre Solicitante:</TD> <TD width="428"><INPUT NAME="nombre" TYPE="text" id="nombre" SIZE="50" MAXLENGTH="100"></TD> </TR> <TR> <TD>Area:</TD> <TD><?php $link=mysql_connect("localhost","root", ""); $link1=mysql_select_db("db_soporte",$link); $result=mysql_query("select * from tbl_area ORDER BY `id_area` ASC "); echo '<select name="area">'; //Generamos el menu desplegable while ($row=mysql_fetch_array($result)) {echo '<option>'.$row["des_area"];} echo "</select>"; mysql_free_result($result); ?></TD> </TR> <TR> <TD>Dirección: </TD> <TD><?php $link=mysql_connect("localhost","root", ""); $link1=mysql_select_db("db_soporte",$link); $result=mysql_query("select * from tbl_direcciones ORDER BY `id_direccion` ASC "); echo '<select name="direccion">'; //Generamos el menu desplegable while ($row=mysql_fetch_array($result)) {echo '<option>'.$row["des_direccion"];} echo "</select>"; mysql_free_result($result); ?></TD> </TR> <TR> <TD>Unidad / Depto.:</TD> <TD><?php $link=mysql_connect("localhost","root", ""); $link1=mysql_select_db("db_soporte",$link); $result=mysql_query("select * from tbl_unidades ORDER BY `id_unidad` ASC "); echo '<select name="unidad">'; //Generamos el menu desplegable while ($row=mysql_fetch_array($result)) {echo '<option>'.$row["des_unidad"];} echo "</select>"; mysql_free_result($result); ?></TD> </TR> <TR> <TD>Edificio:</TD> <TD> <?php $link=mysql_connect("localhost","root", ""); $link1=mysql_select_db("db_soporte",$link); $result=mysql_query("select * from tbl_edificio ORDER BY `id_edificio` ASC "); echo '<select name="edificio">'; //Generamos el menu desplegable while ($row=mysql_fetch_array($result)) {echo '<option>'.$row["des_edificio"];} echo "</select>"; mysql_free_result($result); ?></TD> </TR> <TR> <TD>Piso:</TD> <TD><?php $link=mysql_connect("localhost","root", ""); $link1=mysql_select_db("db_soporte",$link); $result=mysql_query("select * from tbl_pisos ORDER BY `id_piso` ASC "); echo '<select name="piso">'; //Generamos el menu desplegable while ($row=mysql_fetch_array($result)) {echo '<option>'.$row["des_piso"];} echo "</select>"; mysql_free_result($result); ?></TD> </TR> <TR> <TD>Correo Electronico: </TD> <TD><input name="correo" type="text" id="correo" size="20"></TD> </TR> <TR> <TD>Tipo Requerimiento :</TD> <TD><?php $link=mysql_connect("localhost","root", ""); $link1=mysql_select_db("db_soporte",$link); $result=mysql_query("select * from tbl_fallas ORDER BY `id_falla` ASC "); echo '<select name="requerimiento">'; //Generamos el menu desplegable while ($row=mysql_fetch_array($result)) {echo '<option>'.$row["desc_falla"];} echo "</select>"; mysql_free_result($result); ?></TD> </TR> <TR> <TD>Fono / Anexo: </TD> <TD><input name="fono" type="text" id="fono" size="10"></TD> </TR> <TR> <TD>Fecha Solicitud: </TD> <TD><input name="fecha" type="text" disabled id="fecha" value="<?php echo date("d/m/Y")?>"></TD> </TR> <TR> <TD>Hora Solicitud </TD> <TD><input name="hora" type="text" disabled id="hora" value="<?php echo date("H:i:s")?>"></TD> </TR> </TABLE> <input type="submit" name="save" value="Grabar"> </FORM> <hr> <?php include("conex.php"); include("myfunc.php"); $link=Conectarse(); $result=mysql_query("select * from tbl_maestra ORDER BY `folio` DESC",$link); ?> <TABLE BORDER=1 CELLSPACING=1 CELLPADDING=1> <TR> <TD> Nº Solicitud </TD> <TD> Fecha Solicitud </TD> <TD> Hora Solicitud </TD> <TD> Nombre Solicitante </TD> <TD> Unid.Depto. </TD> <TD> Fono/Anexo </TD> <TD> Requerimiento Solicitado </TD> <TD> Tecnico Asignado </TD> <TD> Estado Atencion </TD> </TR> <?php while($row = mysql_fetch_array($result)) { printf("<tr><td> %s</td> <td> %s</td> <td> %s</td> <td> %s</td> <td> %s</td> <td> %s</td> <td> %s</td> <td> %s</td> <td> %s</td> </tr>", $row["folio"],$row["fecha_solicitud"],$row["hora_solicitud"],$row["nombre_usuario"],$row["depto_usuario"],$row["fono_anexo"],$row["tipo_requerimiento"],$row["tecnico_asignado"],$row["estado_atencion"]); } mysql_free_result($result); mysql_close($link); ?> </table> <?php PiePagina(); ?> </body> </html>
bueno se supone que en este code creo el ingreso. funcion myfunc. <?php //////////////////////////////////////////////////// //Convierte fecha de mysql a normal //////////////////////////////////////////////////// function cambiaf_a_normal($fecha){ ereg( "([0-9]{2,4})-([0-9]{1,2})-([0-9]{1,2})", $fecha, $mifecha); $lafecha=$mifecha[3]."/".$mifecha[2]."/".$mifecha[1]; return $lafecha; } //////////////////////////////////////////////////// //Convierte fecha de normal a mysql //////////////////////////////////////////////////// function cambiaf_a_mysql($fecha){ ereg( "([0-9]{1,2})/([0-9]{1,2})/([0-9]{2,4})", $fecha, $mifecha); $lafecha=$mifecha[3]."-".$mifecha[2]."-".$mifecha[1]; return $lafecha; } ?>
y la funcion conex. <?php function Conectarse() { if (!($link=mysql_connect("localhost","root",""))) { echo "Error conectando a la base de datos."; exit(); } if (!mysql_select_db("db_soporte",$link)) { echo "Error seleccionando la base de datos."; exit(); } return $link; } ?>
bueno y por ultimo la funcion donde grabo los datos. <?php include("conex.php"); include("myfunc.php"); $link=Conectarse(); $i_nombre=$_GET['nombre']; $i_area=$_GET['area']; $i_direcc=$_GET['direccion']; $i_unidad=$_GET['unidad']; $i_edificio=$_GET['edificio']; $i_piso=$_GET['piso']; $i_correo=$_GET['correo']; $i_fono=$_GET['fono']; $i_requerimiento=$_GET['requerimiento']; $i_fecha1=$_GET['fecha']; $i_hora1=$_GET['hora']; cambiaf_a_mysql($i_fecha1); mysql_query("insert into tbl_maestra (nombre_usuario,area_usuario,direccion_usuario,depto_usuario,edificio,piso,correo_usuario,fono_anexo,tipo_requerimiento,fecha_solicitud,hora_solicitud) values ('$i_nombre','$i_area','$i_direcc','$i_unidad','$i_edificio','$i_piso','$i_correo','$i_fono','$i_requerimiento','$i_fecha1','i_hora1')",$link); header("Location: ingreso_db.php"); ?>
y creo que salio un pokito largo pero no se me marca el error en la parte donde mando a grabar la db, y me marca error en la linea 14 y 15, pero solucionando la 14 se soluciona la 15 he estado mas de 5 horas buscando el problema pero no lo he podido resolver, asi que cualquier ayuda es bienvenida y muchas gracias por su tiempo. adios amigos
177
« en: Lunes 4 de Septiembre de 2006, 21:53 »
Ya sea que manejes SQL o comunicación con otras aplicaciones debes usar el formato para fechas con "mm-dd-yyyy", ya que es la forma como internamente el VB y otras aplicaciones Microsoft la manejan.
gracias era justo lo que necesitaba
178
« en: Lunes 4 de Septiembre de 2006, 18:54 »
Que tal amigos del foro, bueno tengo el siguiente problema, tengo un formulario de ingreso donde al presionar el boton guardar me imprime en una hoja de excel todo los datos de este formulario, y resulta que la fecha me la imprime al reves y excel la toma como si estuviera bien, osea yo ingreso 04-09-06 y excel me lo toma 09-04-06 entonces esto me provoca problemas les puedo dejar el code para que le echen un vistazo y me digan donde cambio algo o donde esta el problema gracias.
Private Sub Command1_Click() If MsgBox("Desea Imprimir el Folio", vbYesNoCancel, mstrAppTitle) = vbYes Then Call imprimir Call grabar ElseIf MsgBox("Desea Imprimir el Folio", vbYesNoCancel, mstrAppTitle) = vbNo Then Call grabar Else MsgBox "Ha cancelado la Grabación del Folio" Call limpiar Call cargar Call obtener End If End Sub
Sub grabar() b.AddNew b("folio_atencion") = Text1.Text b("fecha_llamado") = Text2.Text b("hora_llamado") = Text3.Text If Text4.Text = "" Then Text4.Text = "Sin Usuario" End If b("usuario_atencion") = Text4.Text If Combo8.Text = "" Then Combo8.Text = "sin Direccion" End If b("direccion_depto") = Combo8.Text If Text5.Text = "" Then Text5.Text = "0000" End If b("n_oficina") = Text5.Text If Text6.Text = "" Then Text6.Text = "0000000" End If b("fono_anexo") = Text6.Text If Text7.Text = "" Then Text7.Text = "Sin Problema" End If b("problema_descrito") = Text7.Text If Combo2.Text = "" Then Combo2.Text = "Sin Tipo Problema" End If b("tipo_problema") = Combo2.Text If Combo3.Text = "" Then Combo3.Text = "Sin Tecnico" End If b("tecnico_asignado") = Combo3.Text If Combo4.Text = "" Then Combo4.Text = "Sin Estado Atencion" End If b("estado_atencion") = Combo4.Text b.Update MsgBox "Se Agrego el Nuevo Folio"
Sub imprimir() Dim ApExcel As Variant Set ApExcel = CreateObject("Excel.application") ApExcel.Visible = True ApExcel.Workbooks.Open (App.Path & "\Formulario de Soporte Tecnico a Terreno.xls") ApExcel.cells(1, 1).Font.Size = 12 ApExcel.cells(8, 7).formula = Text1.Text 'folio ApExcel.cells(9, 4).formula = Text4.Text 'nombre usuario ApExcel.cells(9, 7).formula = Text6.Text 'fono anexo ApExcel.cells(10, 4).formula = Combo8.Text 'direccion ApExcel.cells(10, 7).formula = Text5.Text 'oficina ApExcel.cells(11, 7).formula = Combo3.Text 'tecnico ApExcel.cells(14, 3).formula = Text7.Text 'problema ApExcel.cells(5, 6).formula = Text2.Text 'fecha llamado Set ApExcel = Nothing End Sub
no se cual puede ser el problema ya lo vi en la celdas del excel y esta bien, le di un formato desde visual que fuera asi Text2.Text = Format(Now, "dd-mm-yyyy"), y el formato del text tambien es asi, espero me puedan ayudar gracias adios
179
« en: Miércoles 30 de Agosto de 2006, 23:09 »
hola amigo, creo que suena un poco complicado lo que muestro pero creo que es super facil pero como soy ultra nuevo con codigo php pase a hacerles la consulta a ustedes miren este es el code.
<?php $link=mysql_connect("localhost","root", ""); $link1=mysql_select_db("db_soporte",$link); $result=mysql_query("select * from tbl_fallas ORDER BY `id_falla` ASC "); echo '<select name="direccion">'; //Generamos el menu desplegable while ($row=mysql_fetch_array($result)) {echo '<option>'.$row["desc_falla"];} echo "</select>"; mysql_free_result($result); ?>
bueno lo que yo quiero es lo siguiente, ustedes sabes que este code crea un combobox o select no lo tengo muy claro pero te crea una lista con datos rescatado de una tbla, bueno yo quiero saber como hago que al momento de que el usuario seleccione un campo automaticamente me muestre no se un texto que diga que el tiempo es ej: su tiempo es "1:45:00" no se si se entiende bueno la tabla tiene los sifucientes campos id_falla, desc_falla y t_trabajo y lo que yo quiero mostrar es el tiempo de trabajo por cada campo que ella seleciona creo que es eso espero me puedan echar la mano de como hacerlo o mostrar un ej. para mas o menos entender. muchas gracias adios
181
« en: Martes 29 de Agosto de 2006, 19:16 »
que tal amigo de solocodigo, bueno paso a hacer la siguiente consulta estoy diseñando una pagina web en dreamweaver 8 y estoy programando con php y quisiera saber como hago que me muestre la hora y la fecha del sistema en la pagina si alguien tiene alguna idea de como se hace porfavor comentarlo aqui ya que no se como se hace  y me gustaria que echaran la manito please gracias y saludos a todos
182
« en: Viernes 14 de Julio de 2006, 13:55 »
hola amigo que tal, bueno les comento no se como abrir outlook express desde visual, ademas si me pueden ayudar quisiera saber como hago que el mismo visual cree un correo nuevo y que yo le pueda entregar los datos del destinatario asunto y contenido del mail, si alguien tiene un ejemplo para orientarme seria genial para mi es muy necesario hacer este trabajo lo antes posible les pido que me ayuden si es que pueden grandes genios jejejej bueno amigos y amigas cuidense que tengan un buen fin de semana adios
183
« en: Martes 11 de Julio de 2006, 23:59 »
Puedes usar el comando Shell, o hacerte un ActiveX con lo que incluyes un control (que en el fondo es un exe "camuflado") dentro de tu aplicacion, asi podras llamarlo cuantas veces quiras
Suerte.. oki eso me queda claro pero como le paso los datos al outlook osea que mi aplicacion le pase el nombre del destinatario, el asunto y el contenido del mail eso es lo que no se hacer me pueden ayudar gracias
184
« en: Martes 11 de Julio de 2006, 14:21 »
que tal!!!!!! amigos del foro; bueno aqui para variar con algunas dudas y espero que me puedan ayudar, resulta que quiero enviar un correo desde visual, osea presionar un boton y que se envien algunos campos selecionados, mail destinatario, asunto, descripcion, no se si se podra espero que si bueno todo estos datos recien mencionados son escritos en la aplicacion y quisiera saber como lo puedo hacer, ademas de abrir outlook desde visual me gustaria saber como le paso informacion osea como ingreso el nombre del destinatario desde visual y eso, bueno espero que me puedan ayudar amigos y bueno cuidense y adios
185
« en: Jueves 15 de Junio de 2006, 15:12 »
Hola amigos, bueno aqui estoy de nuevo haciendo un par de consultas pero esta vez es algo nuevo para mi y prefiero consultar a ustedes antes de lanzarme de lleno, miren tengo que hacer un aplicacion, que haga lo siguiente que tome unos datos especificos de acces, eso ya lo se hacer pero como paso esos archivos a word y que se guarde ese archivo automaticamente se puede?, y ademas que lo envie por email, jajajaja se que lo que me pidieron para alguno de ustedes es super facil pero para mi no lo es pk no cacho mucho eso asi que si alguien me echa la mano seria genial ok muchas gracias que esten bien
186
« en: Viernes 28 de Abril de 2006, 14:05 »
hola que tal bueno te comento, las aplicaciones que te pase son para que puedas montar la imagen que cree, por ejemplo setupclonecd te permite crear imagenes de cd y quemarlas al mismo tiempo ademas de que te crea una unidad de cd virtual en la cual puedes montar la imagen, hacha es un programa que sirve para juntar los archivos que son demasiados grandes, winrar para descomprimir las imagenes que estan en rar, daemon329 sirve para montar solo unidades virtuales y te permite montar la imagen en esa unidad, bueno cuando la montas y quieras quemar la imagen puedes montarla y con nero puedes hacer una copia de cd o no se echale una mirada a ver que te parece espero qye llegues a la meta pk esto se termina el martes 2 ok cuidate amigo que este bien adios y suerte.
187
« en: Miércoles 26 de Abril de 2006, 00:14 »
ya este ftp solo funciona hasta el martes 2 de mayo el que alcanza bien el que no mala suerte aqui va de nuevo ftp://200.54.64.45 usuario vb pasword vb, no traten de entrar como administrador ok leannnnnnnn adios plazo hasta el marte 2 el que no alcanza copero ultimo aviso!!!! adios
188
« en: Viernes 21 de Abril de 2006, 00:16 »
eso es juanolo le diste al clavo eso era lo que necesitava muchas gracias, no pense que fuera asi pero tenia mas o menos la idea gracias por la guia sirve de mucho y que estes bien adios
189
« en: Lunes 17 de Abril de 2006, 19:59 »
hola gracias por responder pero no es lo que necesito quizas me explique mal te explico a ver si es que puedo es que es un poco complicado, mira tengo una tabla que se llama "tabla" cierto, bueno ademas tengo un campo que se llama "folio" cierto bueno lo que yo quiero es que segun una seleccion que yo haga puedo asigarle a la variable "var" el valor o tipo del campo "folio" es como decir esto
var=folio eso es, se puede hacer pk depsues la intruccion sql deberia ser asi mira
Set rst_paterno = base.OpenRecordset("select * from maestro_atenciones where var like '*" & Trim(Text1) & "*'order by [folio_atencion]")
var vendria tomando el lugar del campo que quiero buscar
osea este
Set rst_paterno = base.OpenRecordset("select * from maestro_atenciones where [usuario_atencion] like '*" & Trim(Text1) & "*'order by [folio_atencion]")
bueno si es por selecion deberia ser asi?
dim stcampo as string
If Combo1.Text = "USUARIO ATENCION" Then stcampo = "usuario_atencion" End If
Set rst_paterno = base.OpenRecordset("select * from maestro_atenciones where stcampo like '*" & Trim(Text1) & "*'order by [folio_atencion]")
lo que tu me dices es que le asigne el valor del campo a la variable cierto, pero que pasa si tengo mas de una tabla con el mismo nombre del campo cual campo tomaria mi variable?, bueno no lo tengo muy claro ahora si me puedes explicar un pokito mas a fondo, podre entender(soy ultra novato en este tipo de busqueda) sorry recien llevo 1 mes a media dandole a esto asi que por eso pregunto. te agradesco la ayuda un saludo adios.
190
« en: Lunes 17 de Abril de 2006, 17:09 »
hola a todos debe ser un poco extraña mi pregunta pero quiero explicarles a ver si me entienden, resulta que quiero saber si se puede declarar una variable que sea de tipo campo ¿que se preguntaran ustedes?, bueno resulta que estoy hacendo una busqueda y tengo un combo box en cual si tu selecionas buscar por nombre esta variable tome el campo "nombre" de la tabla, se puede hacer esto?, no se si pueda hacer trate de hacerlo tipo field y no me resulta, quizas me puedan dar una mano, a ver les dejo el code para que lo vean.
Option Explicit Public var As Field
Private Sub Command1_Click() Buscar End Sub
Private Sub Form_Load() Dim base As Database Dim rst_base As Recordset Dim rst_paterno As Recordset Dim deptos As Recordset Dim maestra As Recordset Dim Archivo As String Dim Nro As Double Dim msg As String Dim ruta As String
Archivo = App.Path & "\rutabasesoporte.TXT" If Dir(Archivo, vbArchive) = "" Then MsgBox "No existe archivo de configuracion de RUTA", vbInformation, "Advertencia" Else Nro = FreeFile Open Archivo For Input As #Nro Input #Nro, ruta 'Close (Linea) End If Call limpiar Set base = OpenDatabase(ruta) Set rst_base = base.OpenRecordset("select [folio_atencion] from maestro_atenciones order by folio_atencion;", dbOpenDynaset, dbConsistent, dbOptimistic) rst_base.MoveNext rst_base.MoveFirst Set rst_paterno = base.OpenRecordset("select * from maestro_atenciones;", dbOpenDynaset, dbConsistent, dbOptimistic) If rst_paterno.RecordCount > 0 Then rst_paterno.MoveNext rst_paterno.MoveFirst End If Combo1.AddItem "USUARIO" Combo1.AddItem "DIRECCION / DEPTO" Combo1.AddItem "TELEFONO" Combo1.AddItem "ANEXO" Combo1.AddItem "PROBLEMA REPORTADO" Combo1.AddItem "ESTADO ATENCION" Combo1.AddItem "FOLIO DE ATENCION" End Sub
Sub INICIARGRILLA() With hfgGrillaP .ColWidth(0) = 2000: .TextMatrix(0, 0) = "FOLIO DE ATENCION" .ColWidth(1) = 2000: .TextMatrix(0, 1) = "NOMBRE DE USUARIO" .ColWidth(2) = 2000: .TextMatrix(0, 2) = "DIRECCION / DEPTO" .ColWidth(3) = 2000: .TextMatrix(0, 3) = "PROBLEMA REPORTADO" .ColWidth(4) = 2000: .TextMatrix(0, 4) = "TECNICO ASIGNADO" .ColWidth(5) = 2000: .TextMatrix(0, 5) = "ESTADO ATENCION" .ColAlignmentFixed = 3 .ColAlignment(0) = 0 .ColAlignment(1) = 0 .ColAlignment(2) = 0 .ColAlignment(3) = 0 .ColAlignment(4) = 0 .ColAlignment(5) = 0 End With End Sub
Sub Buscar() Dim cont As Long Dim hhhh As Integer Dim rst_base As Recordset Dim base As Database Dim rst_paterno As Recordset Dim maestra As Recordset Dim totalpc As Integer Dim porcentaje As Integer Dim total As Integer Dim Archivo As String Dim Nro As Double Dim msg As String Dim ruta As String
Archivo = App.Path & "\rutabasesoporte.TXT" If Dir(Archivo, vbArchive) = "" Then MsgBox "No existe archivo de configuracion de RUTA", vbInformation, "Advertencia" Else Nro = FreeFile Open Archivo For Input As #Nro Input #Nro, ruta 'Close (Linea) End If hfgGrillaP.Clear INICIARGRILLA
Set base = OpenDatabase(ruta) If Combo1.Text = "USUARIO" Then var = rst_base("usuario_atencion") 'aqui es donde quiero que la variable var obtenga el valor de usuario atencion incluyendo el contenido End If
Set rst_paterno = base.OpenRecordset("select * from MAESTRO_ATENCIONES where var like '*" & Trim(Text1) & "*'order by [FOLIO_ATENCION]") 'text1 contine lo que voy a buscar
With rst_paterno If .RecordCount > 0 Then .MoveLast .MoveFirst hhhh = .RecordCount hfgGrillaP.Rows = .RecordCount + 1 For cont = 1 To .RecordCount hfgGrillaP.TextMatrix(cont, 0) = "" & ![folio_atencion] hfgGrillaP.TextMatrix(cont, 1) = "" & ![USUARIO_ATENCION] hfgGrillaP.TextMatrix(cont, 2) = "" & ![DIRECCION_DEPTO] hfgGrillaP.TextMatrix(cont, 3) = "" & ![PROBLEMA_DESCRITO] hfgGrillaP.TextMatrix(cont, 4) = "" & ![TECNICO_ASIGNADO] hfgGrillaP.TextMatrix(cont, 5) = "" & ![ESTADO_ATENCION] .MoveNext Next Else MsgBox "NO HAY DATOS", vbOKOnly, "ATENCION" End If End With
End Sub
Private Sub hfgGrillaP_DblClick() Dim pasar As String pasar = Format(hfgGrillaP.TextMatrix(hfgGrillaP.Row, 0), "") End Sub
bueno espero que me puedan ayudar muchas gracias adios.
191
« en: Lunes 17 de Abril de 2006, 15:39 »
hola a todos, bueno le paso a comentar mi duda rusulta que estoy haciendo una busqueda y quiero que esta busqueda me busque en cada registro si la palabra esta creo que se cual es la linea pero tengo una duda como hago que selecione todos los campos con ¿*?, bueno a continuacion les dejo el code para que lo vean.
Option Explicit
Private Sub Command1_Click() Buscar End Sub
Sub limpiar() hfgGrillaP.Clear INICIARGRILLA End Sub
Private Sub Form_Load() Dim base As Database Dim rst_base As Recordset Dim rst_paterno As Recordset Dim deptos As Recordset Dim maestra As Recordset Dim Archivo As String Dim Nro As Double Dim msg As String Dim ruta As String Archivo = App.Path & "\rutabasesoporte.TXT" If Dir(Archivo, vbArchive) = "" Then MsgBox "No existe archivo de configuracion de RUTA", vbInformation, "Advertencia" Else Nro = FreeFile Open Archivo For Input As #Nro Input #Nro, ruta 'Close (Linea) End If Call limpiar Set base = OpenDatabase(ruta) Set deptos = base.OpenRecordset("equipamiento_atendido") Set maestra = base.OpenRecordset("maestro_atenciones") Set rst_base = base.OpenRecordset("select [folio_atencion] from maestro_atenciones order by folio_atencion;", dbOpenDynaset, dbConsistent, dbOptimistic) rst_base.MoveNext rst_base.MoveFirst Set rst_paterno = base.OpenRecordset("select * from maestro_atenciones;", dbOpenDynaset, dbConsistent, dbOptimistic) If rst_paterno.RecordCount > 0 Then rst_paterno.MoveNext rst_paterno.MoveFirst End If End Sub
Sub INICIARGRILLA() With hfgGrillaP .ColWidth(0) = 1400: .TextMatrix(0, 0) = "Nº INVENTARIO" .ColWidth(1) = 1400: .TextMatrix(0, 1) = "NOMBRE" .ColWidth(2) = 1400: .TextMatrix(0, 2) = "PATERNO" .ColWidth(3) = 1400: .TextMatrix(0, 3) = "AREA" .ColWidth(4) = 1400: .TextMatrix(0, 4) = "DIRECCION" .ColWidth(5) = 1400: .TextMatrix(0, 5) = "DEPTO" .ColAlignmentFixed = 3 .ColAlignment(0) = 0 .ColAlignment(1) = 0 .ColAlignment(2) = 0 .ColAlignment(3) = 0 .ColAlignment(4) = 0 .ColAlignment(5) = 0 End With End Sub
Sub BuscarPaterno() Dim cont As Long Dim hhhh As Integer Dim rst_base As Recordset Dim base As Database Dim rst_paterno As Recordset Dim maestra As Recordset Dim totalpc As Integer Dim porcentaje As Integer Dim total As Integer Dim Archivo As String Dim Nro As Double Dim msg As String Dim ruta As String Archivo = App.Path & "\rutabasesoporte.TXT" If Dir(Archivo, vbArchive) = "" Then MsgBox "No existe archivo de configuracion de RUTA", vbInformation, "Advertencia" Else Nro = FreeFile Open Archivo For Input As #Nro Input #Nro, ruta 'Close (Linea) End If hfgGrillaP.Clear INICIARGRILLA Set base = OpenDatabase(ruta) Set maestra = base.OpenRecordset("maestro_atenciones") Set rst_paterno = base.OpenRecordset("select [folio_atencion],[usuario_atencion],[direccion_depto],[problema_descrito],[tecnico_asignado],[estado_atencion] from maestro_atenciones where [usuario_atencion] like '" & Trim(Text1) & "*'order by [folio_atencion]") With rst_paterno If .RecordCount > 0 Then .MoveLast .MoveFirst hhhh = .RecordCount hfgGrillaP.Rows = .RecordCount + 1 For cont = 1 To .RecordCount hfgGrillaP.TextMatrix(cont, 0) = "" & ![folio_atencion] hfgGrillaP.TextMatrix(cont, 1) = "" & ![usuario_atencion] hfgGrillaP.TextMatrix(cont, 2) = "" & ![direccion_depto] hfgGrillaP.TextMatrix(cont, 3) = "" & ![problema_descrito] hfgGrillaP.TextMatrix(cont, 4) = "" & ![tecnico_asignado] hfgGrillaP.TextMatrix(cont, 5) = "" & ![estado_atencion] .MoveNext Next Else MsgBox "NO HAY DATOS ", vbOKOnly, "ATENCION" End If End With End Sub
Private Sub hfgGrillaP_DblClick() Dim rut_numero As String rut_numero = Format(hfgGrillaP.TextMatrix(hfgGrillaP.Row, 0), "") End Sub
bueno en este code me parece que hago una busqueda por usuario bueno lo que yo quiero es que me haga una busqueda por cualquier campo no se si puede hacer si me pueden guiar seria genial muchas gracias adios
192
« en: Miércoles 12 de Abril de 2006, 15:39 »
hola a todos como estan, bueno aqui estoy de nuevo con una incertidumbre resulta que tengo una pequeña aplicacion en la cual a traves de una busqueda abre un archivo excel en el cual almacena por filas y columnas en las lineas que yo deseo pero mi consulta es la siguiente, uno en un archivo excel puede terner varias hojas cierto y bueno me gustaria saber como almacenar en un archivo excel que se llame por ejemplo "prueba.xls" y en ese archivo tengo tres libros "hoja1" "hoja2" y "hoja3" como puedo decirle al visual que quiero, que almacene los datos en prueba.xls en libro1 lo siguiente "hola" y en libro2 "mamá", si alguien me puede ayudar seria genial bueno les dejo un pequeño code que tengo y quisiera saber si se puede mejorar ese mismo code o hay que hacer algo nuevo.
Sub imprimir() Dim ApExcel As Variant Set ApExcel = CreateObject("Excel.application") ApExcel.Visible = True ApExcel.Workbooks.Open (App.Path & "\Formulario de Soporte Tecnico a Terreno.xls") ApExcel.cells(1, 1).Font.Size = 12 ApExcel.cells(8, 7).formula = Text1.Text 'folio ApExcel.cells(9, 4).formula = Text4.Text 'nombre usuario ApExcel.cells(9, 7).formula = Text6.Text 'fono anexo ApExcel.cells(10, 4).formula = Combo1.Text 'direccion ApExcel.cells(10, 7).formula = Text5.Text 'oficina ApExcel.cells(11, 7).formula = Combo3.Text 'tecnico ApExcel.cells(14, 3).formula = Text7.Text 'problema Set ApExcel = Nothing End Sub
bueno este es el code que yo ocupo si alguien sabe como se puede lo que les pido se los agradeceria mucho adios y gracias.
193
« en: Martes 11 de Abril de 2006, 22:28 »
hola mira te puedo ayudar en algo pero en colocar el text en multilinea no tengo idea pero si te puedo ayudar en lo otro, en la propiedades del text ahi una que se llama maxlength y ahi puedes establecer la cantidad de numero o caracteres que deseas y para hacer que salte al siguiente text deberias hacer una especie de funcion en la parte del keypress del text. algo asi seria
Private Sub Text1_KeyPress(KeyAscii As Integer) If Text1.MaxLength = 10 Then 'en este caso el limite que tu determinas Text2.SetFocus 'aqui le das el foco al siguiente text o command End If End Sub
bueno este pequño code deberia funcionar adios.
194
« en: Martes 11 de Abril de 2006, 22:19 »
hola a todos bueno yo postie un ftp para un buen no para que alguien se este tratando de meter como administrador no soy tan inbecil para crear un cuenta ftp con ese username solo cree esa que postie hace un rato atraz para quien este trantado de hacer esto lo estoy mirando y tengo su ip asi que si vuelve a tratar de entrar le voy a hacer bolsa el equipo asiq ue porfavor no hinches mas trantado de entrar de mala manera gracias adios.
PD: si vuelvo a detectar que entran a la mala bajo el ftp y se quedan sin las librerias de visual que lo hice de manera de aportar.
195
« en: Martes 11 de Abril de 2006, 19:48 »
lo prometido es deuda y las deudas se pagan jejeje hoy es martes 11 y te voy a dar la direccion del ftp para que te bajes las msdn son dos cd y ambos estan en una imagen ok, ademas estan comprimidas en rar para que pesen menos y ademas estan cortadas con el hacha para que las bajes de a una ok mira este ftp solo puede ser desde las 19:30 hrs chilenas (GMT-04:00)Santiago ok asi que revisen el tiempo pk mi conexion no es muy grande asi que no me la hagan bolsa jajaja ok bueno anoten amigos ftp://200.54.64.45 username "vb" password "vb", exiten tres carpetas en este ftp msdn1 msdn2 y aplicaciones en esta ultima esta el daemon un programa para montar imagenes y el clonecd, tambien esta el hacha y para los que no tienen winrar tambien esta ahi asi que no me pueden decir uqe les falta algo ok bueno ese es mi aporte asi que disfrutenlo jejeje adios que esten bien chau
196
« en: Lunes 10 de Abril de 2006, 18:55 »
hey!!! muchisimas gracias a los dos bueno leyendo un poco el codigo que han posteado he podido entender como funciona una instruccion sql  ais que se los agradesco, respecto a los code los dos son lo que necesitaba solo que no sabia como se debia preguntar y aplicar gracias por su ayuda y su tiempo adios.
197
« en: Lunes 10 de Abril de 2006, 15:17 »
hola juanolo bueno gracias por la ayuda pero igual me da errores, osea no que me de un error de ejecucion o algo asi solo que cuando sigo contando igual me sobre pasa lo que deberia tener no se si me entiendes igual dejo la inquietante para ver quien me echa la manito y se agradece mucho el aporte adios
198
« en: Lunes 10 de Abril de 2006, 15:07 »
mira hoy es lunes mañana martes lo puedo subir pk tengo una carga de trbajo que ni te imaginas pero mañana martes 11 de abril lo subo ok y luego posteo el link en descarga directa sino como ftp ahi veo como quede mas rapida ok bueno saludos a todos adios
199
« en: Viernes 7 de Abril de 2006, 14:24 »
hola bueno yo tengo esos dos cd que te falta si quieres te los puedo subir por ftp y los descargas pero le creare una imagen para que sigan manteniendose como cd en caso de que despues las quieran hacer cd que opinas si lo quieren posteen que si y les doy el link ok eso adios.
200
« en: Viernes 7 de Abril de 2006, 00:26 »
Te escribí una subrutina que supongo te ayudará en lo que deseas. No la probé, ya que no una base de datos en que basarme, pero espero que funcione cuando la adecues a tu programa.
'strPalabraBuscada = "sistema" o cualquier palabra que desees buscar Sub test(strPalabraBuscada As String) Dim DBPrincipal As Database Dim rstID As Recordset Dim strSQL As String Set DBPrincipal = DBEngine.OpenDatabase("MiDataBase.mdb") strSQL = "SELECT * FROM MiTabla" Set rstID = DBPrincipal.OpenRecordset(strSQL, dbOpenDynaset) rstID.MoveFirst While Not rstID.EOF 'el signo (*) es un comodín, la palabra puede estar en cualquier _ parte del texto del campo a buscar rstID.FindFirst "Micampo='*" & strPalabraBuscada & "*'" If Not rstID.NoMatch Then MsgBox "No encontré " & strPalabraBuscada Else MsgBox "Encontré " & strPalabraBuscada End If rstID.MoveNext Wend rstID.Close DBPrincipal.Close End Sub
bueno muchas gracias por tu ayuda sabes trate de adaptar el code a lo que yo queria, pero no me resulta cuando empiezo el conteo en la base por ejemplo tengo 200 registros y me cuenta que ya paso como 3000 veces osea no me funciona lo que yo hice quizas algo esta mal te puedo dejar el code para que lo veas y me puedas indicar cual puede ser mi error, te lo agradeceria muchisimo ya que haci podria entregar la aplicacion que me estan pidiendo y esto es lo unico que me retrasa un poco bueno es mi primera vez que realizo una busqueda con sql jejeje bueno te dejo el code y espero me cuentes ok adios y gracias Dim prueba As Database Dim tabla As Recordset Dim strSQL As String Dim strpalabrabuscada As String Dim cuentasistema As Integer strpalabrabuscada = "SISTEMA" Set prueba = DBEngine.OpenDatabase("\\obiwan\soporte\inventario06.mdb") strSQL = "SELECT * FROM maestra" Set tabla = prueba.OpenRecordset(strSQL, dbOpenDynaset) tabla.MoveFirst While Not tabla.EOF tabla.FindFirst "perfilusuario='*" & strpalabrabuscada & "*'" If Not tabla.NoMatch Then MsgBox "No encontré " & strpalabrabuscada Else MsgBox "Encontré " & strpalabrabuscada cuentasistema = cuentasistema + 1 Label31.Caption = cuentasistema End If tabla.MoveNext Wend tabla.Close prueba.Close
Páginas: 1 ... 6 7 [8] 9 10 11
|
|
|