Clear
Clear All
*- Nos conectamos
nHandle = SQLCONNECT('sample-mysql','NombreUsuario','ElPassword')
*- Probamos si se ha conectado correctamente (el valor debe ser superior a 0)
? nHandle
*- Si ya existe la Base de datos la borramos
? sqlexec(nHandle,'DROP DATABASE IF EXISTS miBDatos')
*- Creamos la Base de datos y nos posicionamos en ella para crear una tabla
? sqlexec(nHandle,'CREATE DATABASE miBDatos')
? sqlexec(nHandle,'USE miBDatos')
? sqlexec(nHandle,'CREATE TABLE agenda (nombre CHAR(50), direccion CHAR(50), telefono CHAR(15), email CHAR(30))' )
*- Insertamos un registro
? sqlexec(nHandle,"INSERT INTO agenda VALUES ('Juan Pérez', 'C/ Laguna 15. Sevilla', '95.455.55.55', '
[email protected]')" )
*- Consultamos
? sqlexec(nHandle,"Select * from agenda")
*-Por ultimo, nos desconectamos
? sqldisconn(nHandle)
:)