Hola amig@s!!!!
--PROBLEMILLA DE GESTION VB.NET
Tengo un problema a la hora de actualizar mi BD. El problema es que en la BD tengo un Campo "Imagen" (Almacena la ruta de la imagen) y un campo "NombreImagen" (Almacena solo el nombre de la imagen), a parte tng una variable publica en un modulo q almacena tb la ruta de la imagen ("RutaImagen").
Lo que pretendo hacer es q al cargar el Formulario mediante una consulta compruebe si la ruta que de "Imagen" es igual que la de la variable "RutaImagen" y si no lo es que al campo "Imagen" sele asigne el valor de "RutaImagen".
No se si me explique mas o menos. Ah la BD esta etxa en SQLServer. Os mando el codigo a ver s me podeis etxar una mano.
Muchas gracias
-------------------------------------------------------------------------------------
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
Me.Conexion.ConnectionString = CadenaConexion
Dim Cnn As New OleDbConnection(CadenaConexion)
Dim Dr As OleDbDataReader
Dim Comando As New OleDbCommand("SELECT CODIGO FROM PELICULAS WHERE NOMBREIMAGEN IS NOT NULL AND IMAGEN IS NOT NULL AND IMAGEN <> '" & Trim(RutaImagen) & "'", Cnn)
Cnn.Open()
Dr = Comando.ExecuteReader
Do While Dr.Read
Cont += 1
Me.DVPeliculas(0)("Imagen") = RutaImagen
Me.BindingContext(Me.DVPeliculas).EndCurrentEdit()
Me.DAPeliculas.Update(Me.DS2)
Loop
Dr.Close()
MessageBox.Show("Se han modificado " & Cont & " registros")
Cnn.Close()
'llenar el grid
Me.DAPeliculas.Fill(Me.DS2)
'ordenar por titulo
Me.DVPeliculas.Sort = "Titulo"
'llamada al procedimiento para ajustar el grid
AjustarGrid()
'llamada al procedimiento para poner el titulo del Grid
AjustarTitulo()
Catch Ex As Exception
MessageBox.Show("La Aplicación no puede cargar las peliculas debido " & vbCr & "a que el servidor no se ha arrancado", "Error al Iniciar", MessageBoxButtons.OK, MessageBoxIcon.Error)
Me.Close()
End Try
End Sub