Programación General > Bases de Datos

 Un Par De Preguntas

(1/1)

Colditz:
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 "shell32.dll" Alias _        "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias _        "SHGetPathFromIDListA" (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 LongEnd 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$(512)   r = SHGetPathFromIDList(ByVal pidl, ByVal tmpPath)    If r Then      pos = InStr(tmpPath, Chr$(0))      tmpPath = Left(tmpPath, pos - 1)      If Right(tmpPath, 1) <> "\" Then tmpPath = tmpPath & "\"       gfsSeleccionaDirectorioACopiar = tmpPath    Else       'gfsSeleccionaDirectorio = ""    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   :P    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 :hola:

Navegación

[0] Índice de Mensajes