PREGUNTAS CONTESTADAS - Visual Basic

 Hay un total de 3030 Preguntas.<<  >> 

    Pregunta:  47537 - ERROR EN LA CONEXION A UNA BASE DE DATOS ACCESS
Autor:  Cristian Valdivia C.
Saludos a todos lo que leen esta pregunta =)
--------------------------------------------------------------
Sistema Operativo: Windows XP
Versión de VB: VB 6 Profesional

Estoy realizando unas consultas a una base de datos de Access 2000 cifrada con una password=ores23

me conecto de la siguiente manera:

'Declaro las variables
Dim Conexion As New ADODB.Connection
Dim Registro As New ADODB.Recordset
'Abro la conexión
Conexion.Provider = "Microsoft.Jet.OLEDB.4.0;Password=ores23"
Conexion.ConnectionString = App.Path & "\basedatos.mdb"
Conexion.Open

El problema sucede cuando quiero conectarme, me arroja el siguiente error:

Error '-214717843 (80040e4d)' en tiempo de ejecución:

No se puede iniciar la aplicación. Falta el archivo de información del grupo de trabajo o bien está abierto en modo exclusivo por otro usuario.

** no tengo ningun programa ejecutando la base de datos, lo cual descarta la opción del modo exlusivo

Me pueden ayudar?

Atte. Cristian
  Respuesta:  JHODY VILLAMARIN
MIRA LA CONEXION ES ASI:

Private sub form_load ()
Set con = New ADODB.Connection
Set Rcon = New ADODB.Recordset
ruta = App.Path & ""
conexion con base de datos
con.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & ruta & "bdesp.mdb"
conexion tabla
Rcon.Open "estudiantes", con, adOpenDynamic, adLockPessimistic, adTableDirect

nota: Las variables no las declare alli sino en un modulo por eso no aparecen declaradas

ok bye espero te sirva
  Respuesta:  Cristian Valdivia C.
Acabo de encontrar la solución a mi problema =)

Tienen que cambiar unos parametros en el Proveedor. Asi:

'Declaro las variables
Dim Conexion As New ADODB.Connection
Dim Registro As New ADODB.Recordset
'Abro la conexión
Conexion.Provider = "Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Jet OLEDB:Database Password=ores23"
Conexion.ConnectionString = App.Path & "\basedatos.mdb"
Conexion.Open

Porqué?

La contraseña no se la tienes que dar al usuario, sino a la base de datos. En la pestaña Todas elige la opción Jet OLEDB Database Password y escribes la contraseña.

Saludos.
Atte. Cristian

    Pregunta:  47560 - NO FUNCIONA EL DOCMD.TRANSFERDATABASE
Autor:  Idalia Solis Escobedo
estoy tratando de hacer un respaldo de una base de datos de access desde un programa de visual basic, cuando el prog inicia se conecta a la base de datos y en una opcion del menú debe hacerse un respaldo de la base de datos, le pido el nombre de la base de datos de respaldo y lo creo, pero al momento de usar el

docmd.transferdatabase acexport, "Microsoft Access", path, actable, "Consumible", "Consumible", false

path es una variable de tipo texto donde esta la ruta de la base de datos recien creada.

me sale el mesaje que dice:

Error '3045' en tiempo de ejecución: No se pudo usar 'c:\respaldosBD_SCEC\Respaldo1.mdb'; el archivo ya está en uso.

pero la base de datos nueva no esta abierta, creo ke esta msg se refiere a ke la base de datos del sistema, la que se conecta cuando se inicia el prog, pues ya esta en uso debido a eso.

pero ya lo intente cuando no se ha conectado y me salió el mismo error, ayudenme ke ya no tengo respuestas.
  Respuesta:  david regalado
usa el commado copy del vb6.0
copy origen,destino

    Pregunta:  47566 - TRABAJAR CON 2 TABLAS ACCESS EN VB6
Autor:  rodrigo Villalobos Reyes
Hola a todos, estoy realizando un pequeño programa en VB 6 y Access (no critiquen por favor), y el problema es que no se como trabajar con 2 tablas a la vez, como realizo una busqueda en ambas tablas teniendo mi RUT como clave indice, como le ingreso informacion y que se almacene en ambas tablas (los datos que correspondan).

Muchas gracias.
  Respuesta:  xavi
Hola Rodrigo, eso se realiza vinculando las tablas por un campo comun de cada una... Por ejemplo:
SELECT * FROM Tabla1 LEFT JOIN Tabla2 ON Tabla1.Ref=Tabla2.Ref WHERE ...

Esta consulta, vincula la Tabla1 con la Tabla2 por el campo Ref de las dos tablas.
Espero que te sirva

    Pregunta:  47642 - PROBLEMAS CON VISUAL BASIC6 OLEAUT.32.DLL Y WIN95
Autor:  Hernando Cajiao
Tengo un programa en visual basic que envia archivos a un servidor via modem pero este programa debo instalarlo en un PC con win95 y la libreria oleaut32.dll la actualizo y cuando voy a correr el programa me envia un error, que es necesario actualizar el sistema operativo para que esta libreria funcione que HAGO ayudemeeeee?
  Respuesta:  Raul Palavecino
El programa que vas a instalar en Win95 tenés que empaquetarlo con el asistente de empaquetado y distribución que trae visual pero en una computadora con Win95. Si lo haces desde Win98 o posterior, el asistente te va a agregar al paquete de instalación el archivo Oleaut32.dll de este sistema, lo que puede llevar a hacer que no te funcione nada en win95 despues de instalar tu programa.

    Pregunta:  47651 - RESPALDO DE TABLAS VISUAL BASIC
Autor:  salvador gomez contreras
Hola...

deseo respaldar una tabla en visual basic.
Respaldarla en un disquete como una copia para llevarlos de una base de datos de un sistema a la misma base de datos del mismo sistema pero en otra computadora.
  Respuesta:  csdk
Public Function BAKUBI()
Dim SEM2 As String
SEM = buscar_SemM
SEM2 = "SEM" & SEM
conex
RST_SECCION.Source = "backup database INCENTIVOS2 to disk='F:\incentivos\ " & SEM2 & " .txt'WITH NOINIT, NOSKIP, STATS = 10"
RST_SECCION.ActiveConnection = ADOCONN
RST_SECCION.Open
desconectar
End Function

    Pregunta:  47653 - PASAR PARáMETROS DE UNA CONSULTA EN VISUAL A CRYSTAL REPORTS
Autor:  Laura
Hola. Os planteo mi duda y espero que podais resolvermelo.
Lo que quiero es lo siguiente: tengo una Base de Datos en Access con sus consultas. A la vez, tengo un programa en Visual Basic enlazado a esa base de datos, con sus formularios y demás. Cuando realizo consultas en un formulario de visual, ejecuto las que habia creado en access. Una vez hecho esto, me presenta un informe en Crystal Reports. La cuestión, es que en una de esas consultas lo que quiero obtener es una serie de información que esté comprendida entre 2 fechas que yo introduzco como parámetros.
Quiero que esos parámetros me aparezcan en el informe, es decir, pasarlos de alguna forma que no se. Por ejemplo:
- Estoy en Visual, me pide las fechas e introduzco 01/01/06 y 31/01/06
- Doy a que haga el informe correspondiente y quiero que aparezca:
INFORME..............
ENTRE 01/01/06 Y 31/01/06
Esas 2 fechas serían los parámetros que yo he introducido. Como no los tengo como n campo en la tabla de Access ni en la consulta los guardo ni nada, ¿cómo hago para que aun así me aparezcan?
Siento si no me se explicar muy bien que digamos.
  Respuesta:  Javier Duran
No sé si te sirve aún...pero de todas maneras hago mi aporte a tu problema.

Report.ParameterFields.Item(1).ClearCurrentValueAndRange
Report.EnableParameterPrompting = False
Report.ParameterFields.Item(1).AddCurrentValue sDatosParametro

Saludos
  Respuesta:  Marlon Barrientos
No se si te entendi bien, pero si lo que queres es que esas fechas que usas como parametros te aparezcan en el reporte del Crystal, lo que tener que usar en lo siguiente:

CrystalReport1.ParameterFields(0) = "fechaini;" & fechaini & ";TRUE"
CrystalReport1.ParameterFields(1) = "fechafin;" & fechafin & ";TRUE"

Este código se pone en el visual en la parte del reporte, y en el crystal tener que crear dos parametros que se llamen fechaini y fecha fin y los colocas en el informe donde queras..
marlon.

    Pregunta:  47702 - COMO REPLICO UNA BD DE SQL SERVER
Autor:  juan perez
Necesito saber como puedo crear una base de datos, pero copiandola a partir de otra base de datos(usandola como plantilla). Y que lo pueda hacer con script sql)...lo necesito para usarlo desde visual 5.0 con DAO...me dieron una idea de que podia hacerlo con un procedimiento almacenado que tenga un parametro que seria el nombre de la base de datos que voy a crear...pero para esto necesito saber cual es el sql script para copiar la base de datos y que a la vez esta nueva base de datos creada se registre en el sql...les agradecería mucho que me pudieran ayudar...
  Respuesta:  david regalado
en sql hay los commandos backup y restores la forma de como usuarlos la encuantras el las ayudas del sql lo quer podrias hacer es crear tu backup y luego restaurarlo en otra base de datos vacia

    Pregunta:  47740 - EJECUTAR UN PROGRAMA CON COMPONENTES OCX SIN INSTALARLO
Autor:  Daniel
Hola a todos.
He desarrollado algunas aplicaciones en VB6 que utilizan componentes OCX como TABCTL32.ocx, MSCOMCTL.ocx y COMDLG32.ocx. Mi intencion es ejecutarlas en Windows 98/ME/2000/XP, pero me sale error de que no se encuentre alguno de los componentes. Intente copiando dichas OCX al directorio donde esta mi ejecutable, pero sin exito. Mi aplicacion solo funciona en ordenadores que tienen el VB6 instalado.

Lo que quiero lograr es que mi aplicacion se ejecute UTILIZANDO LOS CONTROLES OCX SIN TENER QUE INSTALARLA, pero no se como hacerlo.

Sabe alguien si es posible hacerlo? y como?

Les agradezco de antemano cualquier sugerencia.
  Respuesta:  Adriana Fachal
He solucionado ese problema "algunas veces" copiando los archivos .ocx en la carpeta windows/system32 y luego registrando cada uno de los ocx ... para registrarlos desde el menu de windows hago inicio ejecutar y escribo regsvr32 tabctl32.ocx

Espero que te sea util
  Respuesta:  Luis Bueno
Hola Daniel

Xavi, tiene razon, porq para empezar esos ocx que quieres copiar lamentablemente no funcionan solos en tonces tendrias que crear un instalador, pero con solo los OCX y/o controles a usar y estos generaran todos los archivos dependientes para que puedan funcionar sin problemas, y copiar todo en el System(32) segun sistema operativio los que genere el instalador...

Suerte...
  Respuesta:  xavi
Hola Daniel, para ello, genera el instalador de tu aplicación en tu maquina, te genera una carpeta con el nombre "Paquete" (por defecto), y dentro hay una carpeta denominada "Support". Si copias todos los ocx y dll's de esa carpeta a una carpeta de la maquina del cliente, juntamente con tu aplicación debería de funcionarte sin problema.
Lo he utilizado algunas veces y siempre me ha funcionado.

    Pregunta:  47764 - ESPACIOS INTERMEDIOS EN CADENA
Autor:  Carlos Fernandez
Tengo un TextBox donde deben introducirse nombre y apellido para que VB6 los busque en una base de datos, en una planilla Excel.
A veces, a algún operador de pulgar rápido, se le escapan dos espacios entre nombre y apellido, en vez de uno como debería ser.
Este espacio extra no es notado por el ojo, pero sí por el programa que , por supuesto no encuentra al candidato buscado.
¿Alguna sugerencia?
Gracias por su ayuda
  Respuesta:  Gerald Valdes
Prueba lo siguiente

'**********************************'
Sub Solo_Un_Espacio(ByVal cTexto As String, ByRef cTextoDestino As String)

Dim I As Double
Dim A As Double

cTextoDestino = ""
A = 0
For I = 1 To Len(cTexto)
If Mid(cTexto, I, 1) = " " And A = 0 Then
A = 1
cTextoDestino = cTextoDestino & Mid(cTexto, I, 1)
ElseIf Mid(cTexto, I, 1) = " " And A = 1 Then

Else
A = 0
cTextoDestino = cTextoDestino & Mid(cTexto, I, 1)
End If
Next I

End Sub
'**********************************'

cTexto Tiene el texto con los espacios de mas
cTextoDestino Devuelve el texto sin espacios de mas.

Saludos
  Respuesta:  Carlos Fernandez
Cecilia Colalongo, en el Foro de Visual Basic, me dio la solución.
Hay que usar la función Replace, y en mi caso reemplazar dos espacios seguidos por uno sólo.

    Pregunta:  47765 - CREAR FICHERO AVI
Autor:  Antonio
Estoy realizando un programa en el que realiza una serie de gráficos sobre un PictureBox que varían con el tiempo. ¿Cómo podría unirlas y almacenarlas en un único fichero fichero .AVI. Muchas gracias
  Respuesta:  Marceliano Crespo Bordonaba
Hola, hay un código excelente en Planet-source-code. En este enlace te lo podrás bajar, mejorará en velocidad y finura si usas la sugerencia de "archetech" sobre SetStretchBltmode (ver comentarios en la página)
http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=37281&lngWId=1
Un saludo.

|<  <<  264 265 266 267 268 269 270 271 272 273 274  >>  >|