PREGUNTAS CONTESTADAS - Visual Basic

 Hay un total de 3030 Preguntas.<<  >> 

    Pregunta:  1092 - DHTML y BASES DE DATOS EN EL WEB
Autor:  Manuel Todaro
Tengo una aplicación DHTML que desarrollé en VB6 y necesito leer una BD .mdb, pero no logro hacerlo. La BD está en el mismo lugar
  Respuesta:  Josep Mª Rubió Lorenzo
Para abrir una base de datos en Visual Basic, debes escribir:

Dim db as database
Set db= Currentdb (si se encuentra en el mismo directorio)
Para leer de la base de datos necesitas un recordset.

Dim r as recordset
set r=db.openrecordset ("Select * from .....")
Para + información mira en la ayuda del Access en el apartado de recordset.

    Pregunta:  1093 - CARGAR DIFERENTES FORMS EN TIEMPO DE EJECUCION
Autor:  Marco Ruiz Hormazabal
Hola:
Llevo un tiempo tratando de ejecutar un programa en Visual Basic 6.0, que es una especie de menu, al seleccionar una opción, rescato en una variable el número de la opcion: ej 001,002,003,etc. y luego esa variable la concateno con el nombre generico de los formularios que es FrmBarras. Esto me deviera quedar como por ej: FrmBarras001 ó FrmBarras002 ó FrmBarras003, dependiendo la opción seleccionada.
Bueno la cuestión es que he definido variables del tipo Form, también he utilizado la función Controls(Objeto). Pero ninguna me ha dado resultado. Estas funciones ya las he utilizado anteriormente, pero no me funcionan cuando trato de cargar un nombre de un formulario que sea dinámico.
Por su ayuda, muchas gracias. Yo trabajo con Visual Basic 6.0 y SQL Server 7.0.

Gracias.

  Respuesta:  Gerardo A. Mendoza
Por la largada de la respuesta, esta en el archivo resp1093.txt

    Pregunta:  1094 - COMO CONSTRUIR UN SITIO WEB USANDO VISUAL BASIC
Autor:  Claudia Villatoro
Hola !
Me gustaría que alguien me diera una luz, sobre como comenzar a construir una aplicacion web usando vb 6, por ejemplo hacer una consulta a una base de datos de sql server... muchas gracias de antemano !
  Respuesta:  Martin Morales
Hola!
Tambíen se pueden hacer páginas mediante una aplicacion de tipo DHTML, la cual es mas facil de hacer, ya que tienes todas las herramientas a la mano del ambiente de VBasic.

Lo óptimo es mediante ASP, pero es mas talacha, pero funciona mejor ya que todo se ejecuta en el lado del servidor.

Si necesitas más inf. escribeme para poder ayudarte.

Saludos desde Hermosillo, Sonora, México.
  Respuesta:  LM Caballero
Lo que estas queriendo hacer se llama programacion ASP(Active Server Pages) y se hace usando Visual Script. El Visual Script es una variante de VB donde todas las variables son de tipo variant y algunas funciones no son soportadas, pero en general es muy similar.

Para obtener data de una BD y mostrarla requieres una conexion de BD. Los mejores resultados en performance se obtienen con ADO, que viene con VB 6.0 y se pueden usar tanto en SQL CERDER, perdon, SERVER :-) como con ACCESS.

Si necesitas algun ejemplo escribeme y te alcanzo uno. Puedes encontrar manuales sobre ASP en esta misma web. Espero que esta informacion te sea util. Y espero tambien que nos avises cuando este tu sitio para visitarlo.

    Pregunta:  1095 - DETECTAR LOS PUERTOS DE COMUNICACION CON LAS API´S
Autor:  Javier Gil Serrano
En primer lugar estoy convencido de que, ya sea en el registro del sistema, o en alguna otra parte debe existir esa información, que por ejemplo te aparece desde Windows en el administrador de dispositivos, y casi me jugaría una mano a que existe en el API de Windows alguna función que hace exactamente lo que yo quiero. Decirme en un "PC" determinado, cuantos puertos "Com" tiene y si están siendo ya utilizados por algún dispositivo, módem, ratón, etc..

De antemano MUCHAS GRACIAS.

  Respuesta:  Foxito
Si buscas apis, te recomiendo investigues la sgte dirección: http://www.vbapi.com/ref/funca.html

    Pregunta:  1117 - CAPTURAR CELDAS DE EXCEL
Autor:  CarlitosP
Como podría yo hacer que VB5 me tome el contenido de una celda específica de una hoja de cálculo Excel 97 y mostrarlo en una Textbox por ejemplo,pero de forma"interna" (no copy-paste).Y viceversa, es decir, un valor en un control de VB5 pasarlo a una celda o rango específicos en Excel. Gracias por su colaboración.
  Respuesta:  Freddy Espinoza
Private Sub Proceso_ReadExcel()
Dim vbLine As Integer, X As Integer, vbOrden As Integer
Dim vbSigue As Boolean
Dim vbRow As Integer
Set vbAplExc = New Excel.Application
Frame3.Caption = "Exportando datos desde Archivo Excel...."
cmdControl1(2).Enabled = False
vbAplExc.Application.Visible = False
vbAplExc.Workbooks.Open (cmAbre.FileName)
If Val(vbAplExc.Range("B4").Value) <= 0 Then
MsgBox "El formato del archivo " & cmAbre.FileName & ", es inválido", vbCritical
Exit Sub
End If
prg.Min = 0
prg.Max = vbAplExc.Range("B4").Value
ReDim vbOrdenes(vbAplExc.Range("B4").Value)
vbRow = 6 + vbAplExc.Range("B4").Value
X = 1
With vbAplExc
For vbLine = 7 To vbRow
vbOrdenes(X).vbCodigo = .Cells(vbLine, 1).Value
vbOrdenes(X).vbCantidad = .Cells(vbLine, 2).Value
vbOrdenes(X).vbFecha = Format(.Cells(vbLine, 3).Value, "dd-mm-yyyy")
vbOrdenes(X).VbUmedida = Trim(.Cells(vbLine, 4).Value)
vbOrdenes(X).vbCentro = Trim(.Cells(vbLine, 5).Value)
X = X + 1
Next
vbFecha = Format(.Cells(3, 2).Value, "dd-mm-yyyy")
End With
Consul = "select ord_num from orden_trabajo order by ord_num desc"
Set Rst1 = EterBase.OpenRecordset(Consul, dbOpenDynaset)
If (Rst1.EOF And Rst1.BOF) Then
vbOrden = 1
Else
vbOrden = Rst1!ord_num
End If
Rst1.Close
prg.Visible = True
For X = 1 To vbAplExc.Range("B4").Val
  Respuesta:  Rasta X
Sub Form_Load( )

workbooks.Open ("c:\prueba.xls")
workbooks("prueba.xls").Activate
workbooks("prueba.xls").Sheets("Hoja1").Activate

´colocar un textbox en el form
textbox1.text = Cells(1, 1)

End Sub
  Respuesta:  Leonardo Augusto Cepeda Cuervo
Lo priemro que tienes que hacer, es abrir el archivo de excel, esto lo logras mediante la siguiente instruccion:

Workbooks.Open "C:users.xls"

luego debes activar el documento para poder utilizar propiedades de el objeto Cells. Esto se hace mediante la siguiente instruccion:

Workbooks("users.xls").Activate

ahora si desea activar un libro específico de ese archivo la instruccion es:

Workbooks("users.xls").Workshee("libro1").Activate

ahora ya te puedes tener acceso a las celdas de el archivo en excel. Esto se hace mediante la propiedad Cells. De la siguiente manera.

valorcelda = Cells(fila,columna).value
o visceversa.

Espero haberte podido ayudar.

Atentamente

Leonardo Cepeda
Ing.Sistemas
Uniandes - Bogota

    Pregunta:  1120 - LLAMAR UN ARCHIVO DE WORD DESDE VB
Autor:  Néstor Figueroa
Como puede ejecutar Word desde Visual pero llamando a un archivo que anteriormente fue generado, esto es para poder justificar en Word, ya que el Visual no me da esa herramienta, y la otra consulta es como puedo imprimir un campo memo en Visual 5.0.

Desde ya muchas gracias

  Respuesta:  Pablo Andrade Ramirez
Hola.
Para solucionar el proble ma de la ejecución del Word junto con un archivo deberas hacer lo siguiente.

DEclarar un avariable de tipo duible y dos de tipo string ej.

Dim i as double, cad as string, cad_2 as string

´Despues
cad="C:\ruta\Winword.exe"
cad_2="C:\ruta del archivo *.doc"
i=shell(cad +" " +cad_2 ,3)

y es todo, para tu otra duda no tengo respuesta
cuentame para ver como te va
  Respuesta:  Eduardo Mireles
Si deseas llamar a una aplicación relacionada a un archivo y no le temes a la API, puedes usar el siguiente código.

En 16 bits
Declare Function ShellExecute Lib "shell.dll" (ByVal hwnd As Integer, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Integer) As Integer

En 32 bits
Declare Function ShellExecute Lib "shell32.dll" (ByVal hwnd As Integer, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Lonf) As Long

Dim X as Long

X = ShellExecute(Me.hWnd, "Open", "PathDeTuDocumento\documento.doc", "", "c:\", 1)

Lo puedes usar para enviar un correo
ShellExecute(Me.hWnd, "Open", "mailto:[email protected]", "", "c:\", 1)

O abrir una página Web
ShellExecute(Me.hWnd, "Open", "http://www.pub.virtual.8m.com", "", "c:\", 1)

O cualquier otro archivo
ShellExecute(Me.hWnd, "Open", "c:\windows\mibmp.bmp", "", "c:\windows", 1)

A esta función tu le proporcianarás un archivo y ella se encargará de buscar y ejecutar la aplicación relacionada. Es casi mágica.

Para ejecutar la aplicación de alguna forma deseada puedes usar los siguientes valores de nShowCmd:

Const SW_HIDE As Long = 0
Const SW_SHOWNORMAL As Long = 1
Const SW_SHOWMINIMIZED As Long = 2
Const SW_SHOWMAXIMIZED As Long = 3
Const SW_SHOWNOACTIVATE As Long = 4
Const SW_SHOW As Long = 5
Const SW_MINIMIZE As Long = 6
Const SW_SHOWMINNOACTIVE As Long = 7
Const SW_SHOWNA As Long = 8
Const SW_RESTORE As Long = 9
Const SW_SHOWDEFAULT As Long = 10

Espero que esto te sirva.

  Respuesta:  Alex
envio el codigo de una libreria que haciendole una referencia a la libreria del Word 8 (Word (8Object library, o algo asín) se hacen varias cositas.
Esta librería me la mando un colega que también la habia mandado a la lista de Vb que recoge en su página Jose Rubí (www.arrakis.es/~jrubi).
Libreria Word_dll

    Pregunta:  1138 - CONTROL RICH TEXT BOX
Autor:  J RC
Mi problema es que en una aplicación trato de cargar archivos RTF en un Rich TExt Box, pero los gráficos contenidos en este archivo no consigo verlos (las típicas flechas o figuras para hacer esquemas en Word). Me gustaría que si alguien sabe solucionar este problema, me lo comunique. Muchas gracias de antemano.
  Respuesta:  CESAR NAVA SOTO
El control Rich Text Box no soporta graficos de Word, es por esto que al visualizar los archivos RTF creados con Word, no se muestren los graficos.

La forma en que yo solucione esto es llamando al programa WordView, y abriendo con este el archivo en formato de Word (*.doc).

La sintaxis por ejemplo seria:

Shell("C:\WORDVIEW\WORDVIEW.EXE"+" "+"Nombrearchivo.doc", 1)

    Pregunta:  1143 - COLOR DEL FONT DE UN COMPONENTE COMMAND
Autor:  Victor Morales Gabriel
¿ Como podria cambiar el color del font en un componente command en VB 6.0?
  Respuesta:  Luis Miguel Caballero
Si aún quieres eso, avísame y te paso un OCX command en el que puedas modificar la propiedad Font.
  Respuesta:  Luis Vazquez Ayerra
Mientras miro con calma como se puede hacer te cuento una pequeña chapucilla que a veces hago.

1.- Creas el command en el formulario
2.- Le metes dentro un Textbox con las propiedades:
. Backcolor : el mismo que el command
. BorderStyle=None
. Appearence=Flat (plana)
. Forecolor=color que tu quieras de la fuente
. Text=Nombre que le pongas al command

3.-Ajustas el Textbox dentro del Command
4.- Llamas al Textbox y al Command con el mismo nombre en la propiedad name
5.- Escribes el código en el evento Clik de ambos por si al pulsar sobre el Command lo hicieras sobre el Textbox.

No es muy Tecnico, pero funciona que es de lo que se trata.

Luis.

    Pregunta:  1145 - INTERFACE DOS
Autor:  Marger Arteaga
Necesito Saber como puedo hacer para ejecutar una aplicacion MS-DOS y Capturar la respuesta de este en Visual Basic, Por Ejemplo: Si Utilizo PkZip, Interceptar la solicitud de un nuevo Disco, presionar Enter y pasar esta instruccion al programa DOs.. Todo esto sin visualizar la Ventana Ms-Dos. Utilizando API se puede Detener la Ejecución de la Aplicación Visual hasta que la aplicación DOS Termine, pero lo que desea es capturar la respuesta del DOS sin visualizar, esta Ventana..

Gracias
Nicaragua
  Respuesta:  Joan Miquel Espada Sàbat
Yo también tuve este problema, y te voy e explicar como lo resolvi desde Visual Basic. Primero corres el programa en VB, este con la función:
shell("command.com /c miprog.exe > salida.txt",0)
esta función devuelve un tipo variant; tu recoges este valor y debes evaular el resultado. El Shell() se utiliza para llamar cualquier archivo *.exe el ejemplo más tipico es a=shell("c:\windows\calc.exe",1), donde el último valor determina en que tipo de ventana aparecera, en tu caso debe ser 0, el /c del command.com se utiliza para que cuando llamas a la consolo no te aparezca por pantalla, así el proceso parecerá más limpio. Una vez ejecutada la función debes evuluar el resultado, si te complace solo tendrás que recoger el contenido del fichero *.txt, ya que lo que haces es un direccionamiento del resultado del fichero. Prueba primero a redireccionar en la línea de comandos, piensa que si el ejecutable pide una tecla no funcionara desde VB, el ejecutable bajo DOS solo puede recibir argumentos desde la línea de comandos!!!
Espero que te funcione. Si tienes problemas avisame, un cordial saludo, Joan M. Espada

    Pregunta:  1146 - COMO USAR EL CONTROLADOR ODBC DE WINDOWS CON BD ACCESS
Autor:  Adrian Lozano
Hola a todos. Mi problema es que hice un programa para mi trabajo, pero no tome en cuenta que era para red. Alguien me menciono que usara odbc para direccionar las bd (access).Espero que alguien me pudiera ampliar mas este tema de odbc o otra forma de ponerlo en red.
  Respuesta:  Xavi
Te comento los pasos...
Colocas la base de datos en el servidor, u ordenador de la red donde almacenes los datos.

Para hacerlo de forma automatica desde tu programa, estas son las instrucciones para crear el odbc de tu base de datos:
´crea el acceso odbc a la base de datos
Dim Attrib As String
Dim Driver As String
Attrib = "DBQ=" & DireccionBaseDatos\NombreBaseDatos

Driver = "Microsoft Access Driver (*.mdb)"

DBEngine.RegisterDatabase "Nombre", Driver, True, Attrib
Donde "DireccionBaseDatos\NombreBaseDatos", es la ubicacion y nombre de la base de datos en la red.
Puede poner tambien la dirección en forma \\red\servidor\
Donde "Nombre", es el nombre que utilizaras para abrir la base de datos.

Recuerda, que para trabajar con bases de datos atraves de odbc, solo se puede hacer con instrucciones SQL.

Espero que te sirva.

|<  <<  18 19 20 21 22 23 24 25 26 27 28  >>  >|