https://foro.gambas-es.org/viewtopic.php?f=3&t=2364&p=14999#p14999
-----------------------------------
jousseph
Jueves, 04 Octobre 2012, 07:35

Re: Consejos Para Añadir Imágenes A Una Base De Datos
-----------------------------------
Hola compañeros como estan, disculpen yo quiero preguntarles como hacen ustedes para hacer esas referencias cuando consultan la imagen por ejemplo yo hago un guardado normal de la imagen con ruta y datos:

Osea como hacen ustedes para darle una prioridad a que la consulta busque la ruta de la imagen? sera en la propiedad dialog.path hacen que se muestre la imagen?, me explico si yo consulto un codigo de una persona logicamente apareceria todos sus datos, pero como hacen para que la imagen se consulte con la persona que le hacen a la ruta gracias.

yo hice un ejemplo asi para pruebas:

 [img]http://foro.gambas-es.org/files/images/1000/ejemplo_de_guardar_imagen.png[/img] 


Public Sub Button1_Click()

  Me.Close

End

[b]Esto es para seleccionar la imagen con la ruta:[/b]

Public Sub ToolButton1_Click()
  Dim hImage As Image

 Dialog.Path = "/usr/share/wallpapers"
  If Not Exist(Dialog.Path) Then
    Dialog.Path = User.Home
  Endif
  
   TextBox6.Text = Dialog.Path

  Dialog.Filter = ["*.jpg;*.jpeg;*.png;*.bmp", "Picture files"]

  If Dialog.OpenFile() Then Return

  hImage = Image.Load(Dialog.Path)

  'dwgImage.Clear()
  dwgImage.Resize(hImage.Width, hImage.Height)

  Draw.Begin(dwgImage)
  Draw.FillRect(0, 0, hImage.Width, hImage.Height, Color.Gray)
  Draw.Image(hImage, 0, 0)
  Draw.End

  dwgImage.Visible = True
  
Catch

  Message.Warning(Error.Text & " !")

End


Public Sub dwgImage_Draw()
End

Public Sub Button3_Click()

  TextBox1.Clear
  TextBox2.Clear
  TextBox2.Clear
 TextBox3.Clear
 TextBox4.Clear
  TextBox5.Clear

End

Esto es para el guardado de datos normal:

Public Sub Button2_Click()
Try coneccion.asiscon.EXEC("insert into propietarios_inmuebles values(&1,&2,&3,&4,&5,&6)",
TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, TextBox6.Text)--... En la textbox6.text esta la ruta de la imagen
If Error Then
 Message.Error("NO SE PUDIERON GUARDAR LOS DATOS")
 Else
 Message.Info("ESTA MAMY RICA SE HA REGISTRADO EXITOSAMENTE")
Endif
End


