Y para renombrar un usuario existente:

// Este es el código:
if oCon:Execute( "RENAME USER eagle1 TO eagle25" )
       Alert( "El usuario se cambió correctamente" )
else
       Alert( "Error al cambiar el usuario" )
        oCon:oError:Show( .t., "Que no tío" ) // Amplia la descripción del error
endif

Esto es todo de momento


--- En eagle1@yahoogroups.com, "Manu" <messoft@...> escribió:
>
> Para eliminar usuarios sería el mismo código pero usando la
> sentencia:
>
> // Este es el código:
> if oCon:Execute( "DROP USER eagle1" )
> Alert( "El usuario se eliminó correctamente" )
> else
> Alert( "Error al eliminar el usuario" )
> oCon:oError:Show( .t., "Que no tío" ) // Amplia la
> descripción del error
> endif
>
> --- En eagle1@yahoogroups.com, "Manu" messoft@ escribió:
> >
> > El amigo Wilfredo me hizo esa pregunta y creo que estaría bien que
> lo
> > publicara por aquí:
> >
> > Este es el código básico, a partir de aquí la imaginación
> es
> > el límite:
> >
> > function main()
> >
> > local cDb := "E1Prueba"
> > local oCon
> >
> > // Sistema Cliente/Servidor
> > local cHost := "127.0.0.1"
> > local cUser := "root"
> > local cPwd := "root"
> >
> > // Creamos el objeto Connect e intentamos la conexión:
> > oCon := TMSConnect():New()
> > oCon:Connect( cHost, cUser, cPwd )
> >
> > if !oCon:lConnected
> > Alert( "No se ha establecido la conexión" )
> > // Liberamos memoria
> > oCon:Close()
> > return( nil )
> > endif
> >
> > cls
> > // Este es el código:
> > if oCon:Execute( "CREATE USER eagle1 IDENTIFIED BY 'eagle1'" )
> > Alert( "El usuario se creó correctamente" )
> > else
> > Alert( "Error al crear el usuario" )
> > oCon:oError:Show( .t., "Que no tío" ) // Amplia la
> > descripción del error
> > endif
> > ...
> > Fijaros que el nombre del usuario eagle1 no va entre comillas simples
> > pero la password 'eagle1' si que va.
> >
>