|
|
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 ... 78 79 [80] 81 82 83
1976
« en: Martes 17 de Octubre de 2006, 03:25 »
1977
« en: Martes 17 de Octubre de 2006, 03:17 »
 es una duda o un acertijo?  Es bastante confuso desde el titulo del mensaje, pudieras dar una informacion mas clara? Que base de datos utilizas? Un ejemplo mas claro como cual es la idea de lo que quieres hacer? no es informacion secreta verdad?  en lugar de decir x-y- z se carga info etc... porque no dices por ejemplo: Se trata de una pagina de unas encuestas donde el usuario tiene que elgir un tema en especifico sobre cual animal es su favorito entonces aparecen las opciones Perro,Gato,Caballo para que el usuario elija segun la eleccion se guarda en una tabla y luego lo que deseo hacer es..... bla bla bla explicas la duda al menos yo no entiendi si x-y-z son las opciones, son las paginas, o son las tablas o tal vez fui yo el que no capto???  Saludos!
1978
« en: Martes 17 de Octubre de 2006, 03:01 »
A mi no me marca ningun error debe ser que en un campo de tipo text no estas utilizando las comillas
mira te dejo un ejemplo a ver si te sirve
Suerte
1979
« en: Lunes 16 de Octubre de 2006, 22:38 »
pues el control timer (en Visual Basic) en el evento timer colocas en el control en la propiedad Interval el tiempo en milisegundos cuando quieras que se ejecute  Private Sub Timer1_Timer() lblTiempo.Caption=Format(Now(),"Hh:mm:ss") End Sub
Suerte!
1980
« en: Lunes 16 de Octubre de 2006, 08:45 »
Fijense un poco mas todos que responden ... sino saben no digan nada y por favor COMPRUEBEN antes de responder. Hola creo que tienes razon hasta cierto punto.... Pero tambien creo que es bueno aportar porque cuando uno tiene un problema (que es todos los dias) en la informatica, busca apoyo en alguien regularmente internet, lo que uno intenta es ayudar porque todos estamos en problemas debido a que no podemos saberlo todo Por ejemplo este post para ti fue facil, porque tienes el conocimiento de esa duda, pero los demas intentamos ayudar a veces no podemos Comprobar las cosas porque no tenemos el lenguaje de momento o por ciertas situaciones pero para alguien que tiene el problema pienso que cualquier aporte puede ser de ayuda... si alguien desea sacar una consulta (de esas dificiles que aveces hay que hacer) llega el momento que intentas muchas cosas .... y nada resulta(por tu falta de conocimiento) comienzas a hacer 'arreglos' para sacar el trabajo de maneras no eficientes, ( tablas temporales crear algunos scripts etc...) de repente entras a un foro y en cuentas una respuesta que te diga: "Pues yo se que existe una instruccion que se llama GROUP BY y que pudiera ayudarte de momento no se como se usa exactamente pero tal vez te sirva"
Saludos
elPepe
en base a la respuesta de "elpepe" puedes seguir investigando sobre otra linea (cuestion de ir a google -> GROUP BY) sin ir a ciegas quizas "elpepe" no sabia como se usa SQL, y menos lo COMPROBO pero mas o menos te oriento hacia una solucion y eso cuando uno tiene problemas cualquier idea es buena, bueno casi cualquiera  ... en fin al Niveles.... ....Una simple opinion... Y gracias por tu respuesta para que los demas aprendamos 
1981
« en: Lunes 16 de Octubre de 2006, 08:09 »
que base de datos es? como tienes las tablas? que tipo de datos son los campos?
1983
« en: Lunes 16 de Octubre de 2006, 05:22 »
les mando este pedaso de codigo ke ya tengo y les adjunto el archivo de mi programa tambien... gracias
Adjuntaste el puro proyecto, pedazo es con Z y es que no ke etc.. es sencillo mira tu base de datos debe de estar asi Tabla: Alumnos MATRICULA NOMBRE PATERNO MATERNO GRUPO Tabla: Otros_Datos MATRICULA MES STATUS Debes de tener el campo de la matricula para poder relacionar... entonces puedes buscar por SQL Option Explicit Private Sub Command1_Click() Dim ls_Matricula As String, ls_SQL As String ls_Matricula = Trim(txtBuscar) ls_SQL = "SELECT alumnos.matricula,alumnos.nombre,alumnos.paterno,alumnos.materno,alumnos.grupo,otros_datos.mes,otros_datos.status " ls_SQL = ls_SQL & "FROM Alumnos,Otros_Datos WHERE Alumnos.Matricula=Otros_Datos.Matricula and Alumnos.Matricula='" & ls_Matricula & "'" With Me.Data1 Set .Recordset = .Database.OpenRecordset(ls_SQL, dbOpenDynaset) 'Evitar que Falle el RecorCount :P '==================================== .Recordset.MoveLast .Recordset.MoveFirst '==================================== If .Recordset.RecordCount > 0 Then TXTMATRICULA.Text = .Recordset!MATRICULA TXTNOMBRE.Text = .Recordset!NOMBRE TXTPATERNO.Text = .Recordset!PATERNO TXTMATERNO.Text = .Recordset!MATERNO TXTGRUPO.Text = .Recordset!GRUPO Else MsgBox ("No matricula no encontrada") End If End With End Sub
Suerte!
1984
« en: Lunes 16 de Octubre de 2006, 04:30 »
Hola, perdon por no haberme expresado mejor . En una parte de mi programa se genera un archivo xls y lo que quiero es que acto seguido compruebe si el archivo ha sido creado correctamente indicandolo con un msgbox por ejemplo. Supongo que los tiros irán por donde indica F_Tanori, por que es bastante parecido a lo que quiero hacer, pero soy muy novato aún .
Muchas gracias por la ayuda....
El mas grande atributo de la programacion es que existen miles de manera de lograr algo algunas mas eficientes que otras pero.... de muchas formas depende de como ataques el problema por una parte pienso que ArKaNtOs tiene razon puedes cachar el error y evitar hacer comprobaciones extras pero incluso para saber si existe un archivo puedes hacer esto ... bExisteArchivo=Dir(ls_NombreRutaArchivo) <>"" if bExisteArchivo then MsgBox("","el archivo "& ls_NombreRutaArchivo &" Si Existe") end if
1985
« en: Lunes 16 de Octubre de 2006, 04:03 »
1986
« en: Domingo 15 de Octubre de 2006, 21:39 »
Algunos controles remotos son preligrosos al usar, ya que puede haber alguna transferencia de algun troyano.
Que control remoto Recomendarias tú.
definitiva siempre hay riesgo en utilizar un administrador remoto ... una vez escuche decir "que la unica computadora segura es la que esta apagada desconectada de cualquie red en una bobeda custodiada por soldado.... y aun asi esta dudoso..."  --yo he utilizado-- 1- pcAnywhere 2- Radmin 3- SubSeven
1987
« en: Domingo 15 de Octubre de 2006, 20:22 »
Te sirve un poco de "sobrecarga"? (creo que así le llaman  )
"XYZ" + (char)65 + (char)66 ... Hola, No se llama sobrecarga eso se llama Casting que es una conversion de tipo de dato la Sobrecarga es utilizar el mismo nombre en varias funciones/metodos donde cada una puede recibir parametros diferentes, y/o devolver diferentes resultados tambien se permite en operadores y el compilador 'encuentra' cual es la funcion solicitada ejemplo: Declaracion: Funcion DibujarFigura(radio) //.... Dibujar un circulo Fin Funcion Funcion DibujarFigura(altura,ancho) //.... Dibujar un cuadrado/rectangulo Fin Funcion Llamado: DibujarFigura(10) <--- Al recibir un parametro el compilador sabe que se refiere a la primera funcion  con respecto a la duda me parece que se hace algo asi....  char letra[1]; sprintf(letra, "%c",65) se supone que letra seria igua a "A" Suerte
1988
« en: Domingo 15 de Octubre de 2006, 18:43 »
Hola Con esto pudes aplicar el tema de xp a los programas de visual basic VB XP//**** El articulo ese menciona que solo puedes verlo en el programa compilado pero... en realidad si es posible verlo en diseño ... solo se le aplica el mismo archivo al ejecutable de visual basic (VB6) VB6.exe.manifest y hay un problema con los 'Frames' ........... El Guille//**** Suerte
1989
« en: Domingo 15 de Octubre de 2006, 18:21 »
Lo quieres saber desde el .Bat? Con esta variable sabes la ruta %cd% Suerte 
1990
« en: Domingo 15 de Octubre de 2006, 18:19 »
Hola te dejo esto a ver si te sirve Option Explicit Private Sub Form_Load() Dim ls_RutaActual, ls_RutaPrograma ls_RutaActual = CurDir() 'Obterer el directorio Actual ls_RutaPrograma = App.Path 'Obterer el directorio donde se encuentra el ejecutable If Right(ls_RutaActual, 1) <> "\" Then ls_RutaActual = ls_RutaActual & "\" If Right(ls_RutaPrograma, 1) <> "\" Then ls_RutaPrograma = ls_RutaPrograma & "\" 'Ejecutar .Bat Shell (ls_RutaActual & "Archivo.bat") ' Si es en el directorio Actual 'Shell (ls_RutaPrograma & "dir.bat") ' O en la carpeta donde esta el programa End Sub
Suerte
1991
« en: Domingo 15 de Octubre de 2006, 12:09 »
Quieres saber la fecha de creacion de un archivo??? Private Sub Command1_Click() Dim o_Archivo As Object Dim ls_Fecha As String Dim FSO As Object Set FSO = CreateObject("Scripting.FileSystemObject") Set o_Archivo = FSO.GetFile(Me.TxtNombreArchivo) If Not o_Archivo Is Nothing Then ls_Fecha = "Archivo Creado: el " & o_Archivo.DateCreated MsgBox ls_Fecha End If End Sub
Suerte
1992
« en: Domingo 15 de Octubre de 2006, 10:57 »
Hola
Si puedes editar solo que el campo a editar debe ser la primera columna
porque es el ListItem los demas son SubItems de el
entonces deberia ser
CANT,COD, ARTICULO, PRESENTACION ,ETC
con
la propiedad LabelEdit=0 Automatic
Nota: Tienes que dar dos clics (NO dobleclic sino uno y luego otro)
Otras opciones:
tambien pudideras colocar un textbox y ahi indicar la cantidad y despues colocarlo en el LV
//i=elemento seleccionado
Me.ListV.ListItems(Me.ListView1.SelectedItem.Index).SubItems(2)=me.Text1 '//En caso de que fuera la columna dos
1993
« en: Domingo 15 de Octubre de 2006, 10:41 »
Con.. Sesiones Login.php <? //Encabezado de la pagina Crear una sesion o continuar si ya existe una session_start();//Proceso de login..... si tiene acceso guardas los datos en la sesion if $acceso==true then { $_SESSION['usuario']=$usuario; } ?> ahora en cada pagina que quieras incluir el dato solo llamas en el encabezado Paginax.php <? //encabezado de la pagina session_start(); ..... .... echo "Bienvenido,".$_SESSION['usuario']; ?> Cerrar sesion session_destroy();Suerte
1994
« en: Domingo 15 de Octubre de 2006, 10:12 »
Asi es el problema es la asocioacion de los archivos ejecutables lo que tienes que hacer es lo siguiente: (lo dire en español ) 1- Abre el explorador de windows 2- Entra en el menu herramientasopciones de carpeta 3- En el cuadro de dialogo que aparece selecciona la pestaña TIPOS DE ARCHIVO en la lista busca la extencion REG (Entrada de registro) 4- Ahora ahi indicara algo como "SE ABRE CON:" en esa seccion esta un boton que dice Opciones Avanzadas (le das click) 5- En el cuadro de dialogo que aparece ahora (Editar tipo de Archivo) da click en el boton que dice 'Nuevo....' (o puedes modificar una existente con Editar...) 6- Aparece OTRO cuadro donde te solicita algunos datos Accion:coloca el titulo/nombre de la accion lo que aparece en el menu del click derecho Aplicación Utilizada para realizar la accion: el programa con el que vas abrir el archivo en este caso los .REG 7- Ahora en esos dos cuadros anota lo siguiente en Accion: Abriren Aplicación Utilizada para realizar la accion: regedit.exe "%1"seleccionas la casilla Utilizar DDE y colocas en los cuadros que aparecen en Aplicacion: regediten Tema: System8- Listo ahora vas dando aceptar en todos los cuadros de dialogos con eso es para crear la asociacion para el programa Regedit y el archivo de registro(*.reg) y puedas ejecutar el archivo este que te anexo Si es la unica opcion que tiene el archivo, se ejutara al hacer doble click sobre el por que sera la predeterminada(la que sale en negrita), sino aparecera en el menu del click derecho, puedes establecerla como predeterminada seleccionandola en la lista y pulsando predeterminado y se pondra en negritas Editado: La extensión reg ha sido desactivada y no se mostrará en adelante Suerte!
1995
« en: Domingo 15 de Octubre de 2006, 00:54 »
Hola tengo una duda veran yo llege a este sitio Investigando sobre algunos problemas (que siempre se encuantra uno en programacion) llege aqui y me registre, he procurado ayudar en lo que pueda a veces navegando en el sitio me encuentro con 'dudas' que no han sido solucionadas (al parecer o no volvieron para avisar) , y que tal vez to conozca una solucion pero hay un detalle son dudas ya 'viejas' ejemplo 21 sep 2005, 'merecen' aun una respuesta despues de que ya a pasado un poco mas de 1 año? o no tendria caso?, (talves pudiera servir alguien aunque... muchas personas no buscan y vuelven a preguntar lo mismo  ) Mi duda es cuanto tiempo tiene de validez una duda para recibir una respuesta? para no estar 'reactivando' discuciones que tal vez ya son muy obsoletas A veces no me he fijado en la fecha y he respondido si ha sido incorrecto disculpas Gracias Saludos
1996
« en: Sábado 14 de Octubre de 2006, 23:23 »
Segun veo el problema es que esta tomando el titulo de la hoja ocurre que si le cambiaron el titulo a la hoja hoja1,hoja2,hoja3 Inventario,Reporte,Otros Datos programa marca error porque ya no se llama hoja1 [Hoja1$] tendrias que llamar [Inventario$] pudieras tomar el nombre asi Dim NombreTabla As String Dim Excel As Object Set Excel = CreateObject("Excel.Application") If Not Excel Is Nothing Then Excel.Workbooks.Open (dg_nombre_archivo) NombreTabla = "[" & Excel.worksheets(1).Name & "$]" Excel.Workbooks.Close Set Excel = Nothing End If
entonces el el source le pasarias NombreTabla ... .Source=NombreTabla ...
o si utilizas un DataGrid puedes mostrar los datos asi Set cnn = New ADODB.Connection cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + dg_nombre_archivo + ";Extended Properties=""Excel 8.0;HDR=No""" cnn.CursorLocation = adUseClient Set rs = New ADODB.Recordset With rs Set .ActiveConnection = cnn .Open ("SELECT * FROM " & NombreTabla) End With Set Me.GrdMovimiento.DataSource = rs
Suerte !
1997
« en: Sábado 14 de Octubre de 2006, 06:10 »
Saludos
Creo tener la respueta a tu problemita...
lo que debes que hacer es:
1º Cambiar el formato de tu tabla acces a formato 97.
2º En las propiedades de la data donde quieres montar tu base de datos, tienes que ir auna propiedad que se llama 'Databasename', en ella buscas la direccion de tu base de datos. Despues tienes que ir a otra propiedad, 'RecordsetType' en ella le das el balor 0-table. posteriormente en la propiedad 'Recorsource' tienes que hacer click en la flechita que aparece y tiene que estar el nombre de tu TABLA de datos en acces (Tene que aparecer automáticamente el nombre de tu tabla, si no aparece es por que tu formarto de tabla no es el correcto o la dirrección de tu base de datos es incorrecta)
Espero que te sirva... Saludos Segun recuerdo el datagrid NO es compatible con el control DATA (DAO) tendras que agregar un control ADODC (ADO Data Control) para conectar el control ADO es de manera similar al DATA como te explico cufarinis solo que en este no hay que convertir la BD a 97 en lugar de la propiedad DataBaseName es ConnectionString y en la propieda Recorsource al modificarla aparece un cuadro de dialogo donde te indica el Command Type que es equivalente al ya mencionado RecordsetType ahi seleccionas el tipo de comando puedes especificar la tabla o una Consulta por SQL Una vez que conectes el control ADO para ligarlo con el datagrid solo necesitas indicar en la propiedad DataSource del DataGrid en Control ado al cual estas vinculado Suerte!
1998
« en: Sábado 14 de Octubre de 2006, 05:54 »
Hola Pues miren lo ideal seria que fuera una aplicacion web (PHP,JSP,ASP etc) pero... si quieren utilizar visual basic se puede hacer a traves de ODBC debe haber mas formas pero le expongo una manera de hacerlo Lo hecho en MySQL y VB me ha funcionado.... supongo que para SQL Server es similar con las tipicas variantes de MS bueno el movimiento esta asi.... ---MySQL--- La Aplicacion VB se conecta via ODBC a una base de datos en MySQL, en los parametros del Driver ODBC MySQL (Panel de control\Herramientas Administrativa\ODBC) al crear un nuevo datasource solicita, el nombre del DSN,Descripcion,Servidor,Usuario,Contraseña y la Base de datos bien si trabajamos la base de datos en la misma maquina en el servidor se puede dejar en blanco, o escribir localhost/127.0.0.1 etc la maquina local aqui solo seria necesario cambiar el servidor (local) por la ip del servidor remoto y ahi ya esta configurado el cliente ahora en el servidor... creamos un usuario con acceso remoto y permisos para la bd en cuestion (los que se utilizaran en el Origen de datos del cliente) Hasta aqui tenemos el DSN en el cliente ya configurado, tenemos el usuario en el servidor (osea acceso) ahora en el servidor debe contestar peticiones a MySQL yo lo hice utilizando un ruteador y en las opciones de Firewall (creo que tambien se puede creando un virtual server)se permite el acceso a MySQL dejando el puerto (TCP/IP 3306 por default) asignado a este servicio y listo... La aplicacion se conectaria al servidor indicado en el Origen de datos.... espero haber podido aportar algo Hola yo tambien tengo la misma duda.. haber si alguien se anima a responder esta pregunta.. plz..
Bueno lo mio tal ves es mas simple por que tengo una red lan y la BD esta en mySQL como lo enlazo con un programa en otra maquina?
gracias por su respuesta..
Pues solo pones la direccion de red ej. 192.168.1.10 o el nombre de la PC (Estacion10) en el servidor.... dando acceso si existe algun Firewall NOTA: Debe de haber mas opciones para hacer esto, y medidas de seguridad cualquier correccion/aporte/reclamo  .... es bienvenido Suerte !
1999
« en: Viernes 13 de Octubre de 2006, 07:36 »
2000
« en: Viernes 13 de Octubre de 2006, 04:51 »
Pues si quieres tendencia es sobre .NET en mi opinion creo que es mejor POWERBUILDER aun que no aparezca en las opciones .... te tambien ya anda en NET Suerte!
Páginas: 1 ... 78 79 [80] 81 82 83
|
|
|
Mostrar Mensajes
