|
|
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 - Dragos
Páginas: [1]
1
« en: Domingo 18 de Julio de 2010, 18:01 »
Hola amigos, queria preguntarles algo... Mi caso es el siguiente, estoy realizando un tutorial didactico en Visual Basic 6.0 y tengo un boton que se llama "DESCARGAR" donde el usuario podra descargar un documento .pdf para ver el contenido que tiene la unidad que esta viendo en el tutorial... La cosa es la siguiente he probado con el Shell execute: Private Declare Function ShellExecute Lib "shell32.dll" Alias _ '"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _ ByVal lpFile As String, ByVal lpParameters As String, _ ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
ShellExecute 0&, vbNullString, "E:Documents and SettingsAliMis documentosTESISDocumentosImplantacion_de_Memoria_RAM.pdf", vbNullString, vbNullString, vbNormalFocus
lo que pasa es que a la hora de instalar el ejecutable en otra PC no toma esa ruta, he utilizado el app.path pero el archivo no abre, ni da error tampoco Si esta en sus manos, quisiera ver como me podrian ayudar!
2
« en: Domingo 18 de Octubre de 2009, 04:21 »
Aqui el codigo del Formulario donde almaceno la informacion de la persona que voy a agregar: Private Sub cmdbuscar_Click() formbusqueda.Show End Sub Private Sub cmdexaminar_Click() With CommonDialog1 .DialogTitle = "Seleccionar imagen " .Filter = "JPG|*.JPG|BMP|*.bmp|GIF|*.GIF|Todos los archivos|*.*" .ShowOpen If .FileName = "" Then Exit Sub Else Picture1 = LoadPicture(.FileName) End If End With End Sub Private Sub cmdguardar_Click() Formregistros.lblfecha = Format(Date, "dd/mm/yyyy") Formregistros.lblid = Format(" & IdRegistro & ") If txtcedula.Text = "" Then MsgBox ("No Se puede Guardar la informacion porque las casillas estan Vacias, por Favor introduzca la Informacion") Else Data1.UpdateRecord Data1.Refresh MsgBox "El Cliente ha sido Guardado en la Base de Datos", vbExclamation, "Aviso Importante" End If cmdguardar.Enabled = False End Sub Private Sub cmdnuevo_Click() txtcedula.SetFocus cmdguardar.Enabled = True cmdborrar.Enabled = True cmdexaminar.Enabled = True cmdlimpiar.Enabled = True Data1.Recordset.AddNew End Sub Private Sub cmdeditar_Click() If (Data1.Recordset.EOF Or Data1.Recordset.BOF) Then Dim r r = MsgBox("No hay Clientes Registrados que Editar", vbInformation, "Editar Clientes") Else Dim m As Long m = Val(InputBox("Introduce la cedula de la persona que deseas Editar")) Data1.Recordset.FindFirst "Cedula=" & m If Data1.Recordset.NoMatch Then MsgBox "La Cedula de Identidad: " & m & " No está en la Base de Datos", vbExclamation, "Búsqueda de Personas..." End If End If cmdguardar.Enabled = True End Sub Private Sub Text1_GotFocus() Text1.Text = "" End Sub
Ese es el codigo, EDITAR a su vez cumple tambien en este caso la funcion de BUSCAR, ya que muestra los resultado buscados en la base de datos a traves de la CEDULA DE IDENTIDAD... Es por eso que necesito que la informacion cuando BUSQUE me la muestre en otro formulario, como una "Ficha" por llamarlo de algun modo, con toda la informacion de la persona!
3
« en: Miércoles 14 de Octubre de 2009, 02:49 »
Gracias por responder a mis dudas, amigo, he intentado andar con el codigo que me has dado, adaptandolo a mi situacion... me produce un bloqueo en esta linea Persona=.... call formExibirResultados.show(1)
' ... Persona= buscar.... ' el resultado de la query la volcamos en esta estructura, habrá que hacerlo elemento a elemento. Tipo= TIPO_PERSONAS call FormExibirResultados.show(1) ' ...
Igual en este, la linea PERSONA me la coloca en rojo como un "error de compilacion, se esperaba identificador o expresion entre parentesis"Gracias de ante mano!
4
« en: Lunes 12 de Octubre de 2009, 18:37 »
Amigos, buenos dias o tardes o noches... Tengo un problema con una linea de Codigo que estoy utilizando para cargar una imagen (foto) este es mi codigo Private Sub Form_Load() Dim basedatos As String basedatos = App.Path 'si no tiene la bara final la añade If Right$(basedatos, 1) <> "" Then basedatos = basedatos & "" basedatos = basedatos & "registros.mdb" ' Le indica al Data la base de datos Data1.DatabaseName = basedatos 'Fuente de los registros para el control data Data1.RecordSource = "Select Imagenes FROM Registros" 'Refresca el control Data1.Refresh End Sub
El Error que me arroja en esta parte es: ERROR 3061en tiempo de ejecucion
Pocos parametros Se esperaba 1y el error me lo señala en esta linea Espero me puedan ayudar! Saludos
5
« en: Viernes 9 de Octubre de 2009, 02:15 »
Ok, realice unas capturas de pantallas para que nos entendamos mejor pero la web no me permite colocar enlaces =S , disculpa si molesto mucho pero de verdad me interesa aprender MUCHO! cada detalle... =)
Tengo el Formulario Principal, llamemoslo FORMPRINCIPAL, este formulario sirve para agregar registros de personas, con sus datos...en este formulario tenemos en boton BUSCAR
ese boton BUSCAR lleva a otro pequeño formulario desde donde realizaremos la busqueda por el NUMERO DE CEDULA, este formulario posee tambien un boton BUSCAR
al presionar el boton BUSCAR de este formulario me va a llevar a otro formulario en donde me mostrara la ficha completa de la persona, nombre, apellido, cedula...los codigos que me das en donde los tendria que colocar?! el que va en el MODULO que es el primer codigo que me colocas ya lo coloque, agradezco tu paciencia amigo, es muy valioso para mi !
Saludos y Gracias!
6
« en: Jueves 8 de Octubre de 2009, 21:59 »
Persona=.... call formExibirResultados.show(1) ' lo llamamos como modal... ' En el formulario de exhibición: ' Si no quieres mantener una variable compartida entre proyectos, entonces debes tener una variable pública en este formulario Public per as personas private sub Form_Load Me.Show Text1.text= persona.Nombre Text2.text= persona.Apellido1 Text3.Text= persona.apellido2 Text4.text= Persona.NumerCedula end sub ' este formulario tendría un botón de aceptar que al pulsarlo cierra el formulario
y en esta parte lo mismo dependiendo de la cantidad de textbox que tenga, muchisimas gracias por tu ayuda aun me quedan unas pequeñas dudas... * Te dije que en un formulario tengo un boton BUSCAR ese boton me lleva a otro pequeño formulario ( B ) que he diseñado tipo INPUTBOX, donde tambien tengo un boton BUSCAR, dicha busqueda es por el numero de cedula de identidad...que parte del codigo coloco en el boton BUSCAR del formulario ( B ) * Como inserto un modulo (puede parecer tonta la pregunta, pero estamos para aprender)
7
« en: Jueves 8 de Octubre de 2009, 21:50 »
Ok para esta parte del codigo, yo tengo varios campos en la base de datos, este es el codigo modificado a mi preferencia: ' declaramos las especificaciones del tipo de datos que vamos a usar en diferentes lugares 'para el caso se ha supuesto una estructura de tipo persona public type Personas Cedula as string Nombres as string Apellidos as string Direccion as string Edad as string Fecha de Nacimiento as string Sexo as string end type ' variable de compartición dentro del proyecto public Persona as Personas
8
« en: Martes 6 de Octubre de 2009, 22:16 »
Hola, saludos a todos...mi problema es el siguiente, estoy realizando un programa con base de datos access, y utilizo el control DATA para la conexion con la base de datos, lo que quiero hacer es lo siguiente, tengo un formulario en donde voy a registrar a los clientes, en dicho formulario tengo un boton BUSCAR que me lleva a otro pequeño formulario ( en donde solicito el numero de cedula para buscar a "X" cliente, lo que quiero es que al ingresar la Cedula de identidad y presionar el boton BUSCAR (en el formulario B ) el resultado me lo arroje en otro formulario... He intentado algo pero no me ha salido nada aun, si pueden ayudarme por favor lo agradeceria! GRACIAS 
9
« en: Jueves 10 de Septiembre de 2009, 22:09 »
Si, manejo base de datos pero no a nivel profesional, lo que quiero decir es que, por ejemplo... tu pagas la primera semana, pagas la segunda semana y asi sucesivamente por un año!
Que es lo que quiero, que al buscarte por el numero de cedula (Que es mi modo de busqueda en este proyecto) me salga todo el historial tuyo, es decir todas las semanas que pagaste desde que entraste hasta que dejaste de ir al gym!
10
« en: Lunes 7 de Septiembre de 2009, 22:22 »
Hola amigos, primero que nada excelente foro...estoy realizando una aplicacion para el control de clientes de un Gimnasio, el problema es que la persona quiere un historial de cada cliente, es decir, el cliente que va al gimnasio paga semanalmente, el dueño lo que quiere es que se guarde un Historial de todas las semanas que pago, cuanto pago, etc, desde que comenzo hasta que dejo de ir al gimnasio...
En mi aplicacion yo le ofrezco un TEXTBOX donde colocara la semana que pago y una actualizacion del mismo cliente para cuando pague la proxima semana, es decir, edita el cliente y coloca la semana que esta pagando!
Quiero saber como puedo hacer para llevar un Historial, agradeceria sus respuestas!
Saludos
11
« en: Lunes 7 de Septiembre de 2009, 22:04 »
Amigos, tengo problemas para empaquetar un proyecto...por favor me podrian ayudar! he visto que hablan de programas distintos al que trae VB por defecto, podrian recomendarme alguno bueno... Tengo problemas con las Dll y los OCX! 
Páginas: [1]
|
|
|
Mostrar Mensajes
