Disculpa, pero cuando me dices que si tengo abierta la conexion con cual me recomientas que lo haga sera de esta manera, con un data?
With datElemento
.Recordset.AddNew
.Recordset.Fields("HoraE") = txtHora.Text
.Recordset.Fields("MinutoE") = txtMinuto.Text
.Recordset.Fields("SegundoE") = txtSegundos.Text
.Recordset.Fields("HoraA") = txtHoraF.Text
.Recordset.Fields("MinutoA") = txtMinutoF.Text
.Recordset.Fields("SegundoA") = txtSegundosF.Text
.Recordset.Update
MsgBox "Registro Almacenado", vbInformation + vbOKOnly, "Alamcenamiento"
End With
porque de verdad nunca he hecho una conexion para un listview
la forma que tu me dices de crear la codificacion es de esta manera??
Private Sub cmdProgramar_Click()
With datElemento
.Recordset.AddNew
.Recordset.Fields("HoraE") = txtHora.Text
.Recordset.Fields("MinutoE") = txtMinuto.Text
.Recordset.Fields("SegundoE") = txtSegundos.Text
.Recordset.Fields("HoraA") = txtHoraF.Text
.Recordset.Fields("MinutoA") = txtMinutoF.Text
.Recordset.Fields("SegundoA") = txtSegundosF.Text
.Recordset.Update
MsgBox "Registro Almacenado", vbInformation + vbOKOnly, "Alamcenamiento"
End With
End Sub
Private Sub Form_Load()
tmpTiempo_Timer
With datElemento
.DatabaseName = App.Path & "\ElementoControl.mdb"
.RecordSource = "Bombillo"
End With
End Sub
Dim nItem As ListItem
Dim i As Long
Do While Not rs.EOF
Set nItem = ListView1.ListItems.Add(, , rs.Fields(0))
For i = 1 To rs.Fields.Count - 1
nItem.SubItems(i) = rs.Fields(i)
Next
rs.MoveNext
Loop
el "datelemento" en un control (data1)
Te agradezco la ayuda y disculpa la molestia