Red de conocimiento informático - Espacio del host - 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

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

'El código necesita hacer referencia a la biblioteca de clases ADO, el método de referencia se abrevia...

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

'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