Iniciar sesi贸n
Crear cuenta
Crear cuentaCrear cuenta| Se han encontrado 2654 coincidencias. | << >> |
| Visual Basic |
| Pregunta: | 25820 - BORRAR PROYECTOS RECIENTES |
| Autor: | ELVER RAMIREZ MARTINEZ |
| Hola a todos mi preguntas es cuando ejecuto visual basic me sale una ventana de dialogo con tres fichas Nuevo Existente y Reciente en la ficha reciente como borro el historial que esta ah铆 cual es el archivo a borrar gracias.. | |
| Respuesta: | R olivera |
| Para borrar el historial de estos archivos tienes que ir al regedit del windows y borrar las claves en la siguiente ruta
HKEY_CURRENT_USER\\Software\\Microsoft\\Visual Basic\\6.0\\RecentFiles... RO. | |
| Pregunta: | 25848 - COMO CREAR UN PROGRAMA TRIAL. |
| Autor: | Oscar Adrian Gonzalez Gamboa |
| Hola amigos programadores,tengo una pregunta que me gustaria que me respondieran eficasmente, Como puedo hacer una aplicacion TRial Con Visual Basic 6.0.
Osea que se elimine en 15 dias o mejor dicho que "Espire".Me urge saber como ya que es para una aplicacion de venta.(Escriban si es posible el codigo). | |
| Respuesta: | Luis Guzm谩n |
| Te doy una idea que se me ocurre ahorita mismo, es muy facil, solo prepara to sistema para que maneje solo 10 registros o menos por cada tabla que tienes, a nadie le sirve un sistema en donde solo puede hacer unas cuantas transacciones, no s茅 si es una tonter铆a lo que te digo, pero es l贸gico, y as铆 pensamos todos.
Ahora si lo que quieres es que no te copien tu sistema, destruyelo luego de esa cantidad de registros. Te digo antes programaba en Clipper y una persona de Guatemala, me robo, porque no hay otra palabra, los fuentes por medio de un descompilador y fabric贸 un sistema similar en Visual y perd铆 $4,000, realmente se debr铆a hacer algo contra este tipo de gente. Aunque hay incredulos, si existen los descompiladores, hasta ahora he visto de de vb4 y vb5, cuidado. | |
| Respuesta: | Sahid Ra Gutierrez Cruz |
| Esa es una idea muy buena, pero lo malo es que si el programa llega ha caer con un usuario un poco
mas vivillo este antes de ejecutar el programa puede cambiar la fecha a un dia despues de la primera vez que se ejecuto asi que el programa siempre pensaria que es el segundo dia, asi que mejor hazlos de manera real que el programa tenga un tiempo de de uso de 15 dias esto en cada vez que se ejecute incremente en segundos o minutoes, o lo que seam hasta que un dia pase de los 15 dias y para en la siguiente ocacion ya que funcionara ya que lo uso 15 dias, ojo no significa quiero dar ha anteneder que el programa contara desde que se instalo, sino cada vez que se usa es tiempo de vida no de instalaicon. O tambien puedes mejor hacer que el programa arranque solamente 30 ocaciones, asi que tendra un uso de 30 prendidas de la maquina un mes si es que lo usa una vez por dia. tambien lo el archivo esta bueno pero si alguien un poco mas vivillo que el primero lo puede localizar por la fecha y eliminarlo, pero esto dependiendo un poco de la gente. Esto no es por hacerla de mala onda, sino todo lo contrario ahi que pensar un poco mas en la forma de pensar de la gente asi que te tratas de adelantar un poco en la forma de pensar de la gene y asi tiene un poco, pero un poco de ventaja sobre el cliente final. Saludos, si en algo mas puedo ayudar por ahi andamos, ciao. | |
| Respuesta: | SuNcO |
| A mi me gusta ayudar, no regalar codigo, aunque este no es dificil
1. Ocupas la hora y fecha actual 2. Lo codificas con algun codigo tuyo 3. Lo grabas en algun archivo (primero verificas que no exista) 4. Cada vez que tu programa se ejecute verifique cuantos dias han pasado desde la instalacion o mejor dicho desde que se ejecuto por primera vez 5. Creas algun archivo fantasma y el programa revisa que si ese archivo fantasma existe quiere decir que ya terminaron los 15 dias, o codificas la fecha de otra manera que tambien tu sepas que ya expira Creo que si estas haciendo alguna aplicacion y quieres que sea Trial es muy importante, esto significa que lo que te dije como respuesta es muy sencillo | |
| Pregunta: | 25854 - WINIO.DLL PARA PUERTO PARALELO |
| Autor: | Miguel Alejandro Ubillo Illanes |
| Estimados
Envestigando pude encontrar una dll para controlar el puerto paralelo( INPOUT32.dll) la cual funciona perfectamente en windows 95 y 98 pero no asi en windows me, 2000, nt . Para eso encontre referencias a una dll llamada WinIO . Lo que necesito en un programa o codigo fuente donde se muestre el uso de esta, ya que hasta ahora solo he conseguido el modulo de visual basic. Quien pudiera otorgarme informacion se lo agradeceria enormente. Saludos desde Chile | |
| Respuesta: | fisicomolon |
| Hola, yo he hecho programas de control de puerto paralelo, primero hice uno en win98 pero al cambiar al xp, no funcionaba, cambie la libreria el modulo y algo del codigo, para conseguir que funcione en xp. Ambos programas, codigos, librerias, modulos y ejecutables, puedes encontrarlos en mi pagina web. www.fisicomolon.tk en la seccion PUERTO PARALELO EN VISUAL BASIC.
Si aun asi necesitas m谩s ayuda puedes escribirme un mail. No se si te ha servido esto de algo, porque no veo la fecha en la que hiciste esta pregunta por ningun lado, bye. Saludos desde Espa帽a ;) | |
| Pregunta: | 25863 - INSERTAR EN LA BASE DE DATOS ARCHIVOS PLANOS |
| Autor: | Mar铆a Isabel Mora Penagos |
| Hola, necesito que por favor me comenten si existe una o varias instrucciones en Visual Basic 4.0 para subir archivos planos a una base de datos en Access si necesidad de leer linea por linea e insertar en una tabla.
Tengo el siguiente c贸digo, el cual crea una tabla con la informaci贸n del archivo plano, pero no se como insertar esta informaci贸n a una tabla existente. Set MyTableDef = gBD(0).CreateTableDef("PERSONAS_INICIAL") MyTableDef.Connect = "Text;Database=C:DATOS\" MyTableDef.SourceTableName = "Plano.txt" gBD(0).TableDefs.Append MyTableDef Por otra parte, cuando se utiliza este c贸digo los datos de tipo double no suben correctamente y el encabezado de la tabla es el primer registro o la primera linea del archivo plano. Agradezco la colaboraci贸n. | |
| Respuesta: | Christian Tomas Benitez Morel |
| Hola, hay una forma, comun, vieja y sencilla de hacer eso que vos queres,
que es con la instruccion OPEN que se utilizaba con basic para abrir archivos de acceso directo y secuencial, ej. Open txtNombreArchivo For Random As #1 Len = Len(MiRegistro) Cant = Int(LOF(1) / Len(MiRegistro)) + 1 If Cant > 0 Then posicion = 1 sInSQL = "delete from tmpMarcas" Ejecuta_Instruccion_ABM sInSQL lblAccion = "Importando datos del Reloj" pBarOperacion.Value = 0 pBarOperacion.Max = Cant Else MsgBox "Error, el archivo no contiene datos" End If For posicion = 1 To Cant pBarOperacion.Value = posicion Get #1, posicion, MiRegistro If InStr(1, UCase(MiRegistro.Ced), "F") > 0 Then sCedula = Trim(Left(MiRegistro.Ced, InStr(1, UCase(MiRegistro.Ced), "F") - 1)) Else If IsNumeric(MiRegistro.Ced) Then sCedula = MiRegistro.Ced End If If IsNumeric(sCedula) And IsDate(MiRegistro.fecha) _ And Len(Trim(MiRegistro.Hora)) = 5 _ And Len(Trim(MiRegistro.tipo)) = 1 Then If Format(sFechaMin, "yyyymmdd") > Format(MiRegistro.fecha, "yyyymmdd") Then sFechaMin = MiRegistro.fecha End If If Format(sFechaMax, "yyyymmdd") < Format(MiRegistro.fecha, "yyyymmdd") Then sFechaMax = MiRegistro.fecha End If sInSQL = "insert into Marcas " sInSQL = sInSQL + "(ced, fecha, hora, tipo, nodo, obs)" sInSQL = sInSQL + " values (" sInSQL = sInSQL + Trim(sCedula) sInSQL = sInSQL + ", '" + Trim(MiRegistro.fecha) sInSQL = sInSQL + "', '" + Trim(Left(Trim(MiRegistro.Hora), 2) + Right(Trim(MiRegistro.Hora), 2)) Select Case Trim(MiRegistro.tipo) Case "1", "E" sTipo = "E" Case "2", "S" sTipo = "S" End Select sInSQL = sInSQL + "', '" + Trim(sTipo) sInSQL = sInSQL + "', '" + Trim(MiRegistro.Filler) sInSQL = sInSQL + "', '" + sSucursal + "')" Ejecuta_Instruccion_ABM sInSQL sInSQL = "insert into tmpMarcas " sInSQL = sInSQL + "(ced, fecha, hora, tipo, nodo, obs)" sInSQL = sInSQL + " values (" sInSQL = sInSQL + Trim(sCedula) sInSQL = sInSQL + ", '" + Trim(MiRegistro.fecha) sInSQL = sInSQL + "', '" + Trim(Left(Trim(MiRegistro.Hora), 2) + right(Trim(MiRegistro.Hora), 2)) Select Case Trim(MiRegistro.tipo) Case "1", "E" sTipo = "E" Case "2", "S" sTipo = "S" End Select sInSQL = sInSQL + "', '" + Trim(sTipo) sInSQL = sInSQL + "', '" + Trim(MiRegistro.Filler) sInSQL = sInSQL + "', '" + sSucursal + "')" Ejecuta_Instruccion_ABM sInSQL End If sCedula = "" Next posicion Close #1 | |
| Respuesta: | Christian Tomas Benitez Morel |
| Hola, hay una forma, comun, vieja y sencilla de hacer eso que vos queres,
que es con la instruccion OPEN que se utilizaba con basic para abrir archivos de acceso directo y secuencial, ej. 'Definicion del registro en el modulo Type Record Ced As String * 9 fecha As String * 9 Hora As String * 6 tipo As String * 1 Filler As String * 6 kk As String * 2 End Type 'Definicion del registro en el procedimiento dim MiRegistro as record dim Cant as integer, posicion as integer 'en el nombre del archivo no importa la extension Open "c:\Archivo.txt" For Random As #1 Len = Len(MiRegistro) Cant = Int(LOF(1) / Len(MiRegistro)) + 1 If Cant > 0 Then posicion = 1 Else MsgBox "Error, el archivo no contiene datos" End If For posicion = 1 To Cant Get #1, posicion, MiRegistro Next posicion Close #1 a la par que lees una linea de tu archivo de texto, lo insertas en una tabla temporal en tu BD, con una instruccion sql en ADO o en DAO. ojala te sirva, a mi me fue muy util y solucione un gran problema. SUERTE. | |
| Pregunta: | 25866 - IMP. DIRECTAMENTE SIN LA VENTANA DE CONFIGURACION DE IMP. |
| Autor: | Marco Chico |
| Cordial saludo, mi pregunta es:
Como puedo detectar mi impresora por medio de un programa en visual basic cuando windows mande un mensaje de que se va a imprimir un documento de un software cualquiera? ejemplo: estoy trabajando en word, y enseguida mando a imprimir un documento, yo quiero que cuando se vaya a imprimir el documento no me salga la ventana de configuraci贸n de la impresora, si no que de inmediato se imprima con las especificaciones que tiene mi programa hecho en visual basic. | |
| Respuesta: | Gustavo Ovalle |
| Si lo que vos queres hacer es imprimir desde un programa en VB lo que tenes que hacer es utilizar el objeto Printer, fijate en la ayuda del programa que te muestra bastante.
Otra opcion es utilizar las apis de windows. Espero que te sea de ayuda. Saludos | |
| Pregunta: | 25881 - ERROR OUT OF STACK SPACE- CON EL EMPAQUETADOR DE V. STUDIO |
| Autor: | Pablo Bonilla |
| Estoy trabajando con Visual Basic 6.0 y cuando quiero empaquetar mi proyecto para distribuirlo me presenta el siguiente mensaje de error
UNEXPECTED ERROR NUMBER 28 HAS OCURRED: OUT OF STACK SPACE. Si alguien pudiese ayudarme si lo agradecer铆a bastante. | |
| Respuesta: | alberto martin francisco |
| hola, yo he tenido muchos problemas con el empaquetador de Vstudio, ese en concreto no me ha dado, pero termine usando un empaquetador que me ha sorprendido lo bueno que es, se llama Setup2Go, lo puedes encontrar en internet, sino mandame un mail a [email protected] y te lo envio que lo tengo yo
un saludo | |
| Pregunta: | 25968 - SABER DESDE VISUAL, LA VERSI贸N DEL OFFICE (INGL茅S O ESPA帽OL) |
| Autor: | Laura Campos |
| Necesito encontrar una forma de conocer desde Visual Basic cu谩l es la versi贸n del Microsoft Office (si est谩 en ingl茅s o en espa帽ol) que est谩 instalada en una m谩quina. Existe alguna Api que me lo diga??? Agradezco cualquier ayuda al respecto. | |
| Respuesta: | Oscar C |
| en las referencias debes incluir las de Microsoft Word Object Libray (la versi贸n que uses, 97, 2000,...)
te defines una variable de tipo Application. Ej: Dim appword As Word.Application y unas de sus propiedades son la version, el idioma, etc | |
| Pregunta: | 26017 - ACUSE DE RECIBO CON NOTES |
| Autor: | Esther Moraleda |
| He realizado una aplicaci贸n de Visual Basic que env铆a correos electr贸nicos a trav茅s de Lotus Notes. Me gustar铆a saber si es posible utilizando los objetos de Notes, implementar el acuse de recibo en cada env铆o de un correo. Gracias | |
| Respuesta: | Esther Moraleda |
| Usa esta funcion
Private Sub SendMail(sServer As String, sDataBase As String, sSendTo As String, sSubject As String, sBody As String, sAttach As String) Dim Settion As Object Dim Data As Object Dim Doc As Object Dim RichText As Object Dim EmbedObject As Object Screen.MousePointer = vbHourglass Set Settion = CreateObject("Notes.NotesSession") Set Data = Settion.GetDatabase(sServer, sDataBase) Set Doc = Data.CreateDocument Doc.Form = "Memo" Doc.Subject = sSubject Set RichText = Doc.CreateRichTextItem("Body") Call RichText.AddNewLine(1) Call RichText.AppendText(sBody) Call RichText.AddNewLine(2) If sAttach <> "" Then Set EmbedObject = RichText.EmbedObject(1454, "", sAttach, "") End If '***********Para el acuse de recibo ****************************** Call Doc.ReplaceItemValue("ReturnReceipt", "1") 'Si no se quiere acuse de recibo poner valor "0" '******************************************************************** Doc.SendTo = sSendTo Doc.SaveMessageOnSend = True Call Doc.Send(True) Settion.Close Screen.MousePointer = vbDefault End Sub | |
| Pregunta: | 26135 - ERROR 3146 - ODBC: FALL脫 LA LLAMADA |
| Autor: | Alex Pacheco |
| Antes de todo, les saludo cordialmente.
Necesito ayuda: he instalado una aplicaci贸n realizada en Visual Basic 6.0, en un pc arbitrario. Esta aplicaci贸n utiliza conexi贸n a Oracle, mediante el sistema de creaci贸n de Workspace (creo que es OLEDB) Despu茅s de varios arreglos, hice que la aplicaci贸n se conectara a la base de datos, y cuando se requiere, la aplicaci贸n realiza lecturas de la base. El problema est谩 cuando se trata insertar datos, ante lo cual aparece el siguiente mensaje de error (el que se maneja mediante la instrucci贸n On Error Goto... y se despliega el err.number & err.description) 3146 ODBC: Fall贸 la llamada El n煤mero es el n煤mero del error, y el texto es la descripci贸n del mismo. Agradecido de antemano, les saluda ALEX. | |
| Respuesta: | Alejandro Vazquez |
| Saludos Alex Pacheco super buena tu aportaci贸n a mi me sirvi贸 mucho gracias | |
| Respuesta: | MARCO SANTIS AZUA |
| Amigo:
Lo mas probable es que el query que usas tenga problemas. Como estas usando una conexi贸n ODBC (es muy fiable, pero es un intermediario), me explico, si te conectaras directamente con la BD el error ser铆a, por ejemplo, demasiados parametros para esta tabla, o si el dato que estas ingresando es muy largo para un campo. En resumen, cada vez que tengas un error de conexi贸n o de Query te saldr谩 siempre el mismo error o mensaje porque te lo arroja ODBC. atte. | |
| Pregunta: | 26140 - MANIPULAR EL OBJETO MICROSOFT GRAPH 2000 |
| Autor: | Francisco Ayala |
| Tengo una plantilla de Word, con gr谩ficos insertados de Microsoft Graph 2000,
Necesito pasar los valores a la tabla de datos de los Graficos desde Visual Basic 6.00, y que se actualice el mismo cada vez que los mande si alguien me puede ayudar se lo agradecer茅. | |
| Respuesta: | MILTON GUERRERO RIOS |
| ESTE CODIGO TE PUEDE AYUDAR PARA Q LO PRUEBES REFERENCIA EN VISUAL EL OFFICE Y MICROSFT GRAPH
Private Sub Command1_Click() Dim MSGraph As Object, f As Long, c As Long Set MSGraph = CreateObject("MSGraph.Application") MSGraph.Visible = True With MSGraph.DataSheet .Cells.Clear .Cells(2, 1).Value = "Tornillos" .Cells(3, 1).Value = "Tuercas" .Cells(4, 1).Value = "Clavos" .Cells(1, 2).Value = "A帽o 2002" .Cells(1, 3).Value = "A帽o 2003" For f = 2 To 4 For c = 2 To 3 .Cells(f, c).Value = Rnd * 10000 Next c Next f End With MSGraph.Update 'MSGraph.Visible = True MsgBox "Pulse Aceptar para cerrar Microsoft Graph" MSGraph.Quit Set MSGraph = Nothing End Sub | |
| |< << 199 200 201 202 203 204 205 206 207 208 209 >> >| |