PREGUNTAS CONTESTADAS - Visual Basic

 Hay un total de 3030 Preguntas.<<  >> 

    Pregunta:  7661 - VB CONTRA ORACLE. A TRAVES DE UN FILE DSN
Autor:  Carmen Gallego Sandoval
Tengo una aplicación visual basic v5. que conecta con una base de datos oracle, utilizando los
drivers de oracle 8.
Cuando configuro el odbc (desde el administrador de odbc) en la parte del System DSN o desde el
User DSN, no hay problema, tengo conexion a la base de datos.
Pero cuando utilizo un File DSN, no le hace ni caso. (el error que me da desde Visual es el 3161 de falló la llamada).
En la ayuda de Visual, sobre el metodo de OPENDATABASE, pone como parametros de esa función
"el nombre de base de datos", "opciones", "solo lectura", "conexion"
En el parametro de conexión le especifico:
"ODBC;DATABASE=nombrebd;UID=usuario; PWD=contraseña;DSN=nombreficheroDSN"
Pero nada, no establece conexión.
Por otro lado lo pruebo a conectarme desde Access, para vincular tabla y si puede. Siendo ambos de Microsoft y utilizando, pienso yo la misma forma de conexión, con access si puedo pero con visual no.
  Respuesta:  César
Abrir conexión con Oracle usando DAO:

dsn="EL QUE SEA";
dqq="EL QUE SEA";
sql="ODBC;DSN=" & Trim(dsn) & ";DBQ=" & Trim(dbq) & ";UID=;PWD="

OpenDatabase(dsn, False, False, sql)

Con esto te pedirá el usuario y la clave.

    Pregunta:  7668 - CAMBIO DE COLOR EN LISTVIEW
Autor:  ash
Quisiera saber como se puede cambiar,si se puede, el color de la línea seleccionada en un listview.El componente coge los colores del sistema y me gustaría poner un color elegido por mi sin tener que cambiar la configuración de colores del sistema. A lo mejor se puede hacer con una API?. Muchas gracias.
  Respuesta:  Agustín Dávila Martín
Es muy sencillo:
en el evento Item_Click del Listview pones: Item.Forecolor=qbcolor(12) por ejemplo.

Si tienes el Listview en vista informe, puedes poner esto:

Dim i as integer,j as integer
i=Listview1.Listitems.count
Item.Forecolor=qbcolor(12)
For j=1 to i
item.Listsubitems(j).forecolor=qbcolor(12)
next j

    Pregunta:  7696 - FORMATO NúMERICO A CELDAS DE UNA GRILLA
Autor:  Cristian Alvares Tobar
Tengo un problema con los formatos dentro de una grilla, al asignarle un valor númerico con el comando format ej Format (campo.####,####,####), si el valor a asignar es un 0 la celda me queda en blanco y no con el numero desplegado "0" a causa del formato, tambien cuando son cifras decimales como 0,7384, se despliega en la celda como ,7384, sin el cero adelante, existira alguna forma de formatera la celda para que este problema se resuelva.....
  Respuesta:  Patricia
Tenes que poner
Format(Importe, "###,###,##0.0000000")
  Respuesta:  Ximena Tamame
Prueba con: ###.###.##0
. (punto separador de miles, no coma decimal he?)

    Pregunta:  7707 - USUARIOS DE UN ARCHIVO EN RED
Autor:  Juan Carlos Rodriguez Donayre
En una Red Windows NT con estaciones Windows 95 y 98.
Como Listo los Nombres de las Máquinas ó los Números IP de los Usuarios que están usando un archivo determinado.Por ejemplo un archivo dBase.

Gracias.
  Respuesta:  Jorge Eduardo
Utilizando el API de windows, primero tendrías que saber los nombres de máquina, a continuación el usuario y por último el recurso que está siendo utilizado, cualquier duda escríbeme

    Pregunta:  7728 - CREAR BASES DE DATOS ACCESS DESDE VB
Autor:  victor navia
caballeros necesito crear bases de datos de acces 97 desde vb, y se me esta complicando.

agradeseria mucho su ayuda.

gracias...
  Respuesta:  raul
El ejemplo que describe xavi esta bien pero omitio un detalle y eso hace fallar el programa.

lo que falto fue definir tabledef (definir la tabla como usuario o con el nombre que uno guste darle).

espero sirva de algo esta aportacion....
  Respuesta:  Xavi
Aqui te adjunto el codigo que utilizo para crear una base de datos.

Dim xx As TableDef
Dim x As Database
Dim xxx As Recordset

' creamos el archivo
Set x = CreateDatabase(Directorio & "\" & NombreArchivo.Text & ".mdb", dbLangSpanish)

Set x = OpenDatabase(Directorio & "\" & NombreArchivo.Text & ".mdb")

' Creamos la tabla de los programadores
Set xx = x.CreateTableDef("usuarios")

' Creamos los campos para la tabla
With xx
.Fields.Append .CreateField("Nombre", dbText, 30)
.Fields.Append .CreateField("Apellido", dbText, 30)
.Fields!Apellido.AllowZeroLength = True
.Fields.Append .CreateField("Mail", dbText, 50)
.Fields.Append .CreateField("Numero", dbText, 8)
.Fields.Append .CreateField("FechaAlta", dbDate, 6)
.Fields.Append .CreateField("Comentario", dbText, 50)
.Fields!Comentario.AllowZeroLength = True
.Fields.Append .CreateField("MensajeAlta", dbBoolean)

' Agregamos los campos a la nueva tabla
x.TableDefs.Append xx
Set xxx = x.OpenRecordset("usuarios")
x.Close

Saludos.

    Pregunta:  7730 - LICENCIA PARA REGISTRAR .OCX PARA VISUAL BASIC
Autor:  Fernando Díaz Sánchez
Buenas a Todos:

Hace unos dias, me pasaron el mswinsck.ocx, pero al tratar de vincuarlo en el Visual Basic, me dice que no tengo licencia ;(
Intente con : ReSvr32.exe nombre_del_archivo pero NADA, NADA
Alguien me puede decir como Registrarlo, y en general como puedo registrar cualquier Control .OCX que me pueda conseguir por ahi...

Gracias de Antemano
  Respuesta:  José Ariel Limandri
Al OCX ya lo registraste el problema es que no tenes licencia para utilizarlo para desarrollo, para lo cual deberias conseguir unos archivejos más que te solucionarian el problema (.oca, .lib, etc)
Suerte pirata ;-)

    Pregunta:  7734 - ACCEDER A LA LIBRETA DE DIRECCIONES
Autor:  Aurelio Magdaleno Chapartegui
Hola, soy Aure de Palencia, mi pregunta es: ¿Cómo puedo acceder desde Visual Basic a los datos de mi libreta de direcciones?, lo mas que consigo es que me la muestre, pero no puedo acceder a sus datos.
Gracias.
  Respuesta:  Juan Micciarelli
Aurelio,
Hace algunos meses desarrolé en Visual Basic una aplicación para manipular los datos de la libreta personal de direcciones, la misma trabaja con el objeto Outlook.application y es compatible con Office 2000.
El código es bastante rebuscado, pero funciona, si te interesa pasame tu mail y te envío ....

Saludos,

    Pregunta:  7738 - BLOQUEAR EL PROGRAMA MIENTRAS OTRO SE EJECUTA
Autor:  Edurne Sanchis
Hola, estoy haciendo un programa en VB que hace una llamada a una macro en Acces y querria parar la ejecucion del programa en VB hasta que s terminara la ejecucion de la macro. ¿Como lo hago?
Gracias
  Respuesta:  Juan Carlos Galvan
Hola. A ver si te entendi tu pregunta. Lo que quieres es bloquear el sistema de forma que el usuario no pueda mover ni accionar ningun boton o accesar a un menu. Eso es lo que deseas?, si es asi, la respuesta es facil. Si estas trabajando con una MDI o un formulario hijo o llamado con Show es sencillo. Bueno asi esta la cosa. Antes de que ejecutes la macro lo que tienes que hacer es bloquear la forma o el sistema en si con una simple linea que es

BOTON_CLIC ()

Forma.Enabled=False
despues ejecuta la macro
'Ejecutando macro
y finalmente vuelve a activar el sistema
froma.Enabled=true

END sub

Espero esta sea la respuesta que seabas. Hasta la vista

    Pregunta:  7759 - EXPORTAR DATOS DE ACCESS A EXCEL MEDIANTE CODIGO DE VISUAL 6
Autor:  FELIPE DEL CAMPO
NECESITO CREAR UNA PLANILLA DE EXCEL CON LOS DATOS QUE TENGO EN UNA BD ACCESS POR MEDIO DEL CODIGO DE VISUAL BASIC Y NO TENGO IDEA DE COMO HACERLO SI ALGUIEN ME PUEDE AYUDAR DE ANTEMANO UCHAS GRACIAS.
  Respuesta:  Ximena Tamame
Debes poner en tu trabajo una referencia a Excel, luego por codigo debes declarar los siguiente:
Dim <nombre1> As Excel.Application (aplicacion de excel)
Dim <nombre2> As Excel.Workbook (libro de excel)
Dim <nombre3> As Excel.Worksheet (hoja de excel)

luego setear las variables declaradas
Set <nombre1> = Excel.Application
Set <nombre2> = xlapp.Workbooks.Add
Set <nombre3> = prueba.Worksheets.Add

bueno, por supuesto debes abrir la tabla, posicionarte en el primer registro, y en un bucle escribir
while not tabla.eof
hoja1.celda(fila, columna1) = tabla!campo1
hoja1.celda(fila,columna2) = tabla1campo2
... etc
fila = fila + 1
tabla.moveNext
wend

(Guardar el archivo)
hoja1.SaveAs <nombre archivo>

(salir de excel)
xlapp.Quit

(liberar las referencias a los objetos utilizados)
Set xlapp = Nothing
Set prueba = Nothing
Set hoja1 = Nothing

Este ejemplo mueve campo a campo, registro a registro, es decir en excel va llenando celda a celda, ya que yo lo hice despues de realizar una consulta sql y no de una tabla directamente. No se si existe una forma mas sencilla de pasar directamente de la tabla de access a excel.

    Pregunta:  7767 - PROBLEMAS CONFIGURACION DE 256 COLORES
Autor:  Christian Alejandro Villarroel Urzua
Hola!

Tengo problemas con los pictures ya que mis programas tienen fondos de pantallas con fotos e imagenes que se ven bien en la configuracion normal de 32 y 16 bits pero al aplicarlos a la de 256 colores se deforman y son un desastre ¿ existe algun truco y/o comando para adaptar los colores segun la resolucion del pc de turno? de antemano gracias
  Respuesta:  José Ariel Limandri
Si creaste los graficos en MAS de 8 bits (256 colores) siempre los vas a ver mal en windows a 256 colores. Te recomiento para solucionar tu problema que edites tus graficos con un editor (como PaintShopPro por ejemplo) y bajes la cantidad de colores a 256 con un método de optimizacio de corte de color usando los colores de windows(esto hace que no se vean tan mal como cuando los transforma windows sin optimizacion). De paso tu aplicacion va a ocupar menos espacio en memoria.

Obviamente no se van a ver tan bien los graficos cuando los bajes a 256 colores pero siemre se van a ver igual y ocuparan menos espacio. Chau

|<  <<  94 95 96 97 98 99 100 101 102 103 104  >>  >|