PREGUNTAS CONTESTADAS - Visual Basic

 Hay un total de 3030 Preguntas.<<  >> 

    Pregunta:  32976 - MIGRAR ACCESS97 A ACCESS2000
Autor:  Gengis Leon Garcia
Saludos

Tengo el problema de access, en mi maquina esta instalado el access2000 de office y no se puede abrir la base de datos MDB por el formato, ¿COMO PUEDO pasar toda la informacion del 97 al 2000 y seguir trabajando con VB6 y cambios haria en VB?

gracias de antemando a la solucion
  Respuesta:  Fredy Ramirez
Si utilizas la tecnologia "ADO" para el acceso a base de datos, debes indicar el proveedor jet indicado con el cual vas a trabajar dependiendo de la version de access que estes utilizando.

Si la version es access 97 el proveedor debe ser Microsoft.Jet.OLEDB.3.51

Si la version es access 2000 el proveedor debe ser Microsoft.Jet.OLEDB.4.0

Espero que te haya servido de algo

    Pregunta:  33017 - USO DE VIDEOS MPG4 EN VB
Autor:  Judith Perez Mancilla
Hola! Alguien me podria ayudar a saber como puedo o con cual control puedo insertar un video mp4 a una forma en Visual Basic 6
  Respuesta:  Osvaldo Vega Nuñez
Si tienes Wndows, debes tener el media player, por lo tanto en el menú Proyecto buscar la opción Componentes y buscar al final Windows Media Player y agregarlo a la aplicaión, despues es cosa de agregar el objeto, y agregando objetos de DriveListBox, DirListBox y FileListBox puedes en la ejecución buscar el archivo a mostrar y listo.

    Pregunta:  33043 - WINSOCK EN VISUAL BASIC
Autor:  J Larco
Necesito crear una aplicacion cliente/servidor multipunto con protocolo TCPIP en VB y estoy utilizando el OCX winsock, pero no me funciona adequadamente cuando el numero de clientes es mayor a 10.
Será que no estoy utilizando bien este OCX; o este control no es el adecuado para mi aplicación?
Espero que me puedan ayudar, gracias.
  Respuesta:  Osvaldo Meneses
Yo he manejado hasta 25 conexiones con winsock y no se me ha presentado ningun problema, Te has asegurado de manejar el winsock que tienes en tu programa servidor como un array de winsocks?. Porque no me escribes y me detallas un poco más tu problema talvez te pueda ayudar.
Saludos...

    Pregunta:  33224 - RECURSOS COMPARTIDOS CON PASSWORD
Autor:  Marco A. zamudio
Hola a todos,

Tengo una base de datos en una pc, la cual está en red y la tengo en una carpeta compartida con un password, mi pregunta es, como puedo accesar (desde Vb) hacia la base de datos sin que me diga que no hay conexion con la base de datos, por la falta del password.

>Gracias!
  Respuesta:  Vladimir Tapia
yo tenia el mismo problema y lo resolvi creando una unidad de red y una ves que terminaba borraba la unidad de red!!! esto lo ice con el comando de net

hay te va un ejemplo de como acerlo!!!
net use z: dircompleto Password /user:Usuario

en visual basic ejecute el comando con la instuccion shell de la siquiente forma

Private Const INFINITE = &HFFFF
Private Const SYNCHRONIZE = &H100000
Private Declare Sub WaitForSingleObject Lib "kernel32.dll" _
(ByVal hHandle As Long, ByVal dwMilliseconds As Long)

Private Declare Function OpenProcess Lib "kernel32.dll" _
(ByVal dwDA As Long, ByVal bIH As Integer, ByVal dwPID As Long) As Long

Private Declare Sub CloseHandle Lib "kernel32.dll" (ByVal hObject As Long)

Dim process_id As Long
Dim process_handle As Long
process_id = Shell("c:\windows\system32\command.com /c net use z: " & strServer1 & " " & strPassword1 & " /user:" & strUsuario1)

esto que sigue es para que el programa no continue asta que se aya terminado de ejecutar la instruccion anterior

process_handle = OpenProcess(SYNCHRONIZE, 0, process_id)
If process_handle <> 0 Then
WaitForSingleObject process_handle, INFINITE
CloseHandle process_handle
End If

y para borrar la unidad de red es de la siguiente forma

process_id = Shell("c:\windows\system32\command.com /c net use z: /delete /yes")
process_handle = OpenProcess(SYNCHRONIZE, 0, process_id)
If process_handle <> 0 Then
WaitForSingleObject process_handle, INFINITE
CloseHandle process_handle
End If

espero que te sirva de algo!!!

    Pregunta:  33256 - INCLUIR UN MIDI EN UN FORMULARIO.
Autor:  Javier Vielba
Hola, me gustaría saber (si es posible) como se puede incluir un archivo midi en un formulario para ejecutarlo desde este y no desde el disco duro, o sea que al compilar el midi vaya incluido en el ejecutable.
  Respuesta:  Miguel Hernandez
Si es posible que en tu formulario se escuche un MIDI, lo que no es posible es que se compile junto con tu formulario, pero si aun te interesa que se oiga solamente tienes que mandar llamar el codec de windows media, ponerlo como oculto, y activarlo cuando tu formulario se ejecute, y listo, nos vemos

    Pregunta:  33278 - EXPORTACION DE ACTIVE REPORT A EXCEL
Autor:  Christian Vargas Jaramillo
Hola:
Quisiera saber si me pueden ayudar con el Codigo fuente y que referencias deberia agregar a un proyecto de Visual Basic, para realizar una exportacion de un reporte en Active Report a un Documento de Excel, de antemano Muchas Gracias
  Respuesta:  Juande Cortes
Mira, si tienes la version 2.0 de Active Reports tienes que agregar la siguiente referencia, "ActiveReports Excel Export Filters" y en tu reporte agregas un boton para exportarlo a excel con el siguiente codigo:

Para agregar el boton en tu reporte

Private Sub ActiveReport_ReportEnd()
Me.Toolbar.Tools.Add ("Exportar")
End Sub

Para exportar el reporte a Excel

Private Sub ActiveReport_ToolbarClick(ByVal tool As DDActiveReports.DDTool)
Dim ExpoExcel As ActiveReportsExcelExport.ARExportExcel
If tool.Caption = "Exportar" Then
ExpoExcel.FileName = "c:\Arcivo a excel.xls"
ExpoExcel.Export Reporte.Pages
End If
End Sub

Y es todo.

En el caso de que tengas una version anterior al 2 de Active reports, creo que lo unico que puedes hacer es exportar el recordset a excel, o la otra opcion (que es la que yo hice), baja la version demo del active reports 2 y puedes utilizar las referencias sin ningun problema en la version anterior.

Espero que te sirva.

Si tienes algun problema escribeme.

    Pregunta:  33279 - COMO EJECUTO UN PROGRAMA RPG DE AS400 DESDE VISUAL
Autor:  Perla Chavez Guerrero
Hola

No se si puedan ayudarme, quiero ejecutar un programa o funcion RPG (que trabaja con AS400) desde un programa en Visual 6.
Es posible hacer esto??? y como se hace???

Gracias por su ayuda.
  Respuesta:  Ric Sierra
Hace algun tiempo trabaje en AS/400 y encontre algunos ejemplos de como hacer que se ejecute una aplicacion del AS desde un programa en VB.
Tienes 2 opciones (o mas bien son las que yo conozco)
1. Tienes que tener instalado Client Acces de IBM (emulador de terminal) el cual tambien instala unos OCX y librerias para comunicarte con el AS400 y en un directorio Samples existen unos ejemplos de como conectarte y hacer lo que preguntas.

2. Puedes instalar SNA Client en tu PC (y SNA Server en tu server que servira de Gateway entre los ambientes Cliente y el AS400) tambien existen algunos ejemplos de como lanzar programas remotamente.

te sugiero la opcion 1

    Pregunta:  33292 - EL CONTROL MSHFLEXGRID TIENE LIMITACIONES EN EL Nº DE FILAS
Autor:  Gabriel Monreal
Hola,

Antes de describir el problema que tengo, os comento que se trata de una aplicación Cliente/Servidor desarrollada en VB 6, sobre una BD en SQL Server 2000.
Mi problema es el siguiente: tengo el típico formulario de consultas que a partir de una serie de criterios de búsqueda, me devuelve un conjunto de registros que cargo convenientemente en un Recordset ADO, el cual enlazo a un control MSHFlexGrid a través de su propiedad Datasource. Tras ello, se ejecuta un bucle que añade en la columna de la izquierda de cada fila del grid un checkbox para permitirle al usuario seleccionar una o varias filas. El problema surge cuando el recordset tiene más de 2048 registros, provocando un error (30009: Nº de fila no válido).
No dimensiono el nº de filas, ya que teóricamente al enlazar el recordset se hace, pero, en cualquier caso, he probado a añadir filas en el grid cuando es necesario. Lo que ocurre es que me añade las filas en el grid, pero, a partir del reg. 2049 (incluido) en adelante, no me presenta los datos en el grid.
¡¡De antemano, muchas gracias!!
  Respuesta:  Rafael Hernamperez Martin
Hola Gabriel,

Puede que el problema radique en la configuracion del SQLServer, no en la consulta.

Es posible configurar una paginacion de recordset por n registros o por x cantidad de memoria. Cuando se le pide datos, crea un buffer en memoria para alojar esa cantidad de registros, lo que conforma el Recordset. Cuando se navega a traves del recordset, al finalizar esa paginacion, se recupera la siguiente (o anterior, segun se mire) pagina de registros.

Un saludo

Rafael Hernamperez Martin

    Pregunta:  33353 - COMPROBAR SI EXISTE UNA TABLA EN ACCESS
Autor:  Paco Sanchez
¿Como puedo llegar a saber si una determinada tabla existe en access?

A partir de una conexión establecida con ADO y sin poder acceder a la tabla del sistema de Access MSysObjects.

Muchas gracias por anticipado y un saludo
  Respuesta:  Luis Bueno
Hola Paco

Te envio estas lineas estoy seguro te serviran

Dim ocn As New ADODB.Connection
Dim ors As New ADODB.Recordset

ocn.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=c:\softconper\basedatos\conper.mdb"

Set ors = ocn.OpenSchema(adSchemaTables)
Do While Not ors.EOF
If ors("TABLE_TYPE") = "TABLE" Then
MsgBox ors("TABLE_NAME").Value
End If
ors.MoveNext
Loop

ors.Close
ocn.Close
Set ors = Nothing
Set ocn = Nothing
  Respuesta:  Miguel Lucero
Paco

Una forma que puedes usar para saber si existe o no una tabla en una base de datos es realizando por ejemplo un select a dicha tabla y detectar el error que te devuelve ado al no encontrar la tabla
ej.

DIM rs As ADODB.Recorset
---
On error goto et_NoExisteTabla

strSQL = "SELECT TOP 1 * FROM "
rs = dbCon.Exec( strSQL )
' Si llega acá es porque la tabla existe
....
Exit sub
et_NoExisteTabla
' Si llega acá puede ser porque no existe tabla
' ver datos que devuelve el objeto Err
---

Otra forma es ver la lista de objetos de la base de datos para saber que tablas, consultas etc. existe pero creo que debes tener los permisos necesarios.

Espero que te sirva

    Pregunta:  33358 - COMO CREAR UN TEXTBOX EN TIEMPO DE EJECUCION
Autor:  jodor metal
COMO CREAR UN TEXTBOX EN TIEMPO DE EJECUCION?
O UN OBJETO OCX, SIN QUE LO HUBIERA INTRODUCIDO EN EL FORMULARIO PREVIAMENTE EN TIEMPO DE DISEÑO.
  Respuesta:  SuNcO
Para hacer eso mi chavo se utiliza la propiedad Index

Pon un TextBox con Index 0 y pon el siguiente codigo en un boton...

Load Text1(numero)
Text1(numero).Visible = True
Text1(numero).Top = 100
Text1(numero).Left = 100

El "numero" puede ir indicado por un contador del Index o algo asi. Y las posiciones pues las pones donde gustes

|<  <<  218 219 220 221 222 223 224 225 226 227 228  >>  >|