Visual Basic Foro

gracias por tu respuesta, cuando llegue a mi casa lo pruebo y te digo que tal.. Espero que funcione..

Me funciona a la perfeccion gracias amigo.

Pd: los datos en la bd los tengo como string menos el campo fecha, Saludos

Ahora el problema es otro.. cuando inserto datos en la bd pregunto si ya estan y en tal caso que los actualize, pero si no estan que los inserte. Pero siempre cuando los datos estan en la bd, el primer registro de actualizacion en la bd me trunca la fecha y la cambia a 00:45:01 (el formato es ese, los numeros son aleatorios, no siguen ningun patron), la sentencia que realiza esto es la siguiente:

        Function guardar(ByVal dia, ByVal estado, ByVal pareja_id, ByVal id)
            Tabla.Clear()
            SQL = "Select Max(id) As campo From " & _Tabla
            Tabla = Cn.Mostrar_Consulta(SQL, _Tabla)
            With Tabla.Rows(0)
                _Id = .Item("campo").ToString
            End With
            Dim ids As String = _Id
            Tabla.Clear()
            SQL = "Select * from " & _Tabla & " Where ( id = '" & id & "' )"
            Tabla = Cn.Mostrar_Consulta(SQL, _Tabla)
            MsgBox(Tabla.Rows.Count)
            If Tabla.Rows.Count = 0 Then
                SQL = "INSERT INTO " & _Tabla & " (id,estado,fecha,id_pareja) VALUES ('" & ids + 1 & "', '" & estado & "', #" & CDate(dia) & "#, '" & pareja_id & "')"
                Cn.Ejecuta_Comando(SQL)
            Else
                MsgBox(dia)
                SQL = "update " & _Tabla & " set estado = '" & estado & "', fecha = " & CDate(dia) & ", id_pareja = '" & pareja_id & "' Where ( id = '" & ids & "')"
                Cn.Ejecuta_Comando(SQL)
            End If
            Return True
        End Function
Inserte un MsgBox(dia) y me lo muestra perfect, pero lo inserta mal(siempre la primera insercion de update, el resto perfecto)

Hola a todos, tengo el siguiente problema al intentar realizar mi consulta:

No se controló OleDbException
Error de sintaxis en la instrucción INSERT INTO.

El codigo es el siguiente
Tabla.Clear()
SQL = "INSERT into Estado(id, estado, fecha, id_pareja) VALUE('4', '" & estadox & "', #" & CDate(fecha) & "#, '" & id_pareja & "')"
Cn.Ejecuta_Comando(SQL)
Dejo tambien donde declaro Ejecuta_Comando(parametro)
        Sub Ejecuta_Comando(ByVal SQL As String)
            Dim Comando As New OleDbCommand
            With Comando
                .Connection = Cn
                .CommandType = CommandType.Text
                .CommandText = SQL
                .ExecuteNonQuery()
            End With
            Comando = Nothing
        End Sub

Pd: el code donde declaro cn no lo pongo ya que me funciona perfectamente, es decir, puedo realizar consultas y devolver datos.

Hola a todos, estoy trabajando con picturebox, y tengo ciertos problemas.

Tengo un groupbox con x picturebox.
Suponiendo que el groupbox se llama paco
Dim variablegloval
for cn As Control In paco.Controls
if TypeOf(cb) Is PictureBox then
    MsgBox(cb .ImageLocation.toString)
end if
Next

El code en si me funciona,  pero aunque tenga una foto el o los picturebox, pues me devuelbe una cadena vacia...

Saludos y gracias


Pd: Solucionado.

En la funcion en la que le asigno la imagen al picturebox tambien le asigno dos parametros mas

            MsgBox(cb.AccessibleName)
            MsgBox(cb.AccessibleDescription)

Y puedo controlar mejor e almacenar datos que itilizare mas tarde. y que necesito. Saludos y gracias

exelente Nolo 

ya lo tengo solucionado. Gracias, exelente...

Para añadir, es decir, para no modificar los datos y añadir utilizando el mismo procedimiento, es igual con la diferencia que ya no estas utilizando el item selected . y que tienes que tener la posicion en que lo almacenas. Pongo este ejemplo
            Dim temporal As Integer = My.Forms.ficha_aves.posturas.Items.Count
            My.Forms.ficha_aves.posturas.Items.Add(fecha.Text)
            My.Forms.ficha_aves.posturas.Items(temporal).SubItems.Add(huevos.Text)

Gracias  a todos.. Exelente ya esa parte de mi code funciona.. Jejeje

gracias leandro cuando llegue a mi casa lo pruebo a ver que tal me va. si me funciona o no.

Hola a todos, primero que nada me presento, quisas este lugar no sea el adecuado para hacerlo.

Bueno soy un lector de los post buestros, me encanto el telnet de coco...
Mi pregunta es la siguiente.
Tengo un listview al que le añado datos por codigo, y muchos de estos datos son añadidos desde una bd de forma dinamica.
Mi intencion es que una vez sean añadido los datos de forma dinamica el usuario pueda editar o añadir los datos que crea correspondiente en el mismo listview.
Para rellenar darle valores al listview lo hago al cargar el form llamo a esta funcion:
    Sub listview_añadirdatos()
        posturas.Columns.Add("Fecha", "Fecha")
        posturas.Columns.Add("Huevos", "Huevos")
        posturas.Columns.Add("Nacidos", "Nacidos")
        posturas.Columns.Add("Fecundados", "Fecundados")
        posturas.Columns.Add("Bajas", "Bajas")
        posturas.Columns.Add("Observaciones", "Observaciones")
        posturas.View = View.Details
    End Sub
Luego una vez ya ha cargado el form, realizo lo siguiente para rellenar los datos de forma dinamica
        num = postura.TraerRow(pareja.ID)
        Dim a As Integer = 0

        posturas.FullRowSelect = False
        posturas.LabelEdit = True
        Do While a < num
            postura.TraerPostura(pareja.ID, a)
            posturas.Items.Add(postura.FECHA)
            posturas.Items(a).BackColor = Drawing.Color.White
            posturas.Items(a).SubItems.Add(postura.HUEVOS)
            posturas.Items(a).SubItems.Add(postura.FECUNDADOS)
            posturas.Items(a).SubItems.Add(postura.NACIDOS)
            posturas.Items(a).SubItems.Add(postura.BAJAS)
            posturas.Items(a).SubItems.Add(postura.OBSERVACION)
            a = a + 1
        Loop

Aclaraciones: tengo la variable postura que hace referencia a una clase que me cree para llevar todo el tema de acceso a la bd, y posturas que es el nombre del listview.
Como ven tengo la propiedad LabelEdit a true, pero no sucede nada, es decir, no puedo editar ningun dato.

Podrian decirme como orientarme para que me funcione.


Saludos y gracias a todos