
18/07/2012, 07:27
|
| | Fecha de Ingreso: diciembre-2011
Mensajes: 70
Antigüedad: 13 años, 3 meses Puntos: 2 | |
insertar datos aleatorios hola amigos, hace tiempo que no ando por aquí, espero me puedan ayudar, tengo que insertar datos en una tabla, pero debe ser de forma aleatoria, tengo unos integer que tienen de cada vez unas cifras diferentes, estos se llaman;
maximo
maximo2
maximo3
maximo4
maximo5
maximo6
cada uno de ellos en cada momento de ejecutar la acción tienen unas cifras diferentes, así llegado el momento hago lo siguiente:
Código:
For x As Integer = 1 To maximo
'inserto en historicotickets el producto, el precio la fecha y el iva que están en la tabla historicogtickets correspondientes al producto 1
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
MessageBox.Show("1")
frmProgressbar.Close()
conexion.Close()
Next
For x As Integer = 1 To maximo2
'creo los parametros que uso en el SELECT, para filtrar en el datagridview(dgtotales)
Dim comados2 = conexion.CreateCommand
comados2.CommandType = CommandType.Text
comados2.CommandText = "INSERT INTO HistoricoTickets (Producto,Euros,Fecha,Iva) SELECT Producto2,Pvp2,Fecha1,Iva2 FROM HistoricoGTickets"
conexion.Open()
frmProgressbar.Show()
Dim Lecto2 = comados2.ExecuteNonQuery
frmProgressbar.Close()
conexion.Close()
Next
For x As Integer = 1 To maximo3
'creo los parametros que uso en el SELECT, para filtrar en el datagridview(dgtotales)
Dim comados3 = conexion.CreateCommand
comados3.CommandType = CommandType.Text
comados3.CommandText = "INSERT INTO HistoricoTickets (Producto,Euros,Fecha,Iva) SELECT Producto3,Pvp3,Fecha1,Iva3 FROM HistoricoGTickets"
conexion.Open()
frmProgressbar.Show()
Dim Lecto3 = comados3.ExecuteNonQuery
frmProgressbar.Close()
conexion.Close()
Next
For x As Integer = 1 To maximo4
'creo los parametros que uso en el SELECT, para filtrar en el datagridview(dgtotales)
Dim comados4 = conexion.CreateCommand
comados4.CommandType = CommandType.Text
comados4.CommandText = "INSERT INTO HistoricoTickets (Producto,Euros,Fecha,Iva) SELECT Producto4,Pvp4,Fecha1,Iva4 FROM HistoricoGTickets"
conexion.Open()
frmProgressbar.Show()
Dim Lecto4 = comados4.ExecuteNonQuery
frmProgressbar.Close()
conexion.Close()
Next
For x As Integer = 1 To maximo5
'creo los parametros que uso en el SELECT, para filtrar en el datagridview(dgtotales)
Dim comados5 = conexion.CreateCommand
comados5.CommandType = CommandType.Text
comados5.CommandText = "INSERT INTO HistoricoTickets (Producto,Euros,Fecha,Iva) SELECT Producto5,Pvp5,Fecha1,Iva5 FROM HistoricoGTickets"
conexion.Open()
frmProgressbar.Show()
Dim Lecto5 = comados5.ExecuteNonQuery
frmProgressbar.Close()
conexion.Close()
Next
For x As Integer = 1 To maximo6
'creo los parametros que uso en el SELECT, para filtrar en el datagridview(dgtotales)
Dim comados6 = conexion.CreateCommand
comados6.CommandType = CommandType.Text
comados6.CommandText = "INSERT INTO HistoricoTickets (Producto,Euros,Fecha,Iva) SELECT Producto6,Pvp6,Fecha1,Iva6 FROM HistoricoGTickets"
conexion.Open()
frmProgressbar.Show()
Dim Lecto6 = comados6.ExecuteNonQuery
frmProgressbar.Close()
conexion.Close()
Next
debido a esto me carga repetidos los datos, funciona bien pero necesito que sea aleatorio, que los for no comiencen y terminen seguidos si no que salten a otro for y así hasta que se completen sus máximos pero no seguidos me explico?¿? |