hola... x favor necesito ayuda estoy haciendo un reproductor y necesito q este acceda a la BD... toda la conexion esta bien hecha pero el problema es que no puede seleccionar el video para reproducirlo (tengo entendido que no se les puede hacer un select a videos). el sgt codigo es solo para abrirlo desde un fichero... espero lo puedan modificar para que pueda abrir el de una BD.
PD: la BD es oracle 10g y la tabla es:
create table tdocu (id number constraint n_pk primary key,doc ORDSYS.ORDDoc )storage(initial 100k next 100k pctincrease 0);
----------------------************--------------------*********
Public Sub MnuAbrir_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MnuAbrir.Click
Dim MInfo As String
Dim Corto As Integer
Dim Last, Todo As String
Dim ofn As OPENFILENAME
ofn.lStructSize = Len(ofn)
ofn.hwndOwner = Me.Handle.ToInt32
ofn.hInstance = VB6.GetHInstance.ToInt32
ofn.lpstrFilter = "Archivos de Video" & Chr(0) & "*.wmv;*.mpa;*.mpe;*.mpg;*.mpeg;*.avi" & Chr(0) & "Windows Media Video" & Chr(0) & "*.wmv" & Chr(0) & "Archivo de Pelicula(mpeg)" & Chr(0) & "*.mpg;*.mpa;*.mpe;*.mpeg" & Chr(0) & "Video para Windows" & Chr(0) & "*.avi" & Chr(0) & "Todos los archivos" & Chr(0) & "*.*" & Chr(0)
ofn.lpstrFile = Space(254)
ofn.nMaxFile = 255
ofn.lpstrFileTitle = Space(254)
ofn.nMaxFileTitle = 255
ofn.lpstrInitialDir = CurDir()
ofn.flags = &H4S
ofn.lpstrTitle = "Abrir fila de Video"
Temp = ""
Temp = GetOpenFileName(ofn)
Dim Fichero As String
If Temp Then 'Si se ha elegido un fichero...
Fichero = Trim(ofn.lpstrFile)
Text1.Text = Fichero
lInfo.Text = Fichero
End If
On Error GoTo EH1
i = mciSendString("close all", CStr(0), 0, 0)
'################################################# ####
Last = Me.Handle.ToInt32 & " Style " & &H40000000
PathCorto(Fichero)
System.Windows.Forms.Application.DoEvents()
Todo = "open " & path & " Alias Video1 parent " & Last
System.Windows.Forms.Application.DoEvents()
i = mciSendString(Todo, CStr(0), 0, 0)
i = mciSendString("put Video1 window at 1 1 361 280", CStr(0), 0, 0)
System.Windows.Forms.Application.DoEvents()
'################################################# ####
Exit Sub
EH1:
Exit Sub
If Err.Number = 32755 Then
MsgBox("Error: " & ErrorToString())
End If
Resume Next
Exit Sub
End Sub
