agregar datos de listview a BD
Publicado por Carlos (13 intervenciones) el 05/06/2018 18:33:00
Buenas tardes, ayuda con este codigo para guardar en BD, se cruzan los datos en la tabla
Valora esta pregunta
-1
Iniciar sesiónCrear cuenta
Crear cuentaCrear cuenta
ListViewapuesta.Items(x).SubItems(0).Text
LisViewapuesta.Items(x).SubItems(1).text
LisViewapuesta.Items(x).SubItems(2).text
LisViewapuesta.Items(x).SubItems(3).text
LisViewapuesta.Items(x).SubItems(4).text
ListViewapuesta.Items(x).SubItems(0).Text
For i As Integer = 0 To (ListViewapuesta.Rows.Count() - 1)
ConsultaSql = New OleDbCommand("todo lo demas que va aca ")
ConsultaSql.Parameters.AddWithValue("@Serial", ListViewapuesta.Rows(i).Cells(0).Text)
ConsultaSql.Parameters.AddWithValue("@Nro", ListViewapuesta.Rows(i).Cells(1).Text)
'TODO LO QUE CONTINUA MAS ABAJO
Next
For i = 1 To LisView1.ListItems.Count
ConsultaSql = New OleDbCommand("todo lo demas que va aca ")
ConsultaSql.Parameters.AddWithValue("@Serial", ListViewapuesta.ListItems(i).Text )
'TODO LO QUE CONTINUA MAS ABAJO
Next
For i = 0 To ListViewapuesta.Items.Count - 1
Dim items As New ListViewItem
MsgBox(ListViewapuesta.Items(i).SubItems(i).Text)
Next
MsgBox("Ticket generado con exito", vbExclamation, "Exito")
' inicio
comando = New OleDbCommand("INSERT INTO Ticket(Serial, Fecha, Hora, Total)" & Chr(13) & "VALUES(TextBoxserial, Fecha, Hora, TextBoxtotal)", conexion)
comando.Parameters.AddWithValue("@Serial", TextBoxserial.Text)
comando.Parameters.AddWithValue("@Fecha", Fecha.Text)
comando.Parameters.AddWithValue("@Hora", Hora.Text)
comando.Parameters.AddWithValue("@Total", TextBoxtotal.Text)
comando.ExecuteNonQuery()
'fin
'inicio
Dim items As New ListViewItem
For i = 0 To ListViewapuesta.Items.Count - 1
consultaSql = New OleDbCommand("INSERT INTO Detalles(Serial, Nro, Animalito, Loteria, Sorteo, Apuesta)" & Chr(13) & "VALUES (Serial, Nro, Animalito, Loteria, Sorteo, Apuesta)", conexion)
consultaSql.Parameters.AddWithValue("@serial", SerialTextBox.Text)
consultaSql.Parameters.AddWithValue("@Nro", ListViewapuesta.Items(i).Text)
consultaSql.Parameters.AddWithValue("@Animalito", ListViewapuesta.Items(i).SubItems(1).Text)
consultaSql.Parameters.AddWithValue("@Loteria", ListViewapuesta.Items(i).SubItems(2).Text)
consultaSql.Parameters.AddWithValue("@Sorteo", ListViewapuesta.Items(i).SubItems(3).Text)
consultaSql.Parameters.AddWithValue("@Apuesta", ListViewapuesta.Items(i).SubItems(4).Text)
consultaSql.ExecuteNonQuery()
Next
ListViewapuesta.Items.Clear()
conexion.Close()
MsgBox("Ticket generado con exito", vbExclamation, "Exito")
'finPrivate Sub animalitoapueta_KeyPress(sender As Object, e As KeyPressEventArgs) Handles animalitoapueta.KeyPress
If Asc(e.KeyChar) = 13 Then
For h = 0 To ListViewapuesta.Items.Count -1
Dim items As New ListViewItem
If ListViewapuesta.Items(h).SubItems(h).Text = "Delfin" Then
MsgBox("Seleccione uno diferente", vbCritical, "Animalito ya apostado")
ListViewapuesta.Items(h).Remove()
animalitoapueta.Text = ""
Busquedanimalito.Text = ""
Busquedanimalito.Focus()
End If
Next
End If
End Sub
If Asc(e.KeyChar) = 13 Then
'inicio
For h = 0 To ListViewapuesta.Items.Count - 1
Dim items As New ListViewItem
If ListViewapuesta.Items(h).SubItems(1).Text = animalitoapueta.Text And ListViewapuesta.Items(h).SubItems(2).Text _
= ComboBoxloteria.SelectedValue And ListViewapuesta.Items(h).SubItems(3).Text = ComboBoxsorteogranja.SelectedValue Then
MsgBox("Seleccione una hora diferente", vbCritical, "Animalito ya apostado")
ComboBoxsorteogranja.SelectedValue = ""
ComboBoxsorteogranja.Focus()
End If
Next
End If