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:
Public Sub Button1_Click()
Me.Close
End
Esto es para seleccionar la imagen con la ruta:
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