Iniciar sesión
Crear cuenta
Crear cuentaCrear cuenta| Hay un total de 3030 Preguntas. | << >> |
| Pregunta: | 7800 - ABRIR BD ACCES (ESTA TIENE CLAVE),CON EL "CONTROL DATA". |
| Autor: | jaime cavada |
| Como es posible abrir una base de datos Acces con clave, usando en Control Data....
Muchas Gracias..... | |
| Respuesta: | Eduardo Jimenez Vargas |
| En el evento load de tu forma pudes poner el siguiente codigo:
Data1.DatabaseName = App.Path & "\MiMdb.mdb" Data1.Connect = ";pwd=MiPassWord" Data1.RecordSource = "TABLA" | |
| Pregunta: | 7805 - COORDENADAS A UN INPUTBOX |
| Autor: | cecilia andrea silva riveros |
| como se dan coordenadas a inputbox para poder centrarlo para que no salga mas arriba o tapa los frame responder a [email protected] o [email protected] | |
| Respuesta: | José Ariel Limandri |
| Cecilia Andrea:
Si te fijas atentamente en los paramentros del inputbox veras que el 4to paramentro es la posicion X y el 5to es la posicion Y (en twips) donde aparecera tu msgbox. | |
| Pregunta: | 7812 - SABER LA MAC ADDRESS DE UNA TARJETA DE RED |
| Autor: | Luis Belvis Moreno |
| ¿ Existe alguna función en VB para saber la MAC ADDRESS de una tarjeta de red ?
Mi intención es desarrollar un control de accesos físicos a una aplicación desarrollada en Visual Basic de forma que sólo puedan ejecutar la aplicación N máquinas en función de un número de licencias. Gracias. | |
| Respuesta: | felipe olivella |
| Hola
Para saber dirección MAC te envio este archivo que te puede servir. Visualizar el archivo | |
| Pregunta: | 7842 - ERROR 3447 AL INSTALAR UNA APLICACION DE VB5 |
| Autor: | Santiago Moreno Alba |
| Hola, he desarrollado una aplicación en vb5 -sencilla- que maneja una base de datos externa (dbase III). Creo los discos de instalación desde Kitsetup Wizard, pero a la hora de instalar la aplicación en otra máquina que no tiene instalado vb5, da el siguiente error:
"El archivo VBA de Jet (VBAJET.dll para versiones de 16 bits o VBAJET32.dll para versiones de 32 bits) no se inicializó cuando se le llamó. Intente volver a instalar la aplicación que generó el error. (Error 3447)" ¿Cómo podría solucionar este problema? Muchas gracias. | |
| Respuesta: | Ximena Tamame |
| Revisa la respuesta de la pregunta nro 2339 | |
| Pregunta: | 7895 - COMO PASAR UN PARAMETRO CONNECTION A UN CONTROL ACTIVEX |
| Autor: | Juan Eusebio Gonzalez Estevez |
| Estoy construyendo un control activeX con acceso a datos, lo he diseñado para que utilize una conexión general que tendra la aplicación que lo utilize, esta le pasara por parametro al control una referencia de dicha conección debe ser declarada como:
Public gcnMain As Connection ¿Si sabes como hacerlo ó conoces una alternativa que no sea crear la conneción dentro del control ActiveX te lo agradecere? Gracias de antemano y quedo esperando respuesta. | |
| Respuesta: | Jhonny Fonseca |
| si quieres tener una referencia a la conexion puedes crear una varia de tipo conexion e instancearla de la siguiente manera:
Public Function Conexion(cn As Connection) set ConexionInterna= cn End Function el problema con esto es que si la variable interna (ConexionInterna), es cerrada, la variable que se envio como parametro (cn) tambien se cerrara, para evitar esto hay que utilizar lo siguiente: Public Function Conexion(cn As Connection) set ConexionInterna= new cn End Function ahora, si no quieres usar una variable de conexion puedes darle al recordset o la command la referencia a la conexion de esta manera: Dim Rs As New Recordset Dim Command As New Command Public Function Abrir(cn As Connection) Rs.ActiveConnection = cn Command.ActiveConnection = cn End Function EN TODOS LOS CASOS NO SE HACE OTRA CONEXION, SE HACE UNA REFERENCIA PERO NO UNA NUEVA CONEXION A LA BASE DE DATOS Espero que te sirva | |
| Pregunta: | 7904 - MENUS CON MDICHILD |
| Autor: | Oisin Cabrera Vera |
| Como se hace para mostrar un formulario mdichild con menu, sin quitarle el menu al formulario MDI. Gracias. | |
| Respuesta: | Hormiga |
| Tenes que programar dos veces el mismo menu (en MDI y en el MDIChild) | |
| Pregunta: | 7911 - MANEJO DE PIXELES |
| Autor: | Vicente López Rojas |
| Quisiera saber como comparo dos mapas de bits , se que tengo que agrupar los bits por bytes y por pixeles, pero tengo muchos problemas al leer el archivo en forma binaria, desearia que alguien me asesorara en ese aspecto, tengo que hacer un barrido para determinar si dos archivos gráficos son iguales | |
| Respuesta: | JOSE ANTONIO |
| Hola Vicente. Prueba con la función API "BitBlt" y el parámetro SRCERASE, me explico:
la definición de la función BitBlt es la siguiente: Declare function BitBlt& Lib "gdi32"(ByVal hDestDC AS Long, ByBal x As Long, ByVal y As Long, byVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcdc As Long, byVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long). Esta función copia un mapa de bits desde un contexto de dispositivo a otro, o "COMPARA" dos mapas de bits. Sus parámetros son los siguientes: hDesDC -- es el contexto de dispositivo de destino. x, y -- Punto que describe la esquina superior Izqda. del rectángulo de destino. nWidth, nHeight -- Ancho y alto de la imagen destino. hSrcDC -- Contexto de dispositivo de origen xSrc, ySrc -- Esquina superior Izqda. de la imagen de origen. dwRop -- Operación a realizar (aquí va el parámetro SRCERASE). Espero que te sea de ayuda. Si quieres, me escribes y lo miramos más tranquílamente. Un Saludo. | |
| Pregunta: | 7951 - CRYSTAL REPORT Y DB CON PASSWORD |
| Autor: | Sergio Arroyo |
| Tengo un reporte, que usa una BD de Acces 97, la cual es de uso exclusivo y tiene contraseña, cuando ejecuto la sentencia de Reporte1.action=1, me muestra un msgbox pudiendome que ingresa la contraseña, ya probe usar Reporte1.password ="clave", y no funciona, seria posible que alguno me de una mano.
Gracias... | |
| Respuesta: | Héctor Niño R. |
| Debes indicar el password de sesion y el de base de datos separados por un chr 10:
CrystalReport1.Password = "sespswd" & Chr(10) & "dbpassword" si solo hay password de base de datos, entonces: CrystalReport1.Password = Chr(10) & "dbpassword" Esto me funciona en CR 8, no creo que haya problemas con CR 7. Solo te pido que me avises a mi correo si te funciono. | |
| Respuesta: | José Ariel Limandri |
| No se que version de Cyrstal tenes, pero proba esto:
cryRep.Connect = "UID=" & USUARIO & ";PWD=" & Password chau | |
| Pregunta: | 7960 - VISUAL BASIC 5.0 Y SQL 7.0 |
| Autor: | Juan Francisco Enriquez Piña |
| Me gustaría saber como conectarme a la base de datos SQL 7.0(servidor)desde mi aplicación Visual basic 5.0 (cliente), o alguna página o libro donde pueda encontrar esta información. | |
| Respuesta: | Irlanda Nuñez |
| Esta es una coneccion con RDO sin DSN
'gsUsuario_SQL = USUARIO DE SQL 'gsPassword_SQL = PASSWORD DEL USUARIO 'gsServidor = NOMBRE DEL SERVIDOR Function Abrirconnection() As Boolean On Error GoTo parr_error Abrirconnection = False Set db = rdoEnvironments(0).OpenConnection(dsname:="", Prompt:=rdDriverNoPrompt, _ Connect:="uid=" & gsUsuario_SQL & ";pwd=" & gsPassword_SQL _ & ";driver={sql server};rdoconnection=NOMBRE BASE DE DATOS;server=" & gsServidor & ";") db.QueryTimeout = 500 Abrirconnection = True Exit Function Error: Call siTypeError End parr_error: siTypeError End Function Sub siTypeError() Dim Mensaje As String MsgBox Mensaje & " " & Chr(vbKeyReturn) & "Se ha Producido el ERROR detallado a continuación", _ vbCritical, "Mensaje del Sistema" Debug.Print Err, Error For Each Errores In rdoErrors Debug.Print Errores.Description, Errores.Number Mensaje = "Descripcion : " & Errores.Description + " Codigo: " + Trim(Str(Errores.Number)) + Chr(vbKeyReturn) Next Errores MsgBox Mensaje, vbCritical, "Mensaje del Sistema" 'End End Sub | |
| Pregunta: | 7983 - ENEGRECER EL CURSOR DE UN CUADRO DE TEXTO |
| Autor: | Oscar Esteban Gilberto Fuentealba |
| Hola:
Quisiera saber si alguna persona sabe alguna forma de enegrecer el cursor que aparece en un cuadro de texto común, ya que el que existe, para mi resulta no muy visible, un ejemplo claro es el cursor que manejan los cuadro de texto de Visual Fox Pro. Por favor si alguien sabe de alguna función, método, o instrucción que me ayude, de antemano, gracias. | |
| Respuesta: | José Ariel Limandri |
| Probate este codigo que te va a gustar, ya que no solo "ennegrece el cursor" sino que podes cambiar el cursor por una imagen!!!
'En el form1 pone 2 textbox Grandes 'Pone un picturebox con una imagen y autozise=true Private Declare Function CreateCaret Lib "user32" (ByVal hwnd As Long, ByVal hBitmap As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long Private Declare Function ShowCaret Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function GetFocus Lib "user32" () As Long Sub Text1_GotFocus() h& = GetFocus&() b& = Picture1.Picture Call CreateCaret(h&, b&, 10, 10) X& = ShowCaret&(h&) End Sub Private Sub Text2_GotFocus() h& = GetFocus&() Call CreateCaret(h&, 0, 30, 30) X& = ShowCaret&(h&) End Sub | |
| |< << 95 96 97 98 99 100 101 102 103 104 105 >> >| |
