Autor Tema: Un Par De Preguntas (Leído 1756 veces)

Colditz · « **en:** Lunes 10 de Abril de 2006, 01:00 »

Saludos,

Wno tengo un par de dudas sobre visual basic:
Priempo quiero saber si hay alguna manera de poder mostrar i usar esta ventanta en visual basic:

con el commondialgo no se puede, i no se que control puedo usar para hacerlo
o sino alguna otra forma de mostrar una pantalla para seleccionar una carpeta(solo carpeta, no archivo), que no se al dir.

La segunda pregunta es acerca de los OLEs y las Bases de Datos,
he descubierto que se puede conectar un objeto OLE a un campo OLE de una Base de Datos de Acces mediante el control Data, pero el problema esque el control Data solo admite bases de Datos de Acces 97, y me intersa conectarla una del 2000, y con el objeto ADO ni con DataEnvironment se puede concetar
Hay alguna forma de conectarlo? o ai alguna alternativa al objeto OLE que si se pueda conectar?, me interas meter archivos PDF, se pude conectar un textbox con un campo OLE de la base de datos?

Espero que me podais ayudar,
Salduos y gracias por adelantado

Shiquilla

Para mostrar una pantalla como la indicada:

Código: Text

Declare Function SHBrowseForFolder Lib &#34;shell32.dll&#34; Alias _
        &#34;SHBrowseForFolderA&#34; (lpBrowseInfo As BROWSEINFO) As Long
 
Declare Function SHGetPathFromIDList Lib &#34;shell32.dll&#34; Alias _
        &#34;SHGetPathFromIDListA&#34; (ByVal pidl As Long, _
        ByVal pszPath As String) As Long
 
Const BIF_RETURNONLYFSDIRS = &H1
 
Type BROWSEINFO
   hOwner As Long
   pidlRoot As Long
   pszDisplayName  As String
   lpszTitle As String
   ulFlags As Long
   lpfn As Long
   lParam As Long
   iImage As Long
End Type
 
Public Function gfsSeleccionaDirectorioACopiar(Owner As Form, lsTitulo As String) As String
 
   Dim bi As BROWSEINFO
   Dim IDL As ITEMIDLIST
   Dim r As Long
   Dim pidl As Long
   Dim tmpPath As String
   Dim pos As Integer
 
   bi.hOwner = Owner.hwnd
   bi.pidlRoot = 0&
   bi.lpszTitle = lsTitulo
   bi.ulFlags = BIF_RETURNONLYFSDIRS
   pidl = SHBrowseForFolder(bi)
 
   tmpPath = Space&#036;(512)
   r = SHGetPathFromIDList(ByVal pidl, ByVal tmpPath)
 
   If r Then
      pos = InStr(tmpPath, Chr&#036;(0))
      tmpPath = Left(tmpPath, pos - 1)
      If Right(tmpPath, 1) &#60;&#62; &#34;&#092;&#34; Then tmpPath = tmpPath & &#34;&#092;&#34;
       gfsSeleccionaDirectorioACopiar = tmpPath
    Else
       'gfsSeleccionaDirectorio = &#34;&#34;
    End If
 
 
End Function
 

Lo otro no te puedo ayudar ya que yo no uso controles data.

Saludos,

The Black Boy

mmm bueno creo que esto es mas VB que de BD..

en cuanto ha tus dudas eehhh la ventana que pides(Mostrar la Unidades, Carpetas en las mismas etc) creo que es eso si no es me disculpas, pero yo he utilizado unos componentes que se llaman DriveListbox, DirListBox, FileListBox, creo que esos son los nombres

y los pones a trabajar en conjunto y hacen creo que lo que tu quieres..

en cuanto a la coneion con las BD ehh.. en VB para conenctar con BD superiores necesitas crear cadenas de conexion con el Objeto ADO, la verdad no se exactamente si eso es lo que quieres pero averiguate sobre la creacion de cadenas a datos

espero haberte ayudado un poco

Salu2

SoloCodigo

Autor Tema: Un Par De Preguntas (Leído 1756 veces)

Colditz

Un Par De Preguntas

Shiquilla

Re: Un Par De Preguntas

The Black Boy

Re: Un Par De Preguntas