PREGUNTAS CONTESTADAS - Visual Basic

 Hay un total de 3030 Preguntas.<<  >> 

    Pregunta:  43896 - ACTIVE DIRECTORY DESDE VB
Autor:  Ismael Alvarez
Necesito Traerme los Usuarios de Active directory desde vb
y saber si se puede actualizar desde vb los usuarios
  Respuesta:  noe
Ejemplo: Utilizar ADO para efectuar consultas en Active Directory

Dim con As New Connection, rs As New Recordset
Dim Com As New Command
'Abrir un objeto Connection
con.Provider = "ADsDSOObject"
con.Open "Active Directory Provider"
'Crear un objeto de comando en esta conexión
Set Com.ActiveConnection = con
Com.CommandText = "select name from 'LDAP://DC=Arcadia,DC=COM' where objectClass='*' ORDER BY NAME"
'-----------------------------------------
'Establecer las preferencias para la búsqueda
'--------------------------------------
Com.Properties("Page Size") = 1000
Com.Properties("Timeout") = 30 'segundos
Com.Properties("searchscope") = ADS_SCOPE_SUBTREE
'--------------------------------------------
'Ejecutar la consulta
'--------------------------------------------
Set rs = Com.Execute
'--------------------------------------
' Desplazarse por el conjunto de registros
'----------------------------------------
While Not rs.EOF
Debug.Print rs.Fields("Name").Value
rs.MoveNext
Wend

    Pregunta:  43902 - BUSCAR RUNDLL32.EXE
Autor:  ricardo martinex
Hola, estoy desarrollando una aplicacion, y uso el archivo rundll32.exe para apagar mi PC, pero ya esta hecho, en mi PC funciona, porque es obvio que sé en que carpeta, esta el archivo, habra alguna manera, de agregar codigo, para que cuando esta aplicacion se ejecute en otras PC´s. antes de que ejectule este archivo ".exe" lo busque en las carpetas, y asi establecer el ruta, o path correcta. gracias por su ayuda.
  Respuesta:  Roger Alvarez
Agrega al proyecto una referencia a Microsoft Scripting Runtime, de esta forma podrás tener accesso al objeto FileSystemObject. Este objeto contiene un método que se llama GetSpecialFolder, el cual te debuelve el nombre de la carpeta de sistema System de Windows. Si estas ejecutando Windows XP o 2000, la carpeta de sistema que contiene el RunDll32.exe es System32.

Creo que lo que quieres es hacer travesura. Te agradecería que me escribieras y me contaras qué programas has hecho, para tambien aprender de tu creatividad.

    Pregunta:  43927 - FLOAT A HEXADECIMAL
Autor:  kitaro
hola a todos...

estoy trabajando con una pantalla de operador, la cual almacena en memoria información con distintos tipos de datos, al leer la información del tipo float me entrega un numero en hexadecimal que no se como interpretarlo,

por ej.

10,0 (en la pantalla) = 4120(hex)

alguien sabe como transformar un numero float en hexadecimal y v/v???

salu2
  Respuesta:  azrinaran .
Pues el problema esta en saber que tipo de numero float es. Me explico. Necesitas saber con que formato de coma flotante trabaja tu maquina para poder convertirlo, no te sirve un "metodo universal" porque cada forma de coma flotante da un resultado completamente distinto. Se que mi respuesta no te ayuda, pero es que sin ese dato dudo que nadie te pueda dar una respuesta buena.

    Pregunta:  43957 - PLACA DE SONIDO CON VB
Autor:  sebastian marchesini
hola masters:
necesito ayuda,quiero utilizar Visual Basic 6 para poder realizar una aplicacion que utilize la placa de sonido onboard y emitir sonidos por ella.Gracias
  Respuesta:  Ricardo Faggella
Puedes usar la rutina de Api, un objeto Ole o el control multimedia que te brinda una gama amplia de posibilidades para reproducir diferentes formatos de sonido y videos.

Si te interesa, te puedo enviar algún código

Saludos: ROF

    Pregunta:  43963 - OUT OF DATE
Autor:  Fernando Abuin
Tuve que desinstalar y luego instalar nuevamente el VB6 , cuando quise armar un paquete de distribucion, despues de ese proceso me aparece un error en unos componentes de VB6 (commongdialodbox,commomctl, etc) que las dependencias estan fuera de fecha(out of date) si alquien sabe como solucionar esto agradeceria muchisimo, pues cuando quise instalar el sitema en una pc, el setup me decia que existian componentes out of date y me pedia que reinicie la pc , pero esto lo repetia cada vez que iniciaba la instalacion.
Mucha gracias
  Respuesta:  Rafael Hernán Yzarra Morales
Ante todo, buenos días.

Te sugiero que resetees el Hard Disk en donde alojaste el programa VB 6.0; existen dos poderosas razones para realizarlo:

1era: Muchas librerías .dll no se eliminan al borrar un programa previamente instalado: esto implica que algunas herramientas y/u objetos no son desechados totalmente de la carpeta X:\Windows\System (o en la carpeta del sistema operativo con el cual estés trabajando); por lo tanto, el programa perderá efectividad en lo que respecta a sus elementos disponibles.

2ndo: Actualmente, al reinstalar el programa VB 6.0, éste te detecta aquellos archivos que deben ser actualizados; es más, te muestra un cuadro de mensaje en donde tienes la posibilidad de actualizarlo. Al parecer, tu S.O. presenta problemas que escapan del alcance del sistema para actualizar archivos OUT OF DATE.

Espero que te sea de utilidad esta información.

    Pregunta:  43964 - CÓMO REPRODUCIR UN SONIDO MP3
Autor:  Paco
Me gustaría saver cómo reproducir un sonico Mp3 utilizando Dlls de Windows
  Respuesta:  SuNcO
Aqui hay un codigo, pero no lo eh revisado :

http://www.vb-helper.com/howto_play_mp3.html
Aqui hay una copia del mismo.

    Pregunta:  43974 - CONECTAR VISUAL BASIC 6.0 CON LAS BASES DE DATOS EN FOXPRO
Autor:  VICTOR HUGO PEREZ APONTE
HE TRATADO DE MUCHAS MANERAS LOGRAR MANEJAR LA BASES DE DATOS DE FOXPRO CON VISUAL BASIC, PERO NO HE PODIDO ENCONTRAR LA FORMA, POR FAVOR SI ALGUIEN ME PUDIERA DECIR SI EN DEFINITIVA, SI ESTO ES POSIBLE ¿SI Ó NO?. Y SI ES POSIBLE POR FAVOR INDIQUENME ¿COMO?
  Respuesta:  joal Diaz
Que tal Victor hugo.

En cuanto a tu pregunta, la respues es si, es decir puedes conectar bases de foxpro con visual basic. para ello requiere lo siguiente.

1.- Create una conexion Odbc, es decir desde panel de control selecciona ODBC.
2.- Debes crear un Dns de Usuario
3.- Alli le indicas la base de datos que quieres abrir, y si no tiene base de datos sino tablas, entonces indicale el nombre de la carpeta.aDEMAS DE TODO ESTO INDICALE UN NOMBRE.
4.- Una vez realizado todo esto puedes conectar la tabla con visual Basic, usando un control Ado y cuando lo configures asignale un proveedor ODBC Y SELECCIONA EL QUE HAYAS CREADO POR LOS PASOS 123

    Pregunta:  44009 - DATOS TIPO "MONEDA" EN VB6
Autor:  Emilio Dubois
Tengo un problema, estoy haciendo un sistema en visual basic, que consulta una base de datos hecha en Access, lo que pasa es que no se como trabajar con los campos "moneda", ya que segun lo que estuve probando, visual usa el "." para los lugares decimales y la base de datos la ",". La funcion val() para variar, tampoco me tomo los numeros con "," y no tuve exito usando el dataformat del textbox a cargar. La cosa es que dentro del programa tengo que sumar y trabajar con los datos traidos, por lo que si o si necesito convertir la "," en ".". tambien pense usar la funcion "split" y volver a encadenar los segmentos con el punto en el medio, pero me parecio una solucion agarrada de los pelos, quisiera algo un poco mas eficiente. Cualquier ayuda, queda infinitamente agradecida.
  Respuesta:  sergio ureta
prueba a cambiar el tipo de datos en la base de datos, para q no te de problemas con la , y el . q dependede la configuracion de sistema... cambia los datos de moneda a numerico simple con formato euro y el numero de decimales q kieras q me imagino q 2, espero q te funcione xao
  Respuesta:  Carlos Raúl Sagastume Estrada
Mira lo que puedes hacer en ese campo de la moneda defínelo como texto así te puede leer el punto decimal y a la hora de extraer los datos utiliza el siguiente instrucción:

Dim moneda as single

(realizas las respectivas instrucciones)

moneda = format(total, "Currency")

De esta forma te detecta automáticamente el formato de la moneda como esté configurada en tu pc.

Atentamente Carlos Sagastume

    Pregunta:  44080 - ¿CÓMO PUEDO DETECTAR LAS UNIDADES DE CD/DVD?
Autor:  Paco
Hola

Me gustaría detectar las unidades de CD o de DVD, es decir las API'S

Gracias...
  Respuesta:  SuNcO
Pues.. como no tengo unidad de Dvd.. al menos aqu iesta para detectar el CD.. supongo con algunas modificaciones se puede detectar el del DVD

Se ocupa un CommandButton y un TextBox

Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

Private Sub Command1_Click()
Text1.Text = FindCDROM
End Sub
Function FindCDROM() As String
Dim Drive As Integer
Const DRIVE_CDROM = 5
FindCDROM = "No hay CD_ROM Instalado"

For Drive = 65 To 90
If GetDriveType(Chr(Drive) & ":\") = DRIVE_CDROM Then
FindCDROM = "CD-ROM Drive " & Chr(Drive) & ":\"
Exit For
End If
Next Drive
End Function
  Respuesta:  Darinel Cancino G.
Mira amigo puedes hacerlo de la siguiente manera, Sigue los siguientes pasos, espero te sirva de algo.

1. Crear un proyecto nuevo en Visual Basic, por defecto será Form1
2. Añadir el siguiente codigo a formulario en General Declarations.

Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

3. Añadir un control Command Button al Form1
4. Añadir el siguiente codigo al evento Click de Command Button

Private Sub Command1_Click()
Text1.Text = FindCDROM
End Sub

5. Añadir un control Text Box al Form1.
En propiedades "Multiline" fijar "true"
6. Crear una función llamada FindCDROM y añadir el siguiente codigo:

Function FindCDROM() As String
Dim Drive As Integer
Const DRIVE_CDROM = 5
FindCDROM = "No hay CD_ROM Instalado"
For Drive = 65 To 90
If GetDriveType(Chr(Drive) & ":\") = DRIVE_CDROM Then
FindCDROM = "CD-ROM Drive " & Chr(Drive) & ":\"
Exit For
End If
Next Drive
End Function

    Pregunta:  44179 - IMAGENES CRYSTAL REPORTS
Autor:  Iracema Mondragón Romero
Hola, tengo un problema con una aplcación en visual basic, necesito saber como puedo mandar la ubicación de una imagen a crystal para que cargue dicha imagen en un reporte de crystal, hasta ahora no encuentro la forma de pasar una imagen como parametro, espero puedan ayudarme, espero respuesta, Gracias.........
  Respuesta:  SuNcO
Hace como 1 semana tuve la misma pregunta pero lo resolvi buscandole, aunque recibi una respuesta algo dificil

Con algo de ingenio lo pude hacer mucho mas sencillo

Si la base de datos es de access, ocupas crear un campo llamado por ejemplo "foto" el cual es de tipo "binary". Cuando eliges la imagen, para guardarla en ese campo lo puedes hacer asi...

' Declaracion
Private La_Imagen As ADODB.Stream

' En la parte de Load
Set La_Imagen = New ADODB.Stream

' En algun Boton
Dim abtyImage() As Byte, hFile As Long, lngSize As Long

With Data1.Recordset
.AddNew

strFile = "ruta del archivo"

' Liberamos por si esta abierto el Archivo
hFile = FreeFile
' Lo Abrimos en modo Binario
Open strFile For Binary Access Read As hFile
' Vemos cuanto mide
lngSize = LOF(hFile)
' Si mide mas de 0...
If lngSize > 0 Then
' Agrandar el arreglo de 1 a cuanto mide el Archivo
ReDim abtyImage(1 To lngSize) As Byte
' Leer el Archivo y meterlo en el Arreglo
Get hFile, , abtyImage()
End If
' Cerrar el Archivo
Close hFile

' Enviarle el Arreglo al campo "foto"
.Fields("foto") = abtyImage()
' Actualizar
.Update

End With

Crystal1.PrintReport

Asi me funciona bien a mi =)

|<  <<  249 250 251 252 253 254 255 256 257 258 259  >>  >|