28/07/2011, 11:25
|
| | Fecha de Ingreso: noviembre-2010 Ubicación: madrid
Mensajes: 478
Antigüedad: 14 años, 1 mes Puntos: 5 | |
Respuesta: crear celdas con un porcentaje bien lo he arreglado así para el que lo necesite;
Dim adapta2 As New OleDbDataAdapter
Dim datavacio As New DataSet
Dim maximo As Integer = CInt(TextLinea1.Text)
Dim maximo2 As Integer = CInt(TextLinea2.Text)
For x As Integer = 1 To maximo
'creo los parametros que uso en el SELECT, para filtrar en el datagridview(dgtotales)
Dim comados = conexion.CreateCommand
comados.CommandType = CommandType.Text
comados.CommandText = "INSERT INTO HistoricoTickets (Producto,Euros,Fecha,Iva) SELECT Producto1,Pvp1,Fecha1,Iva1 FROM HistoricoGTickets"
conexion.Open()
frmProgressbar.Show()
Dim Lecto1 = comados.ExecuteNonQuery
frmProgressbar.Close()
conexion.Close()
Next |