Quiero usar access2013 para hacer una tabla. Las columnas de la tabla representan las bolas del 1 al 6 y las filas representan cada combinación. Cómo operar la salida automática para formar un
Puedes utilizar ACCESS desde la programación VBA para realizar esta operación.
El siguiente es un código de muestra como referencia: Private?Sub?Command0_Click()
'Haga clic en el botón de comando para generar automáticamente una lista de todas las combinaciones. El código ha sido probado y aprobado
If?MsgBox("¿Quiere generar todas las listas combinadas? Si selecciona "Sí", es posible que tome mucho tiempo Espere pacientemente hasta que aparezca el mensaje de éxito",?vbQuestion?+? vbYesNo,?"prompt")?=?vbNo?Then?Exit?Sub
Dim?strSql?As. ?String
Dim?rs?As?New?ADODB.Recordset
Dim?L?As?Byte,?U?As?Byte
Dim? a?Como?Byte,?b?Como?Byte,?c?Como?Byte,?d?Como?Byte,?e?Como?Byte,?f?Como?Byte
strSql?= ?"select?Name?from?MsysObjects?where?type=1?and?Flags=0 ?and?Name='myTest'"
rs.Open?strSql,?CurrentProject.Connection,?adOpenStatic ,?adLockReadOnly
Si?rs.RecordCount?>?0?Entonces
strSql?=?"drop?table?myTest"
rs.Close
CurrentProject.Connection.Execute?strSql
Fin ?If
strSql?=?"create?table?myTest(número de fila?contador?primario?clave, bola número 1?int, bola número 2?int, bola número 3?int, bola número 4?int, bola número cinco?int, bola número seis?int)"
Proyecto actual. Connection.Execute?strSql
strSql?=?"select?*?from?myTest"
rs.Open?strSql,?CurrentProject.Connection,?adOpenKeyset,?adLockOptimistic p>
'Para reducir el número de combinaciones, los números que aparecen en cada bola están limitados a 0 y 1,
'¿Si se establece en 0-9?, el número de combinaciones llegue a un millón,
'No establezca un rango de números demasiado grande, de lo contrario llevará mucho tiempo. Si es demasiado largo, incluso puede hacer que el tamaño de la base de datos exceda el límite.
L?=?0
U?=?1
Para?a?=?L?A ?U
Para?b?= ?L?A?U
Para?c?=?L?A?U
Para?d?= ?L?A?U
Para ?e?=?L?To?U
Para?f?=?L?To?U
Con ?rs
.AddNew
!¿Bola uno?=?a
!¿Bola dos?=?b
!¿Bola número tres?=?c
!Bola cuatro ?=?d
!Bola cinco?=?e
!Bola seis?=? f
.Actualizar
¿Fin? Con
¿Siguiente?f
Siguiente?e
Siguiente?d
Siguiente?c
¿Siguiente? b
Siguiente?a
rs.Cerrar
Establecer?rs ?=?Nada
Si?MsgBo
x("Se generaron con éxito todas las listas de combinación, ¿desea abrir todas las listas de combinación generadas?",?vbQuestion?+?vbYesNo,?"Prompt")?=?vbYes?Then
DoCmd.OpenTable ?"miPrueba "
¿Fin?Si
Fin?Sub