Lotería china
¿Privada? ¿Sub? BEG_Click()
Temporizador 1. ¿Permitir? =?Verdadero
¿Y si? Por favor. ¿título? =?"Empezar a sortear"? Entonces
por favor. ¿título? =?"Detener"
Otros
Por favor. ¿título? =?"Comenzar a sortear"
Temporizador 1. ¿Permitir? =?Fin incorrecto
? Si
¿Finalizar? Submarino
¿Privado? ¿Sub? ADD_Click()
¿Atenuado? ¿FUE? ¿Como? Línea
STR? =?InputBox("Ingrese el nombre que desea agregar")
¿Dim? ¿Conn? ¿Como? ¿Nuevo? ADOB. Relación
¿Oscura? ¿rs? ¿Como? ¿Nuevo? ADOB. Conjunto de registros
¿Oscuro? ¿Str1? ¿Como? Línea
¿Oscura? ¿Str2? ¿Como? Línea
¿Oscura? ¿Str3? ¿Como? Línea
Str1? =?"Provider=Microsoft.Jet.OLEDB.4.0"
Str2? =?"¿Datos? Fuente=C:\Documentos? ¿Y luego qué? Configuración\Administrador\Escritorio\DB2.MDB"
Str3? =?"Jet?OLEDB:Database?Password="
Sala de control. ¿Abierto? ¿Str1? y amplificador? ¿Str2? y amplificador? Str3
strSQL? =?"Seleccionar?*?¿Desde dónde? Tabla 1?"
rs. ¿abierto? strSQL,? ¿Conn? 3,?三
rs. ¡Añade nuevo contenido
rs! ¿nombre? =?Valor de fuerza
rs. Actualizaciones
rs. Cerrar
Cerrar sala de control
¿Fin? Submarino
¿Privado? ¿Sub? Form_Load()
Temporizador 1. ¿Permitir? =?Incorrecto
¿Atenuado? ¿Conn? ¿Como? ¿Nuevo? ADOB. Relación
¿Oscura? ¿rs? ¿Como? ¿Nuevo? ADOB. Conjunto de registros
¿Oscuro? ¿Str1? ¿Como? Línea
¿Oscura? ¿Str2? ¿Como? Línea
¿Oscura? ¿Str3? ¿Como? Línea
Str1? =?"Provider=Microsoft.Jet.OLEDB.4.0"
Str2? =?"¿Datos? Fuente=C:\Documentos? ¿Y luego qué? Configuración\Administrador\Escritorio\DB2.MDB"
Str3? =?"Jet?OLEDB:Database?Password="
Sala de control. ¿Abierto? ¿Str1? y amplificador? ¿Str2? y amplificador? Str3
strSQL? =?"Seleccionar?*?¿Desde dónde? Tabla 1?"
rs. ¿abierto? strSQL,? ¿Conn? 3,?三
TEM? =?rs. contadores de registros
rs. Cerrar
¿Para qué? ¿I? =?1?¿Adónde ir? ¿Microscopio electrónico de transmisión
strSQL? =?"Seleccionar?*?De?Tabla1?Dónde?Número="? y amplificador? ¿I? y amplificador? ""
rs. ¿abierto? strSQL,? ¿Conn? 3,?三
Radim? ¿ahorrar? A(0? ¿A dónde ir? Yo)
¿A(yo)? =?rs! Nombres
rs. Cerrar
¿Siguiente?
Cierro la sala de control
¿Fin? Submarino
¿Privado? ¿Sub? Temporizador 1 _Timer()
¿Electricidad estática? j? ¿Como? Entero
Texto1. ¿Palabra? =?A(J)
j? =?j? +?1
¿Y si? j? =?UBound(A)? Entonces
j? =?1
¿Fin? Si
¿Finalizar? Submarine
Codifica y ejecuta, ahora tienes una base de datos llamada db2 configurada en tu escritorio, con un campo "nombre".