• Viernes 8 de Noviembre de 2024, 17:40

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - ferlucas

Páginas: [1]
1
MySQL / Error Subconsulta Mysql
« en: Viernes 19 de Agosto de 2005, 18:15 »
Voy a tratar de ser lo más claro posible.

Para que tengan una idea, estoy hacien un sistema para registrar películas. En cuestión, tengo 3 bases de datos: movies, reparto y actores.
La BD reparto tiene los campos id_movie e id_actor. La BD actores tiene los campos id_actor y descripción.

Lo que quiero hacer, y me estoy equivocando, es hacer una consulta que me traiga solamente las peliculas en las que trabaje un determinado actor. La consulta que hago es la siguiente:

SELECT movies.* FROM movies WHERE movies.id IN (SELECT DISTINCT(reparto.id_movie) FROM reparto INNER JOIN actores ON reparto.id_actor=actores.id_actor WHERE actores.descripcion LIKE '%Smith%');

Estoy cometiendo un error. Sino, no me daría error. Pero como recién estoy empezando con esto de las subconsultas, no encuentro como solucionarlo.
Si alguien me puede dar una mano, sera agradecida.
Saludos.

2
Bases de Datos / Error Subconsulta Mysql
« en: Viernes 19 de Agosto de 2005, 18:01 »
Voy a tratar de ser lo más claro posible.

Para que tengan una idea, estoy hacien un sistema para registrar películas. En cuestión, tengo 3 bases de datos: movies, reparto y actores.
La BD reparto tiene los campos id_movie e id_actor. La BD actores tiene los campos id_actor y descripción.

Lo que quiero hacer, y me estoy equivocando, es hacer una consulta que me traiga solamente las peliculas en las que trabaje un determinado actor. La consulta que hago es la siguiente:

SELECT movies.* FROM movies WHERE movies.id IN (SELECT DISTINCT(reparto.id_movie) FROM reparto INNER JOIN actores ON reparto.id_actor=actores.id_actor WHERE actores.descripcion LIKE '%Smith%');

Estoy cometiendo un error. Sino, no me daría error. Pero como recién estoy empezando con esto de las subconsultas, no encuentro como solucionarlo.
Si alguien me puede dar una mano, sera agradecida.
Saludos.

3
VBA / Re: Problemas Con Datagrid
« en: Miércoles 6 de Julio de 2005, 15:50 »
Selecciona toda la fila:
DataGrid1.MarqueeStyle = 4

Y para evitar que al hacer DblClk sobre el grid te seleccione el contenido de la selda, lo que debes hacer es bloquearla:
For x = 0 To DataGrid1.Columns.Count - 1
    DataGrid1.Columns(x).Locked = True
Next x

4
VBA / Re: Guardar Jpg En Mysql?
« en: Miércoles 6 de Julio de 2005, 15:42 »
Ya se puede cerrar el tema porque encontre como hacerlo. Dejo los codigos para quienes tengan la misma inquietud:

Asumo que en la base de datos tienen un campo del tipo LONGBLOB (lo llamaremos imagen).

Citar
Para guardar la imagen:
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim ms As New ADODB.Stream

Set cn.ConnectionString = "PROVIDER=;DRIVER=;SERVER=;DATABASE=;UID=;PWD=;"
cn.Open
Set rs.ActiveConnection = cn
rs.CursorLocation = adUseClient
rs.Open "SELECT * FROM tabla WHERE id=1",cn,3,3 'busqueda de un registro en particular
ms.Type = adTypeBinary
ms.Open
ms.LoadFromFile (Path y nombre del archivo JPG)
rs.Fields("imagen").Value = ms.Read
rs.Update
ms.Close
rs.Close
cn.Close
Set ms = Nothing
Set rs = Nothing
Set cn = Nothing

Citar
Para leer la imagen guardada:
'Lo mismo hasta la apertura del Recordset (inclusive)
ms.Type = adTypeBinary
ms.Open
ms.Write rs.Fields("imagen").Value
ms.SaveToFile (Path y nombre del archivo temporal), adSaveCreateOverWrite
Picture1.Picture = LoadPicture(Path y nombre del archivo temporal) 'en este caso uso un PictureBox para mostrar
ms.Close
rs.Close
cn.Close
Set ms = Nothing
Set rs = Nothing
Set cn = Nothing

5
VBA / Re: Ayuda Urgente Con Una Consulta
« en: Miércoles 6 de Julio de 2005, 15:29 »
Y yo le agregaria:

CONSORDEN..CursorLocation = adUseClient  'Antes de abrirlo

6
Bases de Datos / Re: Mysql Y Vb 6.0
« en: Miércoles 29 de Junio de 2005, 07:13 »
Yo el codigo que utilizo es el siguiente:
Citar
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

cn.Provider = "MSDASQL.1"
cn.ConnectionString = "DRIVER={MySQL ODBC 3.51.06 Driver};" & _
                      "SERVER=localhost;" & _
                      "DATABASE=db_name;" & _
                      "UID=db_user_id;" & _
                      "PWD=db_user_pwd;" & _
                      "OPTION=16427"
cn.CursorLocation = adUseClient

rs.Open "SELECT * FROM [tabla]", cn, 3, 3
rs.MoveFirst
Do while Not rs.Eof
   rs.MoveNext
Loop

Cualquier cosa, avisen. Igual aclaro que no estoy muy metido en esto. Recien estoy empezando. Pero si puedo ayuda, lo hago.
Saludos.

7
VBA / Guardar Jpg En Mysql?
« en: Miércoles 29 de Junio de 2005, 07:12 »
Hola a todos. Tengo una base de datos de productos al cual le agregue el campo imagen (del tipo BLOB). Lo que necesito es el codigo (VB6) para guardar y para extraer la imagen del campo antes mencionado.
Si alguien puede darme una mano, se lo agradezco.
Saludos.

8
Clipper / Re: Error Al Generar Un Indice Con Dbu...
« en: Miércoles 29 de Junio de 2005, 06:42 »
Seria bueno saber que campos contiene el indice (tipo de datos) y cual es la clave del indice.

Páginas: [1]