Problemas con modulo de Update

[lexus_lex]

Amigos,

soy nuevo en este foro y los saludo y solicito su ayuda, tengo un problema, al hacer el update me dice {"ExecuteNonQuery: la propiedad Connection no se ha inicializado."}, adjunto codigo con problema:


conexion()

Dim comando As New OleDb.OleDbCommand

If DataGridView1.Rows.Count > 0 Then
If DataGridView1.SelectedRows.Count > 0 Then

Dim id_bita As String = DataGridView1.SelectedRows(0).Cells("idBita").ToSt ring
'open connection
If Not conex.State = ConnectionState.Open Then
conex.Open()
End If
'get data into datatable
Dim adaptador As New OleDb.OleDbDataAdapter("SELECT * FROM bitacora WHERE 'idBita= & TxtId.Text'", conex)

Dim datos As New DataTable
adaptador.Fill(datos)

TxtId.Text = id_bita
DTPFecha.Text = datos.Rows(1).Item("fecha")
DTPHoraIni.Text = datos.Rows(2).Item("horaini")
DTPHoraTerm.Text = datos.Rows(3).Item("horaterm")
TxtPlanta.Text = datos.Rows(4).Item("planta")
TxtEquipo.Text = datos.Rows(5).Item("equipo")
TxtInciden.Text = datos.Rows(6).Item("observacion")
TxtUsuario.Text = datos.Rows(7).Item("usuario")
'
'hide the id to be edited in TAG of txtstdid in case id is changed
TxtId.Tag = id_bita
'change button add to update
'Me.btnAdd.Text = "Update"
'disable button edit
'Me.btnEdit.Enabled = False
'close connection
conex.Close()
End If
End If




comando.CommandText = "UPDATE bitacora " & _
" SET fecha='" & DTPFecha.Text & "'" & _
", horaini='" & DTPHoraIni.Text & "'" & _
", horaterm='" & DTPHoraTerm.Text & "'" & _
", planta='" & TxtPlanta.Text & "'" & _
", equipo='" & TxtEquipo.Text & "'" & _
", observacion='" & TxtInciden.Text & "'" & _
", usuario='" & TxtUsuario.Text & "'" & _
" WHERE idBita=" & TxtId.Tag


comando.ExecuteNonQuery()

conex.Open()
comando.ExecuteNonQuery()
conex.Close()


MsgBox("Bitacora Modificada")

[emmax]

Iniciado por lexus_lex

Amigos,

soy nuevo en este foro y los saludo y solicito su ayuda, tengo un problema, al hacer el update me dice {"ExecuteNonQuery: la propiedad Connection no se ha inicializado."}, adjunto codigo con problema:


conexion()

Dim comando As New OleDb.OleDbCommand

If DataGridView1.Rows.Count > 0 Then
If DataGridView1.SelectedRows.Count > 0 Then

Dim id_bita As String = DataGridView1.SelectedRows(0).Cells("idBita").ToSt ring
'open connection
If Not conex.State = ConnectionState.Open Then
conex.Open()
End If
'get data into datatable
Dim adaptador As New OleDb.OleDbDataAdapter("SELECT * FROM bitacora WHERE 'idBita= & TxtId.Text'", conex)

Dim datos As New DataTable
adaptador.Fill(datos)

TxtId.Text = id_bita
DTPFecha.Text = datos.Rows(1).Item("fecha")
DTPHoraIni.Text = datos.Rows(2).Item("horaini")
DTPHoraTerm.Text = datos.Rows(3).Item("horaterm")
TxtPlanta.Text = datos.Rows(4).Item("planta")
TxtEquipo.Text = datos.Rows(5).Item("equipo")
TxtInciden.Text = datos.Rows(6).Item("observacion")
TxtUsuario.Text = datos.Rows(7).Item("usuario")
'
'hide the id to be edited in TAG of txtstdid in case id is changed
TxtId.Tag = id_bita
'change button add to update
'Me.btnAdd.Text = "Update"
'disable button edit
'Me.btnEdit.Enabled = False
'close connection
conex.Close() "Aqui Cierras la Conexion"
End If
End If




comando.CommandText = "UPDATE bitacora " & _
" SET fecha='" & DTPFecha.Text & "'" & _
", horaini='" & DTPHoraIni.Text & "'" & _
", horaterm='" & DTPHoraTerm.Text & "'" & _
", planta='" & TxtPlanta.Text & "'" & _
", equipo='" & TxtEquipo.Text & "'" & _
", observacion='" & TxtInciden.Text & "'" & _
", usuario='" & TxtUsuario.Text & "'" & _
" WHERE idBita=" & TxtId.Tag


comando.ExecuteNonQuery() "Aqui llamas a executenonQuery con la conexion cerrada"

conex.Open()
comando.ExecuteNonQuery()
conex.Close()


MsgBox("Bitacora Modificada")

Si mal no veo el error esta en donde te escribi en rojo.

[lexus_lex]

corregi y nada me dice que la conexion queda abierta y me tira hacia afuera, algo asi:

'Me.btnEdit.Enabled = False
'close connection
conex.Close()
End If
End If

'------------------*********************'


conexion()


comando.CommandText = "UPDATE bitacora " & _
" SET fecha='" & DTPFecha.Text & "'" & _
", horaini='" & DTPHoraIni.Text & "'" & _
", horaterm='" & DTPHoraTerm.Text & "'" & _
", planta='" & TxtPlanta.Text & "'" & _
", equipo='" & TxtEquipo.Text & "'" & _
", observacion='" & TxtInciden.Text & "'" & _
", usuario='" & TxtUsuario.Text & "'" & _
" WHERE idBita=" & TxtId.Tag
conex.Open()
comando.ExecuteNonQuery()
conex.Close()



MsgBox("Bitacora Modificada")

indicame por favor mira que lo tengo que entregar el dia sabado

[Malenko]

Iniciado por lexus_lex

conexion()


comando.CommandText = "UPDATE bitacora " & _
" SET fecha='" & DTPFecha.Text & "'" & _
", horaini='" & DTPHoraIni.Text & "'" & _
", horaterm='" & DTPHoraTerm.Text & "'" & _
", planta='" & TxtPlanta.Text & "'" & _
", equipo='" & TxtEquipo.Text & "'" & _
", observacion='" & TxtInciden.Text & "'" & _
", usuario='" & TxtUsuario.Text & "'" & _
" WHERE idBita=" & TxtId.Tag
conex.Open()
comando.ExecuteNonQuery()
conex.Close()



MsgBox("Bitacora Modificada")

indicame por favor mira que lo tengo que entregar el dia sabado

Has probado a poner esto?

Código:

        conex.Open()
        comando.Connection = conex
        comando.ExecuteNonQuery()
        conex.Close()

[lexus_lex]

Malenko,

tengo esto:

conexion()


comando.CommandText = "UPDATE bitacora SET fecha='" & DTPFecha.Text & "', horaini='" & DTPHoraIni.Text & "', horaterm='" & DTPHoraTerm.Text & "', planta='" & TxtPlanta.Text & "', equipo='" & TxtEquipo.Text & "', observacion='" & TxtInciden.Text & "', usuario='" & TxtUsuario.Text & "' WHERE idBita=" & TxtId.Text & ""

comando.CommandType = comando.CommandText
comando.Connection = conex
comando.ExecuteNonQuery()
conex.Close()

pero me indica que la convercion set fecha='17-4' en integer no es valida, pero que yo sepa no lo estoy pasando a integer lo estoy reconociendo como texto