El nombre de la tabla de la base de datos variable es Texto
Ventana principal del evento. Creado()
Nombre de la tabla de la base de datos = "MyTable"
Evento final
Botón de evento 4. Clic ()
Si el archivo existe (tomemos la ruta de la tarjeta de memoria() > "/mydata.db") = falso
Crea una base de datos (toma la ruta de la tarjeta () > "/mydata.db")
Un prompt emergente ("¡Crear base de datos exitosa!") )
Fin Si
Abre la base de datos (toma la ruta de la tarjeta() > "/mydata.db") '!! La base de datos debe abrirse antes de realizar cualquier operación de base de datos
Un prompt emergente ("¡Abrir base de datos exitosa!") )
Evento final
Botón del evento 1. Pulsado ()
Si la tabla de datos existe (nombre de la tabla de la base de datos) = falso
'CREAR TABLA' & Nombre de la tabla de base de datos & "(texto id, texto de valor)") 'Crea una tabla de datos con dos columnas, la primera columna es id y la segunda columna es valor
Crea una tabla de datos (nombre de tabla de base de datos, "texto id, texto de valores")
Si quieres crear un campo id auto-incrementable, puedes escribir Create Data Table (nombre de tabla de base de datos, "id entero PRIMARY KEY, texto de valor")
Un prompt emergente ("¡Crear hoja de datos exitosa!") )
Si no,
Un aviso emergente ("¡La hoja de datos ya existe!") )
Fin Si
Evento final
Botón del evento 2. Pulsado ()
' Ejecución de bases de datos ("INSERT INTO" & Nombre de tabla de base de datos & "VALUES ('1','zhangshang@163.com')") 'Insertar registros
' Ejecución de bases de datos ("INSERTAR INTO " & Nombre de la tabla de base de datos & " VALORES ('2','1234567@qq.com')")
' Ejecución de la base de datos ("INSERTAR EN" & Nombre de la tabla de la base de datos & "VALORES ('3','Lisi@126.com')")
' Ejecución de bases de datos ("INSERTAR EN" & Nombre de la tabla de base de datos & " VALORES ('4','Wangwu@163.com')")
Insert record (nombre de tabla de base de datos, "'1','zhangshang@163.com'")
Insert record (nombre de la tabla de la base de datos, "'2','1234567@qq.com'")
Insertar registro (nombre de la tabla de la base de datos, "'3','Lisi@126.com'")
Insert record (nombre de la tabla de la base de datos, "'4','Wangwu@163.com'")
'Si id es un campo auto-incrementante, debe escribirse así Insertar registro (nombre de la tabla de la base de datos, 'null,'Wangwu@163.com'")
Para insertar el contenido del cuadro de edición, puedes escribir así: Insertar registro (nombre de la tabla de la base de datos, "'" & editar el cuadro 1.contenido & "''," & editar el cuadro 2.contenido & "'")
Un prompt emergente ("¡Inserción exitosa!") )
Evento final
Botón de evento 3. Pulsado ()
'Cuadro de edición 1.Content = consulta de base de datos("SELECT * FROM" & nombre de la tabla de base de datos & " WHERE id='1'","-","\n") 'Query id='1' para el registro, los hijos de cada registro están separados por -, y los registros están separados por saltos de línea
'Editar cuadro 1.Content = consulta condicional (nombre de la tabla de la base de datos, "id='1'", "-", "\n")
Si eliminas el principio y el final del espacio en blanco (cuadro de edición 2.content) = "" entonces
Prompt emergente ("Por favor, introduzca los criterios de consulta")
Salida
Fin Si
Editar cuadro 1.Content = consulta condicional (nombre de la tabla de la base de datos,"id='" > eliminar el primer y último espacio (editar el cuadro 2.content) > "'","-","\n")
Un prompt emergente ("¡Consulta exitosa!") )
Evento final
Botón del evento 6. Clic ()
'Ejecución de base de datos ('UPDATE' & nombre de la tabla de datos > 'SET valor='Este es el valor modificado' DONDE id='1'") 'Modificar id='1' para ese registro
Modificar el registro (nombre de la tabla de la base de datos, "value='This is the modified value'", "id='1'")
Un prompt emergente ("¡Modificado con éxito!") )
Evento final
Botón del evento 5. Clic ()
'BORRAR DE' ("BORRAR DE" & nombre de la tabla de base de datos & " DONDE id='1'") 'eliminar el ID del registro='1'
Borrar registro (nombre de la tabla de la base de datos, "id='1'")
Un prompt emergente ("¡Eliminado exitoso!") )
Evento final
Botón de evento 7. Pulsado ()
'EJECUCIÓN DE BASE DE DATOS' (NOMBRE DE LA TABLA DE LA BASE DE DATOS ('DROP TABLE' > de la base de datos) elimina toda la tabla de la base de datos
Eliminación de una tabla de datos (nombre de tabla de base de datos)
Un prompt emergente ("¡Eliminar tabla de base de datos exitosa!") )
Evento final
Botón 8 del evento. Pulsado ()
Aviso emergente ("Número total de registros:" > Número de registros (nombre de la tabla de la base de datos) > "Elementos")
Evento final
Botón 9 del evento. Pulsado ()
'Editar cuadro 1.Content = consulta de base de datos("SELECT * FROM" > nombre de la tabla de base de datos > "WHERE valor LIKE '%163.com'","-","\n") 'Consultar todos los registros con valores que terminan en '163.com'
Cuadro de edición 1. Content = consulta condicional (nombre de tabla de la base de datos, "valor LIKE '%163.com'", "-", "\n")
Un prompt emergente ("¡Consulta exitosa!") )
Evento final
Botón del evento 10. Pulsado ()
'Editar cuadro 1.Contenido = consulta de base de datos("SELECT * FROM" > nombre de la tabla de base de datos & "LIMIT 0,3","-","\n") 'Consulta 3 registros comenzando desde 0 (1).
Cuadro de edición 1. Contenido = consulta de alcance (nombre de la tabla de la base de datos, 0, 3, "-", "\n")
Un prompt emergente ("¡Consulta exitosa!") )
Evento final
Botón de evento 11. Pulsado ()
Cierra la base de datos() '!! Cierra la base de datos al final del programa
Procedimiento final ()
Evento final |
[Copiar enlace]
Publicado en 4/1/2018 21:16:38
|
Publicado en 4/6/2017 8:49:09
